質問: エクセルvbaでボタンをクリックする度に・・・・ はじめまして。 vba初心者です。 ボタンをクリックする度にセルの範囲(a1:b40)を赤・白・赤・白 ・・・・と交互に色を付けるにはどのようにしたらよいでしょうか? いまいちよくわかりません。 どなかたご教授くだされば助かります。
回答: こんにちは。 #4の方とかぶりますが、私も、元のご質問がよく分からないですね。 >ボタンをクリックする度に >セルの範囲(a1:b40)を赤・白・赤・白 ・・・・と交互に色を付ける もし、練習なら、ご自身で考えたほうがよいと思います。実用度は低いし、ある程度、vbaの経験のある人なら初歩的ではあっても、経験のない人には、そのような問題は、ループで処理するということを学ばないと難しいです。また、ある程度、勘が働く人なら、ループは使いません。それと、白赤の交互の模様は、一体、どういうものを言っているのか理解していません。 sub testmacro1() with activesheet if .range("a1").interior.colorindex = xlnone then range("a1").interior.colorindex = 3 range("a2").interior.colorindex = xlnone else range("a1").interior.colorindex = xlnone range("a2").interior.colorindex = 3 end if range("a1:a2").copy range("a1:b40") end with end sub sub testmacro2() with activesheet if .range("a1").interior.colorindex = xlnone then .range("a1:b2").clearformats range("a1").interior.colorindex = 3 range("b2").interior.colorindex = 3 else .range("a1:b2").clearformats range("b1").interior.colorindex = 3 range("a2").interior.colorindex = 3 end if range("a1:b2").copy range("a1:b40") end with end sub