こんにちはドットコムパソコン塾の徳丸です
今日もマクロのお話ですよ
大丈夫です
今日はめっちゃ簡単です
実は先日、Excelのセルの塗りつぶしを白にしている箇所があるけど
範囲の中にいくつ白に塗りつぶしているのかわからない
どうやったらわかるのか？という生徒さんからの質問がありました。
そのマクロを紹介します～
こんな感じの表があります。
この表には見た目にはわからないけど
いくつかのセルに「白」で塗りつぶしをしてあります。
いったいいくつ塗りつぶしを白にしているのでしょうか？
コードの記述はこちらです
Sub 塗りつぶし白Count()
Dim c As Range
Dim cnt As Long
For Each c In Range("B2:D25") '範囲を記述します。
If c.Interior.ColorIndex = 2 Then '範囲の中で「白＝2」で塗りつぶしてあれば
cnt = cnt + 1
End If
Next c
Range("A1") = cnt 'A1に答えを出す
End Sub
A1に12と答えがでました～
でも、どこのセルを白で塗りつぶししているかわかりませんね～
次回は塗りつぶし箇所がわかるようなマクロを紹介します～
ご自分でもお考えくださいね～(＊´艸｀)
では次回をお楽しみに～
〒503-0204
岐阜県安八郡輪之内町四郷211-1
ドットコム・パソコン塾
TEL：0584-69-3839
開校日：月曜日～土曜日8：00～13：00
プライベートレッスン：月曜日～土曜日13：00～17：00
休校日：日曜日・祝日
