Excel VBA質問箱 IV

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

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


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

19609 / 76735

←次へ　｜　前へ→


	【62556】Re:IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです

ｂｙｋｉｎ - 09/7/29(水) 22:33 -


	引用なし

	パスワード

こんばんわ。

えらい長いスレッドやねー・・・つんはん、ご苦労さんです。
全部読んだわけやないけど、ご質問の内容や話題があちこち飛んでて
ごちゃごちゃになってる感じやね。

要するに

＞ともあれ、私の実現したいことは次のステップなのです。
＞１．指定のセルを一旦、クリア（色を白にするだけ）
＞２．指定セルに何も入力されていなかったら、そのセルを赤くする
＞３．再度、１からスタートした時、指定セルに値が入っていたら、
＞　　セルを赤くしない

・・・ってことですわな？
３．については１．で全部クリアしてるんやから考える必要ないと思うよ。

Sub test()
　　On Error Resume Next
　　With ActiveSheet.Range("A1:D6")
　　　　.Interior.ColorIndex = xlColorIndexNone
　　　　.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
　　End With
End Sub

これくらいで十分なんとちゃいまっか？
セル範囲は適宜変更しておくれやす。

▼ももはん

＞With Worksheets("Sheet1")
＞　'シート全体のブランクセルをｒにセット
＞　Set r = .Cells.SpecialCells(xlCellTypeBlanks)

ここでエラーが出る可能性がありまっせ。
使用済みセル範囲の全セルにデータが入ってる場合です。
例えばＡ１：Ｃ３の範囲の全セルにデータが入力されてて、
他のセルは使ったことが無いときとか・・・

結局エラーが出る可能性があるんやから、素直に On Error Resume Next を
使えばええと思うけどなー

あとはつんはんにお任せします(^^；；
よろしゅーに。
ほな。

0 hits

▼

【62397】IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです T-K 09/7/16(木) 15:45