セルの機能

質問

Excelでセルの中の色別の数字を集計出来るように出来るでしょうか
アカ色の数字がバラバラのセルに記入してある場合それを合計する様にとか
バラバラのセルのアオ色の数字を合計して、アカ色数字の合計から引く作業が出来るでしょうか

回答No.4

sevenless · ベストアンサー

リンク先のページの下の方に書いてありますが、文字の色を取得する場合は
Function FontColor(セル)
FontColor = セル.Font.ColorIndex
End Function
といったマクロを使います。

ちなみに、Excel 2008 のマクロメニューは何の役にも立ちません。

回答No.3

sevenless

AppleScript で Excel をあやつるという感じです。慣れれば色々な事ができますが、最初はかなり勉強が必要でしょう。
まあ簡単なのは Excel 2004 for Mac を探すか、Windows 版 Excel を使うかして VBA マクロを利用する事でしょう。

補足

早速の回答有難うございます。
Excel2008ですが、ツールの下にマクロが有るのですがこれではダメなんですね。オークションを探してみます

回答No.2

sevenless

> Excel 2008 ではマクロ機能が削除されてしまったので、残念ながら不可能でしょう。

と書きましたが、不可能ではないかもしれません。しかし VBA マクロを使うよりはかなり面倒になるでしょう。
Office 2008 では VBA のサポートをなくした代わりに、AppleScript や Automator への対応を強化しました。特に AppleScript を使えばかなりの事ができます。

例えば以下のスクリプトを実行すれば、A1:A10 に含まれる赤色のセルをカウントし、個数を C1 セルに、内容の総和を C2 セルに入力してくれます。

------------------------- ここから -------------------------
set theRange to "A1:A10" -- 検索するセル範囲
set theColorIndex to 3 -- 検索する色コード（この場合は赤）

set theCount to 0 -- 該当するセルの個数
set theSum to 0 -- 該当するセルの内容の総和

tell application "Microsoft Excel"
set cellRange to range theRange
set numCells to count cells of cellRange
repeat with i from 1 to numCells
if (color index of interior object of cell i of cellRange) is theColorIndex then
set theCount to theCount + 1
set theSum to theSum + (value of cell i of cellRange)
end if
end repeat

set value of range ("C1") to theCount
set value of range ("C2") to theSum
end tell
------------------------- ここまで -------------------------

補足

ウム～?!ちょっと理解不可能かもしれません
AppleScriptで設定してExcelに反映されのですか

回答No.1

sevenless

Excel 2004 なら可能です。Visual Basic マクロを使って以下のような手順でセルの色が取得できます。セルの色が数値として取得できれば、あとは条件式を使って合計でも平均でも好きにできます。
http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html

Excel 2008 ではマクロ機能が削除されてしまったので、残念ながら不可能でしょう。

補足

この内容だとセル自体に色がついている場合になってしまうようですが
今回の質問としては数字自体の色分けという意味でお訪ねしています