Menuへ

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

Step 1　ファイル設定フォームの作成

シートイベント

下記のコードを追加してください。 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

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

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

Topへ

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