等級(jí):初學(xué)者
-
積分:5
-
財(cái)富值:0.90
-
身份:普通用戶
| 1日 | 2日 | 3日 | 4日 | 5日 | ............. | 標(biāo)紅字體個(gè)數(shù) |
| 4 | 3 | 2 | 4 | 4 | ||
| 5 | 4 | 3 | 3 | 3 | ||
| 1 | 2 | 3 | 2 | 1 |
補(bǔ)充內(nèi)容(2022/5/3 9:36:00):
字體顏色為條件格式自動(dòng)生成的
下載附件
等級(jí):學(xué)者-
積分:58
-
財(cái)富值:3
-
身份:普通用戶
本來(lái)想給你寫個(gè)自定義函數(shù)，但是單元格的DisplayFormat屬性在自定義函數(shù)中不能引用（搞了半天才在官方文檔中發(fā)現(xiàn)）。給你寫了個(gè)子程序，根據(jù)你的實(shí)際可以調(diào)整一兩個(gè)參數(shù)就可以批量運(yùn)行了。
Public Sub st()
' 利用單元格顯示的顏色與紅色進(jìn)行比較，統(tǒng)計(jì)區(qū)域內(nèi)紅色單元格個(gè)數(shù)。
Dim a As Range, result As Long, rg As Range
Dim i As Integer
For i = 2 To 33 ' 對(duì)第2至4行進(jìn)行循環(huán)計(jì)算
Set rg = Range("A" & i & ":" & "F" & i) ' 設(shè)定需要統(tǒng)計(jì)的區(qū)域
result = 0
For Each a In rg ' 對(duì)統(tǒng)計(jì)區(qū)域中每個(gè)單元格顯示的顏色與紅色進(jìn)行比較，相同計(jì)數(shù)result值加1。
If a.DisplayFormat.Font.Color = RGB(255, 0, 0) Then
result = result + 1
End If
Next a
Range("G" & i) = result '將統(tǒng)計(jì)結(jié)果賦值到結(jié)果存儲(chǔ)區(qū)域
Next i
End Sub
宏計(jì)算出來(lái)的比我手工算出來(lái)的都多1
等級(jí):學(xué)者-
積分:58
-
財(cái)富值:3
-
身份:普通用戶
回復(fù)：10樓
第一、我說(shuō)你空口白牙，并不是因?yàn)槟阏f(shuō)我的解答有問題我生氣，而是向你建議怎樣更好地提問題。這樣更方便他人解決你的問題。
第二、用這個(gè)宏去解決你的問題是需要你根據(jù)你的問題去重新設(shè)置參數(shù)的，這個(gè)我在回答的時(shí)候有提到。我也因此建議你要讀懂宏，為此我還給你對(duì)代碼做了注釋。
第三、對(duì)于他人的幫助，表達(dá)應(yīng)有的感謝，這是最基本的禮貌。提問題要方便解答者，這是很基本的職業(yè)素養(yǎng)。
第四、我對(duì)我的那句”空口白牙“對(duì)你造成的困擾，表示歉意。
等級(jí):初學(xué)者-
積分:5
-
財(cái)富值:1
-
身份:普通用戶
回復(fù)：11樓
1、首先我對(duì)你認(rèn)真負(fù)責(zé)的回答也是表示肯定的，所以我將你5樓的回復(fù)選擇為最佳答案。
2、其次也很感謝你在宏里為我做了注釋，我也看懂了這個(gè)注釋，但是我重新應(yīng)用了之后，它確實(shí)是出現(xiàn)了錯(cuò)誤。
3、因?yàn)檫@個(gè)宏是你做的，所以你肯定更清楚我上面說(shuō)的出現(xiàn)了這種錯(cuò)誤的原因到底是為什么？
4、我在一開始發(fā)布帖子的時(shí)候就上傳了附件，宏是你幫我做的你也更了解，我想你都有就沒有再上傳附件，所以我沒有空口白牙。
5、我雖然看懂了你的注釋知道了你注釋的地方怎么調(diào)，但是調(diào)整后確實(shí)是出現(xiàn)了問題，我對(duì)VBA不了解不會(huì)修改，但是我能發(fā)現(xiàn)問題。
6、我在7樓回復(fù)的問題我想你肯定是看懂，可能你自信你的宏沒有問題是我不懂操作的造成的。
7、再次對(duì)您能回復(fù)我的帖子標(biāo)識(shí)感謝。