VBA基本 Lesson2
問題と実行結果 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 セミナー受講資料から許可を得て引用しております。
田中先生ありがとうございます。