如何触发单元格的click事件?

lovecissi 2006-11-09 07:12:52
在VB里面,因为有LABEL或者CMD按钮可以触发CLICK事件,但是我在做个更为强化的EXCEL,希望能够在点击某个单元格(比方说sheets.cells(1,1).)时触发一个CLICK事件,做一些我向做的事情。
小弟敬请赐教~~
...全文
425 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
DeRoshia 2006-12-18
  • 打赏
  • 举报
回复
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myobj As OLEObject
Set myobj = Sheet1.OLEObjects.Add(ClassType:="Forms.combobox.1", Link:=False, DisplayAsIcon:=False, Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
myobj.Visible = True
myobj.Object.List = Array(1, 2, 3, 4, 5, 6, 7)
Randomize
myobj.Object.ListIndex = Int(Rnd * 7)
End Sub
给你一个这个触发事件的实例,这段代码将在你指定的单元各中创建一个下拉框
明察秋毫 2006-12-17
  • 打赏
  • 举报
回复
使用以下事件
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub
m00ners 2006-12-17
  • 打赏
  • 举报
回复
lp2wyp() ( ) 信誉:100 Blog 2006-12-17 00:27:04 得分: 0


使用以下事件
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub



little23 2006-12-01
  • 打赏
  • 举报
回复
if activesheet.range("A1").select then
.....................
End if
zsj1101 2006-11-11
  • 打赏
  • 举报
回复
使用以下事件
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub
hei__an 2006-11-10
  • 打赏
  • 举报
回复
用VS2005开发,就可以了

5,138

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