エクセルVBAで色別合計
私たちは、色によって数字を合計エクセルVBAでプログラムを見て下記。
状況：
次の2つの12人にお金をlendedています。一部の人々は（黒）戻ってそれを与えているし、いくつかは、まだあなたに（赤）お金を借りています。あなたはまだ受け取るどのくらいのお金を知りたいです。
1.まず、我々はInteger型の2つの変数を宣言します。受信するようという名前の一つと私の名前1。私たちは、値0を持つ変数を受信するように初期化し
Dim toReceive As Integer, i As Integer toReceive = 0
2.第二に、我々は次のループの開始します。
For i = 1 To 12
3.私たちは今、各番号を確認し、番号の色が赤の場合にのみ、我々は、受信するように番号を追加します。
If Cells(i, 1).Font.Color = vbRed Then toReceive = toReceive + Cells(i, 1).Value End If
4.ループを閉じることを忘れないでください。
Next i
5.最後に、我々は受け入れることはまだお金を表示します。我々は2つの文字列（参加）CONCATENATEに＆演算子を使用します。受信するように、それはここで働くの文字列ではありませんが。
MsgBox "Still to receive " & toReceive & " dollars"
6.あなたのコマンドボタンでのマクロと、それをテストします。
結果：
