|
こんにちは。
状況がいまいち...ですが、参考までに。
ThisWorkbookではなく、クラスモジュールでダブルクリックイベントをキャッチします。
'====標準モジュールに====
Public ClassApp As Class1
Sub auto_open()
Call SetClass
UserForm1.Show
End Sub
Sub SetClass()
Set ClassApp = New Class1
Set ClassApp.App = Application
End Sub
'===クラスモジュールに(Class1)===
Private WithEvents clsApp As Application
Property Set App(xlsApp As Application)
Set clsApp = xlsApp
End Property
Private Sub clsApp_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name = "Sheet4" Then
MsgBox Sh.Name & "でダブルクリックされました"
End If
End Sub
的外れ?でしたら、すみません。
では。
|
|