Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4097 / 76734

←次へ　｜　前へ→


	【78264】Re:クリックしてセルの色を変える時

独覚 - 16/6/15(水) 10:30 -


	引用なし

	パスワード

▼sea さん：
セルの色は最初から黄色か灰色になっているのでしょうか？
もし背景色が何もない状態から始める場合、一回目のクリックでは何色にするのでしょうか？

もし、最初から黄色か灰色になっているのであれば

>iAry = Array(xlPatternNone, 56, 6)
を
>iAry = Array(56, 6)
でいいと思いますが。

もし、最初は背景色なしで有れば
>iAry = Array(xlPatternNone, 56, 6)
はそのままで
>If (i > UBound(iAry)) Then i = 0
を
>If (i > UBound(iAry)) Then i = 1
かな。

なおこの場合、一回目のクリックの色は
>iAry = Array(xlPatternNone, 56, 6)
の56と6の順番を変えることで変更できます。

また、あくまでもseaさんの書いたＶＢＡを生かす形での変更です。

6 hits

▼

【78263】クリックしてセルの色を変える時 sea 16/6/15(水) 9:42