excel-ubara.com Sub Practice9() 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 = vbWh…

excel-ubara.com Sub 8() Dim i As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 4) = Cells(i, 2) * Cells(i, 3) Next Columns(1).NumberFormatLocal = "yyyy/mm/dd" Columns(4).NumberFormatLocal = "#,##0"End Sub