【マクロの成長記録：9日目】文字色・背景色の練習

どーもKiyotomoです！

本日も安定の22時帰宅です！
でも今日は子供がまだ起きていて、
抱っこできたのでハッピーです！

本日もマクロ頑張ります！
今回の詳細はこちら

9日目

問題はこちら　

練習問題9（文字色・背景色の練習）｜VBA練習問題

文字色・背景色の練習

実務ではどうでしょうか。
僕の業務ではあまり頻度はないです。

ただたま～に使うので抑えていきます

記載したコード

Dim i As Long
　　For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
　　　　Cells(i, 4) = Cells(i, 3) / Cells(i, 2)
　　　　Select Case Cells(i, 4)
　　　　　　Case Is >= 1.05
　　　　　　　　Cells(i, 4).Interior.Color = vbBlue
　　　　　　　　Cells(i, 4).Font.Color = vbWhite
　　　　　　Case Is >= 1
　　　　　　　　Cells(i, 4).Font.Color = vbBlue
　　　　　　Case Is >= 0.95
　　　　　　　　Cells(i, 4).Font.Color = vbBlack
　　　　　　Case Is >= 0.9
　　　　　　　　Cells(i, 4).Font.Color = vbRed
　　　　　　Case Else
　　　　　　　　Cells(i, 4).Interior.Color = vbRed
　　　　　　　　Cells(i, 4).Font.Color = vbBlack
　　　　End Select
　　Next
End Sub

以上です。
Interior.Color とFont.Colorさえ覚えれば、
それ以外は今までの知識でいけますね。

今日は以上です。
最後まで読んで頂きありがとうございましたー！