特定のセルを選択した場合にユーザーフォームを表示したい

エクセルVBAのユーザーフォームの表示方法について、ご教授お願いします。
例えば、A1：A100を選択した場合（クリックした場合）に、ユーザーフォームを表示したいのです。
UserFofm1.Showをどこに記述すれば、よいのでしょうか？
よろしくお願いします。

No.1 ベストアンサー 回答者： sayop 回答日時： 2008/08/09 03:31

以前似たようなマクロを組んだものです。

参考程度にお考えくださいませ。

>（クリックした場合）
私の場合、クリックだとミスる可能性もあったので、ダブルクリックにしました。

>どこに記述
シートタブ上で右クリック＞コードの表示＞sheet1(sheet1)


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myRange As Range
Set myRange = Range("A1:A100")
If myRange.Address <> Union(Target, myRange).Address Then Exit Sub
UserForm1.Show
Cancel = True
End Sub

をコピーしてみてください。
A1からA100はダブルクリックすると、userform1を表示するようになります。

この回答へのお礼

ご回答ありがとうございます。
ご提示いただいたコードで解決しました。

お礼日時：2008/08/09 14:35