1樓：陽光上的橋
程式**：<>
測試效果：<>
注意：由於紅有許多種紅，顏色太多了，**是對非黑的進行統計，綠色、藍色都會包含，**如下：
option explicit
sub 巨集1()
dim i&, j&, n&
for i = 1 to 5
n = 0for j = 1 to 9
if cells(i, j). 0 then n = n + 1next j
cells(i, 10) =n
next i
end sub
如果需要區分特定顏色進行統計，**中下面的行可能需要修改：
if cells(i, j). 0 then n = n + 1例如修改位只統計顏色位255的純紅色：
if cells(i, j). = 255 then n = n + 1
2樓：帳號已登出
因為不知道你標的紅色是多麼紅，所以一定要指定乙個取得顏色的單元格。這裡我以」標紅數「的字型的紅色為準，示例一下：
當然，你也可以指定任意乙個其他單元格的顏色，比如你**裡的b2，但注意要用絕對位址$b$2這類的形式引用。
function biaohong(a, b)for each c in a
if = then biaohong = biaohong + 1
nextend function
這個自定義函式有兩個引數，第乙個指定計算範圍，第二個指定取色單元格。
excel中vba如何統計背景顏色加紅字的數量和？
3樓：兄弟連田心9號
1、電源輪陪腦開啟excel**。
按alt+f11進入巨集。
2、進入巨集後，點選插入模組。
3、點選插入模組後，輸入**。
function sumcolor(rag1 as range, rag2 as range)
for each i in rag2
if = then
sumcolor = sumcolor + 1end if
nextend function。
4、插入**後，返回excel輸入公式=sumcolor(c3,a1:c7)，c3是要統計桐凳的顏色的單元格，a1:c7是區域。雹蠢。
5、然後按回車就可以了。
4樓：七鋅秄
程式**：<>
測試效果：<>
注意：由於紅有許多種紅，顏色太多了，**是對非黑的進行統計，綠色、藍色都會包含，**如下：
option explicit
sub 巨集1()
臘裂 dim i&, j&, n&
基兆 for i = 1 to 5
n = 0for j = 1 to 9
if cells(i, j). 0 then n = n + 1next j
cells(i, 10) =n
next i
end sub
如果需要區輪鋒閉分特定顏色進行統計，**中下面的行可能需要修改：
if cells(i, j). 0 then n = n + 1例如修改位只統計顏色位255的純紅色：
if cells(i, j). = 255 then n = n + 1
請問如何用excel的VBA做出，從1 20中任取數的所有組合，總共是125970種，求高手支招，萬謝
如果你只是需要結果的話，可以用函式 combin 20,8 直接求的結果，如果真是要用vba實現的話按照 tat蘿蔔說的做就行了，完善如下 sub zuhe dim times as double for i1 1 to 13 for i2 i1 1 to 14for i3 i2 1 to 15fo...
請問如何用VBA將EXCEL檔案中的資料複製到別EXCEL檔案相同的位置
sheet1的區域a1 c3拷貝到sheet2的區域a1 c3 sheet1.range a1 c3 copy sheet2.range a1 c3 丙雅弘雨凝 sub aaa dim sh1 as worksheet dim sh2 as worksheet set sh1 workbooks 1...
如何用EXCEL的VBA來實現根據條件篩選結果
陸不大 這個問題我也沒做過,臨時找了兩個函式,結合起來能解決,也許不是最好的辦法,但能解決總是好的,呵呵 做出的樣表如下 a b c d 1 姓名 班級 班級 班級 2 1222 2323 3434 3 姓名 班級 數學成績 語文成績 4 張三 1222 78 85 5 李四 2323 79 83 ...