将各个单元格按钮功能写成单独的过程,如K1单元格的保存功能写成过程:Sub 保存()……,然后用工作表事件调用即可,代码举例如下:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
s = Target.Address(0, 0)
If s = "I1" Then
Call 查询
ElseIf s = "K1" Then
Call 保存
'…………
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
s = Target.Address(0, 0)
If s = "I1" Then
Call 查询
ElseIf s = "K1" Then
Call 保存
'…………
End If
End Sub
这是宏对象进行制定的,你进入VB界面,就可以看到每个单元格后面的代码了。
VBA设定这个单元格为活动单元格时触发事件!
你可以说的清楚一些.是软件的问题还是操作的问题,不知道你说的是不是批注