こんにちは～ドットコムパソコン塾の徳丸です
今日はまたまたマクロのお勉強です
いやがらず、挑戦してみましょう～
今日紹介するのもYahooの知恵袋でベストアンサー回答した問題です
今回のも閲覧数が多かったのでUPいたします
下図のように
何色かの色がセルに塗りつぶしされています。
塗りつぶしされているセルには数字が記載されています。
色別ごとに合計を求めるというマクロです。
なるほど～～～
では、さっそくやってみましょう～～
まず初めに～
① 表を完成させましょう
② F1のセルに以下の関数を入力しましょう
=sumcolor2($B$2:$D$12,F1)
第1引数は、集計する範囲
第2引数は、集計する色
この数式をコピーして、まとめて下方向に数式で貼り付けます。
また、データの色は数値を変更しても、自動で計算してくれます。
③ 今度はマクロのコードを入力です。下図のように入力します。
④ 標準モジュールを開いてそこへ下記コードを入力します
Function sumcolor2(Rng As Range, myC As Range)
Dim c As Range, myVal
Application.Volatile True
For Each c In Rng
If c.Interior.Color = myC.Interior.Color Then
myVal = myVal + c
End If
Next c
sumcolor2 = myVal
End Function
コピペしていただいてもいいですよ～
でも、ご自分で入力することで少しずつでも、理解できればと思います。
またコード入力も早くなりますよ～♪
マクロの実行してみてください～
いかがですか～？
いやがらず、Excelで遊んでみてください～
〒503-0204
岐阜県安八郡輪之内町四郷211-1
ドットコム・パソコン塾
TEL：0584-69-3839
開校日：月曜日～土曜日8：00～13：00
プライベートレッスン：月曜日～土曜日13：00～17：00
休校日：日曜日・祝日
