VBA練習3！

今日も今日とてパソコン活動！パソ活！

今日のパソ活もVBAです

前回と同じくExcelの神髄さんの練習問題９をやりました(/・ω・)/

練習問題９はセルの背景色とフォントの色を変更する問題です。

VBAの資格でちょろっとやった気がしますが完全に忘れてましたね（笑）

調べたところ背景色はinterior.colorindexをフォントの色はFont.colorindexを使用するようです( ..)φメモメモ

調べて使えればセーフだよね？

条件分岐はSelect Caseで行いました。

下記が自分が記述したコードになります。

まだまだパソ活頑張ります！

Sub 練習9()
    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).Font.ColorIndex = 2
                Cells(i, 4).Interior.ColorIndex = 5
            Case Is >= 1
                Cells(i, 4).Font.ColorIndex = 5
            Case Is >= 0.95
                Cells(i, 4).Font.ColorIndex = 1
            Case Is >= 0.9
                Cells(i, 4).Font.ColorIndex = 3
            Case Else
                Cells(i, 4).Font.ColorIndex = 1
                Cells(i, 4).Interior.ColorIndex = 3
            End Select
    Next i
End Sub