Excelでランチャーソフトを作ってみよう
Step 1 ファイル設定フォームの作成
Homeに戻る > Excelでアプリケーションソフト > ランチャーソフト
シートイベント
下記のVBAコードを追加してください。
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
'ファイル指定フォームを開く
UserForm1.Show
End If
End Sub
'コマンドボタン クリックイベント
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'右クリックの場合
If Button = 2 Then
'ファイル指定フォームを開く
UserForm1.Show
End If
End Sub
シートとユーザーフォーム
コマンドボタンを右クリックすると、ファイル指定のユーザーフォームが開きます。
Homeに戻る > Excelでアプリケーションソフト > ランチャーソフト
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved