|
▼kobasan さん:
awuさん
有り難う御座いました。
お返事頂いていたのに 気付かなくて 申し訳ありませんでした。
>▼hisao さん 今日は
>
>これでできるともいます。
>
>>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
>>
> Select Case ActiveCell.Column
> Case 2: UserForm6.Show
> Case 4: UserForm7.Show
> End Select
>>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
|
|