こんにちは～ドットコムパソコン塾の徳丸です
今日は久々にExcelのマクロの問題ですよ♪
下図を見てください～
B2からB9に赤・黒・青・黄の文字が書かれています。
上図の表を同じように作ってください。
書かれている文字の色と同じ色をセルに塗りつぶしていくというマクロです
コードは以下の通りです。
以下のコードを標準モジュールにコピペしてマクロを実行させてください。
黄は記述していないので塗りつぶしません。
勉強のために、以下のマクロを編集して「黄」も塗りつぶしてみてね
Sub iro()
Dim i As Long
Dim myRow As Long
myRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To myRow
If Cells(i, 2) = "黒" Then
Cells(i, 2).Interior.ColorIndex = 1
ElseIf Cells(i, 2) = "青" Then
Cells(i, 2).Interior.ColorIndex = 8
ElseIf Cells(i, 2) = "赤" Then
Cells(i, 2).Interior.ColorIndex = 3
End If
Next i
End Sub
上図のようになりましたか？
では、編集して「黄」も塗りつぶして見てください
colorindex 「黄」のNOは「6」です
Cells(i, 2).Interior.ColorIndex = 6
というようにします
colorindexのNOについては次回にUPしますね～
では、頑張ってみてください
〒503-0204
岐阜県安八郡輪之内町四郷211-1
ドットコム・パソコン塾
TEL：0584-69-3839
開校日：月曜日～土曜日8：00～13：00
プライベートレッスン：月曜日～土曜日13：00～17：00
休校日：日曜日・祝日
