1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. ユーザーフォームを利用する

ユーザーフォームを利用する:Excel VBA入門

ユーザーフォームの作成　　　topへ

1. [開発]タブの[Visual Basic]をクリックして、VBE(Visual Basic Editor)を起動します。
   または、ショートカットキー [Alt]+[F11]でVBEを起動します。
   
2. ツールバーの[ユーザーフォームの挿入]→[ユーザーフォーム]を実行します。
   
3. UserForm1が挿入されます。
   大きさはUserForm1の周囲に表示されるハンドルをドラッグして調整します。
   

コントロールの配置・追加　　　topへ

• ツールボックスで使用するコントロールを選択し、UserForm1へ配置します。
  
  
  • ツールボックスが表示されていない時は　[表示]→[ツールボックス]で表示します。
    
• テキストボックスとコマンドボタンを配置します。
  1. ツールボックスからテキストボックスを選択してUserForm1へ配置しました。
     
  2. ツールボックスからコマンドボタンを選択してUserForm1へ配置しました。
     

シートからユーザーフォームを表示する　　　topへ

1. ツールバーの[ユーザーフォームの挿入]→[標準モジュール]を実行します。
   
2. 標準モジュールが挿入されます。
   Module1に以下のコードを入力します。
   

   Sub myform1() 　　UserForm1.Show End Sub

   
   
3. シートに[開発]タブのコントロール グループの[挿入]→[ボタン(フォームコントロール)]を選択します。
   シートにボタンを描画します。
   
4. マクロの登録 ダイアログボックスが表示されますので、「myform1」を選択して、[OK]ボタンをクリックします。
   
5. ボタンをクリックするとUserForm1が表示されます。
   (注)UserForm1はタイトルバーの閉じるボタン[X]で閉じることができます。
   
6. UserForm1の閉じるボタンを押したときにメッセージボックスを表示する例
   UserForm1を選択して、[コードの表示]ボタンをクリックして、コードを入力します。
   

   Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 　　If MsgBox("終了しますか？", vbYesNo) = vbYes Then 　　　　Cancel = False 　　Else 　　　　Cancel = True 　　End If End Sub

   
   
   
   UserForm1の閉じるボタンを押すと、メッセージボックスが表示されます。
   

コントロールを使う　　　topへ

• テキストボックスに文字を入力して、コマンドボタンをクリックしたらシートに値を入力するコードを作成してみます。
  1. プロジェクトウィンドウでUserform1を選択し、コードの表示ボタンをクリックします。
     表示されたコードウィンドウに下図のようにコードを入力します。
     

     Private Sub Commandbutton1_click() 　Dim lRow As Long 　　With Worksheets("Sheet1") 　　　lRow = .Range("A" & Rows.Count).End(xlUp).Row 　　　.Range("A" & lRow + 1).Value = TextBox1.Value 　　End With 　　TextBox1.Value = "" 　　TextBox1.SetFocus End Sub

     
     
  2. テキストボックスに文字を入力してコマンドボタンをクリックします。
     
  3. A列の最終行に入力した文字列が入力されます。
     終了はコードを作成していないので、Userform1の閉じるボタンを使ってください。
     

ユーザーフォームを閉じる　　　topへ

• ユーザーフォームにコマンドボタンを追加して、ユーザーフォームを閉じるようにしてみます。
  1. コマンドボタンを追加して、Caption を　「終了」としました。
     
  2. CommandButton2をクリックしたら閉じるコードを入力します。
     

     Private Sub CommandButton2_Click() 　Unload UserForm1 End Sub

     
     
     

     • Private Sub CommandButton2_Click() 　　　Unload Me End Sub

       としてもよいです。

スポンサードリンク

PageViewCounter
　
　Since2006/2/27