Excel総合相談所 91

このエントリーをはてなブックマークに追加
715 ：名無しさん＠そうだ選挙にいこう：
>>707
CheckBox1_Changeじゃだめ？
Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
Range("B1").Interior.ColorIndex = 6
Else
Range("B1").Interior.ColorIndex = 1
End If
End Sub

>>710
"C/No."@で我慢する
もしくはリストを用意しておき、vlookupかなんかでテキトーにやる