1樓：
**********
:)又學了一招
先建立以下**的巨集.然後選中你要進行計算的資料區域(從第一格開始向下選).然後執行巨集.
我不知道你的顏色是什麼意思.我做的是填充色.
sub aaa()
dim red as single
dim blue as single
red = 0
blue = 0
for each x in selectionif activecell.interior.colorindex = 3 then
red = red + activecell.valueend if
if activecell.interior.colorindex = 41 then
blue = blue + activecell.valueend if
activecell.offset(1, 0).selectnext
cells(1, 2) = red
cells(2, 2) = blue
end sub
2樓：老鼠麥大公尺
選中sheet1的b1單元格，
插入-名稱-定義
名稱 "字型顏色"
=get.cell(24,sheet1!a1)然後在a1輸入公式:=字型顏色,向下填充公式紅色應該返回數字3吧。
然後資料自動刷選，點b列的下拉框，裡面是幾個不重複的代表顏色的數字寫在d列,例如d1寫3
e列求紅色字型數值和:
=sumproduct(($b$1:$b$10=d1)*$a$1:$a$10)
藍色黑色類似。
更改某字顏色，需要雙擊單元格，顏色數字才會修改。比較麻煩。
get.cell函式參考以下資料
3樓：匿名使用者
用vba可以做到的，你發給我我做好了你自己看一下啊！
4樓：
學習中.........
英語高手請進來
任明煬 積存金錢的 窗戶和門盡情敞開 我摸索著在你金子般的黑暗裡祈禱！和亮的銅鍋的凹處。只要這脆弱的東西活著 你剎一麼在溪邊，清澈中流淌是你的妍哈哈 瀧溫 不管你選什麼時態，避免中途混用 比如，開始用過去時，後來又轉用現在時。 無論你選擇什麼時態，避免轉換時態不明確。也就是說，具體是過去時態還是轉換...
CF高手請進來
首先介紹下鬼跳的基本動作 蹲跳 蹲跳就是一直按著ctrl,然後按空格起跳,鬼跳就是這樣的 但是.動不了?怎麼會一直在原地?當然,這時就到了第2步,蹲條前的慣性 什麼意思?就是蹲條前要動,就好比走,跑,蹲著移動的時候跳起來,跳起後在空中按著ctrl,落地就馬上按空格,於是就開始蹲跳了 這時,你會發現蹲...
excel問題,高手請進，EXCEL問題,高手請進
全選工作表.點選功能區 開始 條件格式 新建規則選擇 使用公式確定要設定格式的單元格 輸入公式 row counta a a 0 row counta a a 10 點選 格式 設定填充顏色為黃色 確定以上方法測試通過 private sub worksheet activate dim i as ...