Question

VBA EXCEL 如何获得焦点?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo L
DoEvents
x = ActiveCell
UserForm1.Image1.Picture = LoadPicture("D:\My Documents\My Pictures\" & x & ".jpg")
UserForm1.Show 0
GoTo k
L:
Unload UserForm1
k:
End Sub
希望焦点停留在表内,用箭头移动单元格,自动显示带图片的窗体.
上述代码可以用鼠标点击单元格显示窗体,不能用箭头移动.
如何解决?

Answer 1

在窗体那里贴上以下代码:
Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Sub UserForm_Activate()
SetActiveWindow Application.hwnd
End Sub

你以上的代码更改为:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Hide
On Error GoTo L
DoEvents
x = ActiveCell
If x = "" Then End
UserForm1.Show 0
UserForm1.Image1.Picture = LoadPicture("D:\My Documents\My Pictures\" & x & ".jpg")
GoTo k
L:
Unload UserForm1
k:
End Sub

追问

不行啊?!
能否发个例子过来?383461675@qq.com
比如,当用箭头移动sheet1中的单元格时(不用鼠标点击),单元格内容就在userForm1的label1显示出来,移到什么内容就显示什么内容.

Answer 2

ActiveCell.Select '选中活动单元格 End If End Sub PS:不同版本的excel可能略有区别,自己对照帮助做相应修改. mouselevel事件