excel - 如何将键盘快捷键添加到已经自由编码的 VBA 模块？

Question

以下是前几行代码：

Sub OpenFile()

     Dim myFile As String
     Dim Wb As Workbook

     myFile = Application.GetOpenFilename("CSV Files (*.csv), *.csv")
     'Exit if no file selected

     If myFile = "False" Then
          MsgBox "No file selected!"
          Exit Sub
     End If
     'Open the file

End Sub

我曾尝试模仿在我记录的其他宏中找到的命令行，但似乎没有任何效果。请指教。我到底应该把指定键盘快捷键的代码行放在哪里？在这种情况下，我希望快捷键是 CTRL+SHIFT+R

谢谢！

标签： excelvbakeyboard-shortcuts

Answer 1

在工作表中，轻触Alt+F8
然后轻触Options...
然后分配快捷方式。