[已解决]怎样在不同工作表相同位置单元格选中时触发事件？

Tristone

如题：

sheet1~sheet3的B2单元格为绿色，无论选择哪一sheet的B2单元格式，都能弹出对话框？

如果sheet较少，每个sheet里编相同代码即可，如果sheet较多，想一次代码解决问题，怎么办呢?

见附件： 工作簿1.rar (6.18 KB, 下载次数: 13)

2013-4-18 10:34 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-18 10:45

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Address(False, False) = "B2" Then
   
4.         MsgBox "test"
   
5.     End If
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

hwc2ycy

工作簿事件就可以实现了。

hwc2ycy

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Address(False, False) = "B2" Then
   
4.         MsgBox "test"
   
5.     End If
   
6. End Sub
   

复制代码

hwc2ycy

Tristone

hwc2ycy 发表于 2013-4-18 10:46

多谢哈，我还在初学阶段，请多多指教啊！{:011:}

su45

hwc2ycy 发表于 2013-4-18 10:45

效率太高了！别人都没有练手的机会了！

huangcaiguang

哎，又偷学了一招！