Excelでランチャーソフトを作ってみよう

Step 2 見出しと参照ボタン

メニューに戻る

スポンサーリンク






シートイベント

下記のコードに変更してください。

Option Explicit

'コマンドボタン クリックイベント
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)     '右クリックの場合
    If Button = 2 Then
        ButtonNo = 1
        ButtonCaption = CommandButton1.Caption
        'ファイル指定フォームを開く
        UserForm1.Show
    End If
End Sub

ユーザーフォームイベント

下記のコードを追加してください。
'参照ボタン
Private Sub CommandButton1_Click()
    Dim sfina As String
    
    'ファイル選択ダイアログ
    sfina = SelectFile_single
    If sfina <> "" Then
        TextBox2 = sfina
    End If
End Sub

Private Sub UserForm_Initialize()
    TextBox1 = ButtonCaption
End Sub

スポンサーリンク


標準モジュールコード

下記のコードを追加してください。
Option Explicit

Public ButtonNo As Integer
Public ButtonCaption As String

'ファイル選択ダイアログ
Public Function SelectFile_single()
    Dim sfile As String
    Dim i As Integer
    Dim s As String

    sfile = Application.GetOpenFilename("ファイルを選択してください (*.*), *.*")
    If sfile = "False" Then
        SelectFile_single = ""
    Else
        SelectFile_single = sfile
    End If
End Function

シートとユーザーフォーム

コマンドボタンを右クリックすると、ファイル指定のユーザーフォームが開きます。

スポンサーリンク






メニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved