1. Home » 
2. Excel講座の総目次 » 
3. Excel基本講座の目次 » 
4. フォーム コントロール

フォーム コントロール:Excel基本講座

• エクセルのワークシート上でフォーム コントロールを使う方法を説明しています。
• エクセルVBAのユーザーフォームでの使い方はExcel(エクセル) VBA入門：目次をご覧ください

オプションボタン　　　Topへ

• 複数の選択肢から 1 つだけを選択するときに使用します。
• グループボックスを利用してグループ別に制御することが出来ます。
• 【操作方法】
  1. [表示]→[ツールバー]→[フォーム]を選択して、[フォーム]ツールバーを表示します。
  2. ツールバーのオプションボタンをクリックし、シート内をクリックすると、オプションボタンが配置されます。
     
  3. 文字部分をクリックして、カーソルを表示すれば文字を修正できます。
     例では「男性」「女性」に変更しました。
     
  4. この2つのオプションボタンで1セットになるのでグループ化します。
     ツールバーのグループボックスボタンをクリックし、オプションボタン2個を囲みます。
     
  5. オプションボタンの書式設定をします。
     • オプションボタンを右クリックし、[コントロールの書式設定]を選択します。
     
     
  6. リンクするセルに「B3」セルを指定します。
     女性の方のオプションボタンはグループ化されているので、自動的に「B3」に設定されます。
     オプションボタンのON,OFFの状態をB3セルに入力するということです。
     • ここの例では2こ配置していますので、どちらがONになっているか数値が入力されます。
       男性なら1，女性なら2となります。
     
  7. 同様に年齢の区分をオプションボタンで作成します。
     リンクするセルはＢ6とします。
     

チェックボックス　　　Topへ

• オプションのONとOFFを切り替えます。
  チェックが入っている時はTRUE、入っていない時はFALSEが返ります。
• ツールバーのチェックボタンをクリックし、シート内へ配置します。
  リンクするセルはB8とします。
  
  

スピンボタン　　　Topへ

• 値を増減することが出来ます。
  上向きの矢印をクリックすると値が増加し、下向きの矢印をクリックすると値が減少します。
• 【操作手順】
  1. ツールバーのスピンボタンをクリックし、シート内へ配置します。
  2. 設置したスピンボタンを右クリックし、[コントロールの書式設定]を選択します。
     最小値1，最大値12，変化の増分1，リンクするセルD11とします。
     
  3. D11セルを選択し、[書式]→[セル]で表示形式を「G/標準"月"」とし、左揃えにしました。
     

スピンボタンで日付を上げ下げするには？　　　Topへ

• スピンボタンでは最小値と最大値は0〜30000の範囲が設定できます。
• 基準を本日「TODAY()」にして、スピンボタンで日付を上げ下げするには？
  • スピンボタンの書式設定を現在値：15000、最小値：0、最大値：30000、変化の増分：1、リンクするセル：A2 とします。
  • 表示するB2セルには=TODAY()+A2-15000　として、現在値を基準に上下できるようにします。
  • 

コンボボックス　　　Topへ

• ドロップダウン リスト ボックスに項目が表示でき、選択した項目の番号が返されます。
• 【操作手順】
  1. 表示するリストをH13:H20に入力しておきます。
  2. ツールバーのコンボボックスをクリックし、シート内へ配置します。
     
  3. 設置したコンボボックスを右クリックし、[コントロールの書式設定]を選択します。
     入力範囲H3:H20，リンクするセルB14，ドロップダウンリストの行数8とします。
     

リストボックス　　　Topへ

• リストを表示し、選択した項目の番号が返されます。
• 【操作手順】
  1. ツールバーのリストボックスをクリックし、シート内へ配置します。
     
  2. 設置したリストボックスを右クリックし、[コントロールの書式設定]を選択します。
     入力範囲H3:H20，リンクするセルB17，選択の種類を「単一選択」とします。
     

ボタン　　　Topへ

• リストを表示し、選択した項目の番号が返されます。
• 【操作手順】
  1. ツールバーのボタンをクリックし、シート内へ配置します。
     「入力」と文字を変更します。
     
  2. マクロの登録ダイアログが表示されますが、この段階では登録しないので「キャンセル」ボタンで閉じます。

数式の設定　　　Topへ

