VBA基本　Lesson２

問題と実行結果　Lesson2

問題1

Sub Lesson2_1()
    Dim i As Long
    For i = 2 To 21
        If Cells(i, 1).Value = "田中" Then
            Cells(i, 4).Value = Cells(i, 2).Value * Cells(i, 3).Value
        End If
    Next i
End Sub

Valueを省略可能です

問題2

Sub Lesson2_2()
    Dim i As Long
    For i = 2 To 21
        If Cells(i, 1) = "田中" Or Cells(i, 1) = "森" Then
            Cells(i, 4).Value = Cells(i, 2).Value * Cells(i, 3).Value
        End If
    Next i
End Sub

Valueを省略可能です

問題3

Sub Lesson2_3()
    Dim i As Long
    For i = 2 To 21
        If Left(Cells(i, 1), 1) = "田" Then
            Cells(i, 4).Value = Cells(i, 2).Value * Cells(i, 3).Value
        End If
    Next i
End Sub

Valueを省略可能です

問題4

Sub Lesson2_4()
    Dim i As Long
    For i = 2 To 21
        If Cells(i, 1).Value <> "" Then
            Cells(i, 4).Value = Cells(i, 2).Value * Cells(i, 3).Value
        End If
    Next i
End Sub

Valueを省略可能です

※使用している内容は、「Office TANAKA」VBA Basic セミナー受講資料から許可を得て引用しております。
田中先生ありがとうございます。