|
▼Kein さん:
たびたびすみません。
>Private Sub CommandButton1_Click()
> Dim Ind As Integer
> Dim MyF As String
>
> Ind = ListBox1.ListIndex + 1
> If Ind = 0 Then Exit Sub
> MyF = Sheets("Sheet2").Cells(Ind, 5).Value
> If Dir(MyF) = "" Then
> MsgBox "ファイルが見つかりません", 48: Exit Sub
> End If
> Workbooks.Open MyF
> Unload UserForm1
>End Sub
>
>Private Sub UserForm_Initialize()
> With Sheets("Sheet2")
> Me.ListBox1.RowSource = .Name & "!" & _
> .Range("A1", .Range("A65536").End(xlUp)).Address
> End With
>End Sub
>
ユーザーフォームを使わないでA列をダブルクリックすると
ファイルが表示されるようにするにはどうすればいいでしょうか?
|
|