我每周都会收到一个结构和格式始终相同的文件,我要做的就是双击其中一列的某些单元格时收到一条消息。
我有代码并且可以正常工作,但是每次打开时我都必须将其粘贴到工作表中。我想将此代码设为“通用”代码,以便每次打开其中一个工作簿时都可以自动使用它,而不必每次都进行复制或执行任何操作,而无需双击即可获取消息。
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
If Not Application.Intersect(target, myrange) Is Nothing Then
cancel = True
MsgBox "some message"
End If
End Sub
一些评论..我需要使用的工作表始终被称为相同,而我需要使用的工作列也始终相同。唯一的变化是它包含的行数。
经过一番研究,我不知道该在类模块中还是作为附加模块进行。我是VBA的初学者,所以这超出了我的范围...
谢谢!