如何在篩選後的資料找出紅色字體的儲存格總和? VBA程式

agwhk

例: 設定在A1儲存作為計算後的總和,
   A20:C65536為篩選後的資料,找出A欄A1:A65536的紅色字體的儲存格總和。
   (不要加隱藏的儲存格)  謝謝各位大大!!!

GBKEE

回復 1# agwhk
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, xlRow As Integer, S As Long
   
4.     'FindFormat 屬性 設定或傳回要尋找之儲存格格式類型的搜尋準則
   
5.     Application.FindFormat.Clear
   
6.     Application.FindFormat.Interior.ColorIndex = 3
   
7.     Set Rng = Range("A20:A65536").Find(What:="", after:=[A65536], SearchFormat:=True)
   
8.     If Not Rng Is Nothing Then
   
9.         xlRow = Rng.Row
   
10.         Do
    
11.             S = S + Rng.Value
    
12.             Set Rng = Range("A20:A65536").Find(What:="", after:=Rng, SearchFormat:=True)
    
13.         Loop While Rng.Row > xlRow
    
14.     End If
    
15.     MsgBox S
    
16. End Sub

複製代碼

agwhk

謝謝! 很多謝您, 我正是要這個程式碼