1樓：
vba自定義函式**如下：
function hezhi(byval rga as range) as integer
dim i as integer, rg as rangei = 0
for each rg in rga
if rg.interior.colorindex <> 0 and rg.interior.pattern <> xlnone then
i = i + 1
end if
next
hezhi = i
end function
2樓：閒拉呱
用vba製作一個按鈕 求每行帶顏色的單元格的個數如果你的資料在 i 到 m 列
先把o列資料清除
在o1合值兩個字上繪製一個長方形圖 當做按鈕同時按鍵盤上的 alt 鍵 和 f11 調出vba程式設計視窗複製下邊的所有**貼上在右邊空白處 然後關閉vba程式設計視窗右鍵單擊你剛才做的長方形按鈕/指定巨集/
找到有統計兩個字的巨集/確定
單擊長方形按鈕 就可以了
所有**如下:
sub 統計()
s = 0
j = 1
for j = 2 to 888
for i = 9 to 13
if cells(j, i).interior.colorindex <> xlnone then s = s + 1
next i
cells(j, "iv") = s
cells(j, "o") = cells(j, "iv") - cells(j - 1, "iv")
if cells(j, "o") = 0 then cells(j, "o") = ""
next j
end sub
面相怎麼樣，面相怎麼樣？
兀丌彡 你的臉型屬於火型臉，在性格的表現上會比較急躁，但如果五官上眼睛較小的人就能忍得住，眼睛大的人就很難控制自己的情緒。不過你的爆發力很強，如果鎖定了自己想做的事，就能夠有傑出的表現，可是很容易三分鐘熱度，你的創造力很好，對於任何新興事物都能夠很快的掌握，在藝術方面也往往有很好的天份，這就是一種有...
覺得這個人長得怎麼樣？性格怎麼樣？面相怎麼樣？大家回答吧！瞎扯淡的就別回答
長得中等，面相中等，性格外向，透著股刁蠻。不知我說的對不對。 天天發這種 沒意思。煩惱的意思是什麼？ 遇見若陽 意思是 煩悶苦惱。引證 聞一多 紅燭 時間底教訓 昨日的煩惱去了，今日底還沒來呢。煩惱的近義詞 憂愁 y u ch u 因遭遇困難或不如意的事而苦悶。引證 冰心 繁星 真正的同情，在憂愁的...
tatatata木門怎麼樣？質量怎麼樣
羅蘭木門衣櫃 該品牌是北京地區的一個木門品牌，其主要生產的產品以木門為主。木門市場上的木門品牌比較多，下面介紹下如何辨別木門的 壞。掂分量好的木門不宜太輕。幾種同樣規格 同樣面層材種的木門相比，分量太輕的木門很難說是優質木門。分量太輕的原因是所選用芯材的材質比較鬆軟 比如楊木 木材中的管道和孔隙比較...