如题，单元格可以选中一个，也可以选中多个。谢谢大家！我这样写运行时错 了，说不能省略啥参数，
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For Each Range In Target
If InStr(Range, "TEST") > 0 Then
UserForm1.Show
Exit For
End If
End Sub
你的变量Range和VBA的关键字同名了，你改个名字，比如MyRange之类的。
还有，For循环少了Next。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For Each MyRange In Target
If InStr(MyRange, "TEST") > 0 Then
UserForm1.Show
Exit For
End If
Next
End Sub
还有，For循环少了Next。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For Each MyRange In Target
If InStr(MyRange, "TEST") > 0 Then
UserForm1.Show
Exit For
End If
Next
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2015-03-04
把您的要求先说清楚，不难解决
