Private Sub CheckBox1_Click() ComboBox1.Enabled = CheckBox1.Value 'チェックボックスのチェックを付けると使用可 ComboBox1.Enabled = CheckBox1 = True 'チェックボックスのチェックを付けると使用可 ComboBox1.Enabled = CheckBox1 = True ...