- 締切済み
赤の数字の合計と緑の数字の合計
B2~I17の大きさの表があります。その中にランラムで赤で書かれた数字と緑で書かれた数字があります。赤の数字の合計をK13に緑の数字の合計をK15に表示するには、VBでどのようにすればよいですか。 よろしくお願い致します。
- kkazumi
- お礼率69% (93/133)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 (2)
- 専門家の回答
みんなの回答
次は、A1~A6の赤字を集計するサンプルコードです。 Private Sub CommandButton1_Click() Dim I As Integer Dim R As Integer For I = 1 To 6 R = R - (ActiveSheet.Cells(I, 1).Font.ColorIndex = 3) Next I MsgBox "R=" & R End Sub
- めとろいと(@naktak)
- ベストアンサー率36% (785/2139)
Cells(m, n).Font.ColorIndexで色の値を取得出来ます。 判定して加算していきましょう。 以下、テキトーに作った例 r = 0 g = 0 For i = 64 To 68 With ActiveSheet.Cells(i, 16) Select Case .Font.ColorIndex Case 3 '赤 r = r + 1 Case 10 '緑 g = g + 1 End Select End With Next ActiveSheet.Range("P69").Value = r ActiveSheet.Range("P70").Value = g
お礼
ありがとうございました。参考にします。
関連するQ&A
- 再質問、赤の数字の合計と緑の数字の合計
セルE2~E17とセルI2~I17の中に赤で書かれた数字と緑で書かれた数字があります。その中で、赤で書かれたセルの合計でなく、赤で書かれた数字の合計をセルK13に。また、緑で書かれたセルの合計でなく、緑で書かれた数字の合計をK15にに表示するにはどのようにすればよいですか。よろしくお願い致します。
- ベストアンサー
- Visual Basic
- Σで合計が出ない!
よくわかりませんですみませんが、office softは2000前後のバージョンだと思います。 Excelで簡単な表を作ったら、ある数字のみの列の下に合計を入れるため、いつものようにΣを入れたら、合計が「0」になってしまうか、「=SUM(I2:I30)」計算式のままの表示になってしまう。 原因はいくら探しても全然わかりません、考えられる原因と解決法を教えてください。 よろしくお願い致します。
- ベストアンサー
- Windows XP
- 同じ文字が続くときに数字を合計する関数
A列に同じ文字が続くときに、該当するB列の数字を合計する関数をご教示お願い致します。 (例ではB4、B8、B9の合計で600)
- ベストアンサー
- Excel(エクセル)
- エクセルで偶数のみの数字の合計を計算
LOT6のデータをエクセル2000に保存して有ります。 かなりの行数が有りますが、これを一括で偶数のみの合計数を計算したいのです。 例えば B1 C1 D1 E1 F1 G1 H1 I1(偶数合計) 1回目(1行) 10 13 18 23 33 38 17 3 上記のように7個数字が有った時、「I1」のセルに計算式で偶数のみの合計数を3と成る数式を教えて頂きたくお願い致します。 奇数は偶数を計算した時、7-(偶数の合計数字)を引いて、後は計算式をドラッグしてコピーします。 以上宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル表で数字の色別合計は可能ですか
エクセル2000を使用しています。 エクセル表で1ヶ月の支払い明細を作成したとします、 下段に支払い済み合計 支払い予定合計 を作成したとして 明細中の数字を支払い予定は赤色(最初は全て赤色) 支払い済を黒色へ変更とした場合 それぞれの合計が色が変わる毎に 自動的に変わっていく このようなことが出来ないでしょうか
- ベストアンサー
- オフィス系ソフト
- 行の連続数字を見つけて塗潰す方法
どなたかご存知でしたら回答をよろしくお願いします。 【質問】 下図の様に5×5のセルが4つあり、それぞれ1~99迄の数字がランダムに 重複有りで入っています。5×5のセルの中には行の連続数字(例:02 03) が入っています(1個も無い場合もあります)。 行の連続数字を見つけたら、その連続数字のセルを塗潰す方法が知りたいです。 ・2連続・・・黄色で塗潰す。 ・3連続・・・赤色で塗潰す。 ・4連続・・・青色で塗潰す。 ・5連続・・・緑色で塗潰す。 A B C D E F G H I J K 1 01 07 09 11 22 03 10 20 30 31 2 04 12 14 15 23 01 02 07 09 22 3 07 13 17 18 25 04 11 12 14 15 4 06 16 21 24 26 02 13 17 18 23 5 08 19 27 28 29 06 16 24 25 26 6 7 05 09 11 26 30 03 06 13 22 27 8 04 10 15 19 24 03 14 25 28 29 9 01 14 20 25 29 05 11 18 20 21 10 07 18 21 23 31 07 08 16 23 31 11 02 08 12 16 17 02 03 12 17 27 【結果】 上記4つある5×5のセルには、10個の重複数字がありその数字のセルが塗潰されます。 (1)14 15 (2)17 18 (3)27 28 29 (4)30 31 (5)14 15 (6)24 25 26 (7)16 17 (8)28 29 (9)07 08 (10)02 03 【注意事項】 ・使用するエクセルは2010です。 ・セルの中の数字は2桁で表しています。(例:1ではなく01) ・5×5のセルの位置は下記のとおりです。 1個目の5×5マス・・・A1~E5 2個目の5×5マス・・・G1~K5 3個目の5×5マス・・・A7~E11 4個目の5×5マス・・・G7~K11 ・回答はVBでも関数でも構いません。 以上、よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- エクセル関数:隣の列の数字の合計
Excel2010です。 関数初心者なのでどうぞよろしくお願いします。 A B 10 ◆ 30 50 ◆ 40 20 ・ ・ 合計 60 のように、A列に数字、B列に◆があり、 B列に◆のある行の数字のみを合計し、 A列の一番下の行に表示させたいです。 IF関数や条件書式を見てみましたが、 よく理解できませんでした。 ご回答をお願い致します。
- ベストアンサー
- Windows 7
- セルに数字が入っていて、それを選択すると合計が下にでるようにするには?
こんにちは、みなさん!! 【質問】セルA1とB1に、それぞれ数字がA1→100B1→100と 入力されている。A1とB1を選択すると、自動的に下に合計=200 と表示される。 この機能がいつしか使えなくなってしまいました。 選択しても、合計が表示されないのです。また、合計が表示される ようにするにはどうすれば良いでしょうか? ご存知の方いらっしゃいましたらよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル 違うファイルにある数字の合計を出す
エクセルファイルが40枚ほどあります。 それぞれのファイルの決まった位置(セル)に F社、D社、C社、B社、A社 B社、G社・・・など、30社ほどの会社名があります。 それぞれの社のすぐ右横には、数字があります。 それぞれの社ごとの、合計を出したいのですが・・・。 その合計の数字は、別ファイルの1枚のシートに出したいです。 これを、マクロを使わずに表示させることは可能ですか。 それぞれのファイルの決まった位置というのは、 B3からB8まで、D5からD12まで C15からC20までとして その中には、空白のセルもあります。 30社ほどの会社名が、ランダムに入っています。 これが複数枚(40ほど)あります。 これを、別ファイル、1枚のシートに A社、B社、C社、D社・・・の合計を出したいのですが・・。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
お礼
ありがとうございました。参考にします。