素人のVBA備忘録

客先や社内での研修用のVBAのコードを書き留めています。初心者にも分かりやすく書いているつもり?です。参考になれば嬉しいです。

単価×数量のVBAコード

単価×数量のコードはこちら

Sub Macro210301_02()
Dim i As Long, LastRow As Long
'最終セルの行番号の変数指定
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
'2行目から最終セルの行の範囲指定
For i = 2 To LastRow
'数量がが51以上だったら
If Cells(i, 1) > 50 Then
'A列とB列の積をC列に代入する
Cells(i, 3) = Cells(i, 1) * Cells(i, 2)
End If
Next i
End Sub

分かりやすく色分けしました

f:id:gray-to:20210301220617j:plain

こんな感じです

f:id:gray-to:20210301214344g:plain 今回は数量が51以上に限り、単価×数量の計算をするという条件をつけました。なので、赤いセル(4・10・18行目)は50以下のため計算はしません。
ご自由にコピペしてお使いください。参考になれば嬉しいです。
やればできる!VBAを活用して、仕事どんどん捗らせましょう👍