• B列に返された値をマクロのコードでそれぞれの値に変換しても良いのですが、ここでは理解しやすくするためにシート内で処理します。
  • 「性別」はB3の値が1なら男性、2なら女性となるようにします。
    =CHOOSE(B3,"男性","女性")　または=IF(B3=1,"男性","女性")
  • 「年齢」は同様に=CHOOSE(B6,"10〜29歳","30〜49歳","50歳以上")
  • 「振込済み」は=IF(B8,"済","未")
  • 「誕生月」は=D11
  • 「第1希望」は=INDEX($H$13:$H$20,B14)
  • 「第2希望」は=INDEX($H$13:$H$20,B17)
  としました。

シートへの入力マクロ　　　Topへ

• ボタンをクリックするとシート2へデータを蓄積する仕組みにします。
  1. [Alt]+[F11]でVBEを開きます。
     または、メニューバーの[ツール]→[マクロ]→[Visual Basic Editor]を実行します。
  2. VBEのメニューバーの[挿入]→[標準モジュール]を実行します。Module1が追加されます。
  3. VBA ProjectのModule1が選択されているのを確認し、右の枠内に以下のコードを入力します。
     A列に数式で値を返しているので、単純にA列の値をシート2へ入力するコードにしています。
     

     Sub 入力() 　　Dim LastRow As Long 　　With Worksheets("Sheet2") 　　　　LastRow = .Range("A" & Rows.Count).End(xlUp).Row + 1 　　　　.Range("A" & LastRow).Value = Worksheets("Sheet1").Range("A3").Value 　　　　.Range("B" & LastRow).Value = Worksheets("Sheet1").Range("A6").Value 　　　　.Range("C" & LastRow).Value = Worksheets("Sheet1").Range("A8").Value 　　　　.Range("D" & LastRow).Value = Worksheets("Sheet1").Range("A11").Value 　　　　.Range("E" & LastRow).Value = Worksheets("Sheet1").Range("A14").Value 　　　　.Range("F" & LastRow).Value = Worksheets("Sheet1").Range("A17").Value 　　End With End Sub

  4. 下図のような状態になります。
     
  5. コードの入力が終了したらVBEを[閉じる]ボタンをクリックして閉じます。
• このVBEへ入力したマクロを「入力」ボタンに登録します。
  • 「入力」ボタンを右クリックし、右クリックメニューの「マクロの登録」を選択します。
  • マクロの選択でマクロ「入力」を選択肢[OK]ボタンをクリックします。
    
• 各項目を選択して「入力」ボタンをクリックすると、Sheet2へは下図のように入力されます。
  

セルの書式を整える　　　Topへ

• C1:G22を選択し、塗りつぶし(パターン)で色を付けます。
  下図では影付きスタイルや、3-D表示を使っています。
  
• A:B,H列が目障りなのでフォントの色を「白」にすれば見えなくなります。
  

フォームを初期値に戻す　　　Topへ

• [入力]ボタンを実行して、別シートにデータを転送後にフォームに設置した各フォームの値を元に戻します。
  • コードの例
    青文字の部分はSheet2への転送部分です。黒文字の部分が初期値へ戻す部分です。
    各フォームのリンクしているセルの値を変更して、フォームの状態を変更することができます。
    

    Sub 入力() 　　Dim LastRow As Long 　　With Worksheets("Sheet2") 　　　　LastRow = .Range("A" & Rows.Count).End(xlUp).Row + 1 　　　　.Range("A" & LastRow).Value = Worksheets("Sheet1").Range("A3").Value 　　　　.Range("B" & LastRow).Value = Worksheets("Sheet1").Range("A6").Value 　　　　.Range("C" & LastRow).Value = Worksheets("Sheet1").Range("A8").Value 　　　　.Range("D" & LastRow).Value = Worksheets("Sheet1").Range("A11").Value 　　　　.Range("E" & LastRow).Value = Worksheets("Sheet1").Range("A14").Value 　　　　.Range("F" & LastRow).Value = Worksheets("Sheet1").Range("A17").Value 　　End With ' 初期値に戻す 　　 With Worksheets("Sheet1") 　　　　Range("B3").Value = 1 　　　　Range("B6").Value = 1 　　　　Range("B8").Value = False 　　　　Range("B14").Value = "" 　　　　Range("B17").Value = "" 　　　　Range("D11").Value = 1 　　End With End Sub

  • 実行前
    
  • [入力]ボタンをクリックした後、初期値とするものに戻しました。
    

スポンサードリンク

PageViewCounter

Since2006/2/27