首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

在excel中怎么实现从A1格移动到B1格时自动执行一段程序

2012-01-21 
在excel中如何实现从A1格移动到B1格时自动执行一段程序移动格对应的VBA是Range( B1 ).Select原来我是通

在excel中如何实现从A1格移动到B1格时自动执行一段程序
移动格对应的VBA是Range( "B1 ").Select
原来我是通过点击一个按钮执行这段程序的,现在想A1格移动到B1格时自动执行这段程序

[解决办法]
在相应的sheet中添加如下代码即可!

Public last_address
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Selection.Address = "$B$1 " And last_address = "$A$1 " Then
MsgBox "现在可以执行我想要执行的程序了! "
last_address = Application.Selection.Address
Else
last_address = Application.Selection.Address
End If
End Sub

热点排行