【エクセルマクロ】太字のみ合計する：自動化で時短（動画あり）

エクセルマクロで、太字のみ合計するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。

太字のみ合計する

以下のExcelVBAを実行すると、太字のみ合計します。

Sub 太字になっている数値の合計を集計()

    Dim MyRange As Range
    Dim Total As Long

    Total = 0

    '検索範囲
    For Each MyRange In Range("B1:B20")

        'セルが太字かつ数値だったら
        If MyRange.Font.Bold = True And IsNumeric(MyRange) Then
        
            '太字の数字を加算
            Total = Total + MyRange

        End If
    Next

    '太文字の合計を表示
    MsgBox "【太文字の合計】　" & Total

End Sub

マクロ実行後

太字のセルだけの合計を算出します。

[MyRange.Font.Bold = True] は、セルが太文字かどうかチェックします。

[IsNumeric(MyRange)] は、セルに入力されている値が数値かどうかチェックします。

 
 
動画の解説もぜひご覧ください！

この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】下線のみ合計する：成果を出す時短術

...

kirinote.com

2021.12.05