|
こんにちは。かみちゃん です。
>>5行目、9行目・・・などと、5行目から4行おきのA〜F列であって、
>>指定セル以外は、それ以外のセルなのでしょうか?
>
>A〜F列の5行目、9行目・・・はフォーム1を表示して
>A〜F列の6〜8行目10〜12行目・・・はフォーム2を表示するを作りたい
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 2 Then Exit Sub
If Intersect(Target, Columns("A:F")) Is Nothing Then Exit Sub
If Target.Row Mod 4 <> 1 Then
UserForm2.Show
Else
UserForm1.Show
End If
Cancel = True
End Sub
A〜F列の5行目でダブルクリックして、UserForm1を表示させた後、続けて、
6行目をダブルクリックしたいなどの場合は、
UserForm1を表示させたまま、UserForm2を表示させたいということですよね?
それであれば、UserFormのShowModalプロパティをFalseにしておくか、
UserForm1.Show 0
や
UserForm2.Show 0
などとする必要があると思います。
|
|