|
こんにちは。かみちゃん です。
>しかし使い勝手上セルをダブルクリックで立ち上げた方が誤記げないと判断し
ご自身で判断されたのなら、きちんと説明しないと、掲示板を見ている者には伝わりませんよ。
> 下記でユーザーフォームを立ち上げに修正したのですが
> ListBoxにC:\テキスト.txt呼び込みには
> 下記にどのように手を加えればいいのでしょうか。
ListBoxは、UserForm2に配置しているのですよね?
ListBoxへのAddは、UserForm2のInitializeイベントなどに記述すればいいと思います。
Private Sub UserForm_Initialize()
MsgBox "UserFormを開きます。"
End Sub
試しに、以下のコードでUserFormが表示・非表示になることを確認してください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If 1 < Target.Count Then Exit Sub
On Error Resume Next
If Not Intersect(Target, Range("R8:R107")) Is Nothing Then
Cancel = True
MsgBox "UserForm2を表示します"
UserForm2.Show vbModeless
Else
MsgBox "UserForm2を非表示にします"
UserForm2.Hide
End If
End Sub
|
|