| |
こんにちは。かみちゃん です。
>>5行目、9行目・・・などと、5行目から4行おきのA〜F列であって、
>>指定セル以外は、それ以外のセルなのでしょうか？
>
>A〜F列の５行目、９行目･･･はフォーム１を表示して
>A〜F列の６〜８行目１０〜１２行目･･･はフォーム２を表示するを作りたい
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
などとする必要があると思います。
|
|
かみちゃん
- 10/6/20(日) 22:36 -
