|
またまた お世話になります。
次のような構文で userform6でリストボックスを表示させます
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 2 Then
UserForm6.Show
End If
If ActiveCell.Column = 4 Then
UserForm7.Show
End If
End Sub
userform6で次のマクロで2列移動しますが
columns4でダブルクリックなしで userform7が表示されます。
ここもダブルクリック後にuserformを表示させたいのですが方法を教えて下さい。
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell() = ListBox1.Text
Unload UserForm6
ActiveCell.Offset(0, 2).Activate
End Sub
|
|