| |
▼かみちゃん さん：
>
>> 下記でユーザーフォームを立ち上げに修正したのですが
>> ListBoxにC:\テキスト.txt呼び込みには
>> 下記にどのように手を加えればいいのでしょうか。
>
>ListBoxは、UserForm2に配置しているのですよね？
>ListBoxへのAddは、UserForm2のInitializeイベントなどに記述すればいいと思い
すみませんかみちゃんさん
AddはC:\テキスト.txtどのように記述すればいいですか
>ます。
>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
上うまく表示しました
|
|
yasu
- 07/1/21(日) 13:57 -
