チェックボックスの制御
チェックボックスがONの場合、文字を太くする。
チェックボックスがOFFの場合、文字を標準にする。
フォームコントロールを使用する
シートにチェックボックスを配置
「開発」タブ→「挿入」選択→「フォームコントロール」から「チェックボックス」を選択します。
シートに配置します。
マクロの登録
チェックボックスにフォーカスを合わせ、右クリック→「マクロの登録」を選択します。
「マクロ名」を入力し、「新規作成」ボタンをクリックします。
VBE（Visual Basic Editor）が起動するので、各イベントにVBAコードを入力します。
サンプルプログラム
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 |
'******* フォームコントロール用モジュール ******* '*************************************************** '【処理概要】 ' チェックONの時、チェック項目の文字を太字にする。 ' チェックOFFの時、チェック項目の文字を標準にする。 '*************************************************** Option Explicit '*********************************************** '【チェック項目】めまいや息切れ、立ちくらみがする '*********************************************** Sub チェック1_Click() If ActiveSheet.CheckBoxes(1).Value = xlOn Then Cells(2, 2).Font.Bold = True Else Cells(2, 2).Font.Bold = False End If End Sub '*********************************************** '【チェック項目】抜け毛やフケが多い '*********************************************** Sub チェック2_Click() If ActiveSheet.CheckBoxes(2).Value = xlOn Then Cells(3, 2).Font.Bold = True Else Cells(3, 2).Font.Bold = False End If End Sub '*********************************************** '【チェック項目】目の奥が痛くなったり、充血する '*********************************************** Sub チェック3_Click() If ActiveSheet.CheckBoxes(3).Value = xlOn Then Cells(4, 2).Font.Bold = True Else Cells(4, 2).Font.Bold = False End If End Sub '*********************************************** '【チェック項目】胸苦しくて眠れない '*********************************************** Sub チェック4_Click() If ActiveSheet.CheckBoxes(4).Value = xlOn Then Cells(5, 2).Font.Bold = True Else Cells(5, 2).Font.Bold = False End If End Sub '*********************************************** '【チェック項目】喉になにか引っ掛かっている感じがする '*********************************************** Sub チェック5_Click() If ActiveSheet.CheckBoxes(5).Value = xlOn Then Cells(6, 2).Font.Bold = True Else Cells(6, 2).Font.Bold = False End If End Sub '*********************************************** '【チェック項目】脱力感があったり、無気力になる '*********************************************** Sub チェック6_Click() If ActiveSheet.CheckBoxes(6).Value = xlOn Then Cells(7, 2).Font.Bold = True Else Cells(7, 2).Font.Bold = False End If End Sub '*********************************************** '【チェック項目】嫌なことがあったり、食事をすると下痢する '*********************************************** Sub チェック7_Click() If ActiveSheet.CheckBoxes(7).Value = xlOn Then Cells(8, 2).Font.Bold = True Else Cells(8, 2).Font.Bold = False End If End Sub '*********************************************** '【チェック項目】物忘れがひどい '*********************************************** Sub チェック8_Click() If ActiveSheet.CheckBoxes(8).Value = xlOn Then Cells(9, 2).Font.Bold = True Else Cells(9, 2).Font.Bold = False End If End Sub '*********************************************** '【チェック項目】手足や腰が冷える '*********************************************** Sub チェック9_Click() If ActiveSheet.CheckBoxes(9).Value = xlOn Then Cells(10, 2).Font.Bold = True Else Cells(10, 2).Font.Bold = False End If End Sub '*********************************************** '【チェック項目】目にクマができる '*********************************************** Sub チェック10_Click() If ActiveSheet.CheckBoxes(10).Value = xlOn Then Cells(11, 2).Font.Bold = True Else Cells(11, 2).Font.Bold = False End If End Sub |
最後まで読んでいただき、ありがとうございました！
本のまとめ記事はこちら
