/ / Excel VBAでの色による合計

Excel VBAで色で合計

以下では、 Excel VBA それ 数値を色で合計する.

状況:

あなたは2人の12人にお金を貸してきました。何人かの人々はそれを戻し(黒で)与え、いくつかはまだあなたにお金(赤)を借りています。あなたはあなたがまだどれくらいのお金を受け取っているか知りたいです。

Excel VBAで色で合計

まず、Integer型の2つの変数を宣言します。 1つは受取人に、1つはiという名前で呼ばれます。変数toReceiveを値0で初期化します。

Dim toReceive As Integer, i As Integer
toReceive = 0

2.次に、For Nextループを開始します。

For i = 1 To 12

3.それぞれの番号を確認し、番号の色が赤である場合にのみ、toReceiveに番号を追加します。

If Cells(i, 1).Font.Color = vbRed Then
    toReceive = toReceive + Cells(i, 1).Value
End If

4.ループを閉じるのを忘れないでください。

Next i

5.最後に、まだ受け取ったお金を表示します。 &演算子を使用して、2つの文字列を連結(結合)します。 toReceiveは文字列ではありませんが、ここで動作します。

MsgBox "Still to receive " & toReceive & " dollars"

6.コマンドボタンにマクロを配置し、テストします。

結果:

カラー結果で合計

また読む: