用箭头键closures用户窗体并打开一个新窗体

我有以下代码，我用它来查看Userform上的图像，这取决于Range("A1:A200") Target.Value Range("A1:A200")

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyPath As String Dim MyPic As String MyPath = "C:\Users\Public\Pictures\Sample Pictures\" On Error GoTo error_handler: If Intersect(Target, Range("a1:a200")) Is Nothing Then Exit Sub MyPic = Target.Value & ".jpg" UserForm2.Image1.Picture = LoadPicture(MyPath & MyPic) UserForm2.Show vbModeless error_handler: Exit Sub End Sub 

我遇到的这个脚本的问题是，我不能用我的箭头键来改变我的活动单元格。

我该如何解决？

Answer 1

问题在于用户表单虽然无模式，但仍然是焦点。

这里有一个解决scheme适用于我： cpearson.com SetFocus