EXELの関数について教えて下さい。表を作成し、縦列にズラッと数値を入力してあります。この数値はそれぞれフォントの色分けがされており、入力した数値によってそれぞれ「赤」「青」「黄」と色で区別されています。そこでお聞きしたいのですが、フォントの色で区別された各々の数値の合計を算出することはできるでしょうか。「赤のフォントの数値の合計はいくつか」「青のフォントの数値はいくつか」ということを、関数を使って自動計算したいのです。また、それができるのであれば「フォントの書体(明朝体表記の数値の合計、ゴシック体の数値の合計など)」でも可能でしょうか。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2006/07/29 15:00:48
  • 終了:2006/08/04 18:32:48

回答(4件)

id:freemann No.1

freemann回答回数315ベストアンサー獲得回数502006/07/29 15:47:51

ポイント60pt

多分マクロでないとできないと思います。

以下にマクロでフォントの色毎に合計するマクロのサンプルを載せておきます。

書体毎の合計もマクロでやれば可能だと思います。

Sub mySum()

Dim a As Range

Dim total(3) As Long

For Each a In Selection

If a.Font.ColorIndex = 3 Then '赤

total(1) = total(1) + a.Value

ElseIf a.Font.ColorIndex = 6 Then '黄色

total(2) = total(2) + a.Value

ElseIf a.Font.ColorIndex = 5 Then '青

total(3) = total(3) + a.Value

End If

Next a

Range("A1").Value = total(1) '赤の結果

Range("B1").Value = total(2) '黄色の結果

Range("C1").Value = total(3) '青の結果

End Sub

ダミー

http://q.hatena.ne.jp/1154152846

id:aceK

ありがとうございました!

2006/08/04 18:32:09

質問者が未読の回答一覧

 回答者回答受取ベストアンサー回答時間
1 kamalan 15 13 1 2006-07-29 16:38:11
2 gong1971 443 423 68 2006-07-29 17:41:31
3 arhbwastrh 447 415 23 2006-07-29 17:52:26
  • id:arhbwastrh
    もっと簡単な方法があるのに。
    次の人の回答もあけてみればいいのにな~と・・。
  • id:kamalan
    わたしはマクロを使わないで、名前定義でget.cellを使って集計したのにな〜と・・。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません