1. よねさんのExcelとWordの使い方 » 
2. エクセル2010基本講座：目次 » 
3. フォーム・ActiveX・マクロ(VBA) » 
4. チェックボックス(ActiveXコントロール)をシートに配置する

エクセル2010基本講座：チェックボックス(ActiveXコントロール)をシートに配置する

はじめに　　　　topへ

• このページではActiveXコントロールのチェックボックスをシートに配置して利用する例について書きます。
  このページではVBAのコードは使わずにシートで処理する方法を書きます。
• 開発タブを使いますので、開発タブが表示されていない場合は　開発タブを表示する　をご覧ください。

チェックボックスをシートに配置する　　　　topへ

• シートにチェックボックスを配置します。
  1. 開発タブの[コントロール]グループにある[挿入]をクリックし、ActiveXコントロールの[チェックボックス]をクリックします。
     
  2. チェックボックスを配置したいところでクリックすると、チェックボックスが配置されます。
     
  3. 開発タブの[コントロール]グループにある[プロパティ]をクリックします。
     • [コントロール]グループにある[デザインモード]がオンになっているのを確認してください。
       プロパティなどの編集をするときには[デザインモード]がオンにして操作します。
     
  4. Captionに「Microsoft Excel」、LinkedCellに「A3」と入力して、設定しました。
     
  5. 同様に、Checkbox2〜4をシートに配置しました。
     • Checkbox2は「Microsoft Word」「A5」、Checkbox3は「Microsoft PowerPoint」「A7」、Checkbox4は「Microsoft Access」「A9」としました。
     • 開発タブの[デザインモード]をオフにします。
     • シートに配置したチェックボックスをクリックすると、チェックボックスがオン/オフ　となり、LinkedCellに設定したセルに True/False　が表示されます。
     

チェックされたものをカウントしたい　　　　topへ

• チェックボックスでチェックされたものの数をカウントしてみます。
  1. シートに配置したチェックボックスをクリックすると、チェックボックスがオン/オフ　となり、LinkedCellに設定したセルに True/False　が表示されます。
     
  2. チェックがオンのチェックボックスをカウントするには、リンク先のセルのTRUEの数を数えればよいことが分かります。
  3. A11セルに「=COUNTIF(A3:A9,TRUE)」と入力すると「2」となり、カウントされました。
     
     • TRUE/FALSEは足し算でカウントすることもできます。
       ワークシートではTRUE=1、FALSE=0で足し算ができます。
       (SUM関数はTRUE/FALSEなど論理値は計算しないので使えません)
       
  4. TRUE/FALSEを表示したくないときは表示形式やフォントの色などで見えなくすることができます。
     下図は表示形式で「;;;」(セミコロン3個)を設定した例です。セルには表示されませんが、数式バーで確認できます。
     

チェックボックスでマクロを起動する　　　　topへ

• チェックボックスをオンにするとマクロを動かします。
• 下図のようにコマンドボタンをクリックすると九九の問題を表示します。
  
  ↓
  答えを入力します。
  
  ↓
  チェックボックスをクリックしてオンにします。
  H列に解答が表示され、G列に採点結果が表示されます。
  
  ↓
  コマンドボタン「問題を表示する」をクリックすると、新たな問題が表示されます。
  
• コードを作成する
  1. チェックボックスをシートに配置し、[開発]タブの[デザインモード]をクリックして、オンにします。
     チェックボックスを右クリックして[コードの表示]を選択します。
     
  2. コードはチェックボックスを配置したシートに書きます。
     
  3. チェックボックスのキャプションは、右クリックメニューで[チェックボックスオブジェクト]→[編集]を選択して編集します。
     
     または、リボンの「プロパティ」をクリックして、プロパティウィンドウのCaption で編集します。
     
  4. チェックボックスのコード
     

     Private Sub CheckBox1_Click() 　Dim i As Long 　　If CheckBox1.Value Then 　　　　For i = 3 To 7 　　　　　　　Range("H" & i).Value = Range("B" & i).Value * Range("D" & i).Value 　　　　　　　If Range("H" & i).Value = Range("F" & i).Value Then 　　　　　　　　　　Range("G" & i).Value = "○" 　　　　　　　Else 　　　　　　　　　　Range("G" & i).Value = "×" 　　　　　　　End If 　　　　Next i 　　Else 　　Range("G3:H7").Value = "" End If End Sub

  5. コマンドボタンのコード
     

     Private Sub CommandButton1_Click() 　　Dim i As Long 　　　　Randomize '乱数系列初期化 　　　　For i = 3 To 7 　　　　　　Cells(i, 2).Value = Int(9 * Rnd + 1) '1〜9の乱数生成 　　　　　　Cells(i, 4).Value = Int(9 * Rnd + 1) 　　　　　　Cells(i, 6).Value = "" 　　　　Next i 　　　　Worksheets("sheet1").CheckBox1.Value = False End Sub

スポンサードリンク