ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【Excel VBA】エクセルマクロ学習。




どうも、ゴリラストロングです。

 

 

 

また、エクセルマクロの記事を書きたいと思います。

今回も簡単なので暇つぶしがてら見ていってください。

 

 

 

こんな表を用意しました。

f:id:gorilla-strong:20200216070158p:plain

・種目ごとの合計重量を計算。

・種目ごとの合計重量が1000以上なら〇、そうでなければ✖。

・部位ごとの合計重量を計算。

 

上記の機能を組み込みました。

 

 

スポンサーリンク

 

 

以下が実行後です。

f:id:gorilla-strong:20200216070508p:plain

 

以下がソースコードです。

Sub 筋トレ記録表()
'変数kkにブック1のシート2を代入。
Dim kk As Object
Set kk = Workbooks(1).Worksheets(2)
'変数jに最終行の行番号を代入
Dim j As Long
j = kk.Cells(Rows.Count, 1).End(xlUp).Row
'合計重量を計算
For i = 3 To j
kk.Range("E" & i) = kk.Range("C" & i) * kk.Range("D" & i)
Next
'sumif関数でH列の合計重量を計算。
For k = 3 To 8

Dim rng1 As Range
Dim rng2 As Range
Dim str As String

Set rng1 = kk.Range("A3:A16")
Set rng2 = kk.Range("E3:E16")
str = kk.Range("G" & k)

kk.Range("H" & k) = WorksheetFunction.SumIf(rng1, str, rng2)

Next

'if文でE列が1000以上なら〇、そうでなければ×を代入。
For l = 3 To j

If kk.Range("E" & l) >= 1000 Then
kk.Range("F" & l) = "〇"
Else: kk.Range("F" & l) = "×"

End If

Next

End Sub

今回参照させていただいたサイトのURLを貼っておきます。

https://vba-gas.info/excel-vba-sum

 

以上、ゴリラストロングでした。

 

 

スポンサーリンク