|
こんにちは。かみちゃん です。
>すみません最初に提示したコードが間違っていました。
>正しくはこうです
>>>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
>>> If Target.Row Mod 4 <> 1 Then Exit Sub
>>> If Target.Row < 2 Then Exit Sub
>>> If Intersect(Target, Columns("A:F")) Is Nothing Then Exit Sub
>>> UserForm1.Show
>>> Cancel = True
>>>End Sub
>Cancel = Trueの次にElseを使ってもうまくいかない
確認ですが、
> 指定したセルにユーザーフォーム表示させるコードを作ることができたのですが
> 指定以外のセルをダブルリックした時
で説明されている指定セルとは、
5行目、9行目・・・などと、5行目から4行おきのA〜F列であって、
指定セル以外は、それ以外のセルなのでしょうか?
UserFormは、全部で2個ということですが、
UserForm1を2個ではないのですか?
UserForm1を1個、UserForm2を1個であれば、以下のような感じでしょうか?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row Mod 4 <> 1 Then Exit Sub
If Target.Row < 2 Then Exit Sub
If Intersect(Target, Columns("A:F")) Is Nothing Then
UserForm2.Show
Exit Sub
Else
UserForm1.Show
Cancel = True
End If
End Sub
|
|