| |
▼ミーナ さん：
>先日、シート１のＡ列でダブルクリックをしたらマクロ起動のコードを教えてもらったミーナです。
>
>シート１のＡ列をダブルクリックで、フォームが開くようにしました。
>そこで、ダブルクリックしたセル内の文字をフォームの中のテキスト１という
>テキストボックスにコピーできるようにしたいのですが、どうすればいいのか教えてください。
こんな感じでしょうか？
フォーム名やテキストボックス名は、そちらにあわせてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
End With
If Application.Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
With UserForm1
.TextBox1.Text = ""
.TextBox1.Text = Target.Value
.Show
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
