返回列表 上一主題 發帖

[發問] 尋解答

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 »
發表於 2013-8-22 06:48 | 顯示全部帖子
回復 1# wwh126


    您好：

請試試如下
Sub aa()
   
    Dim mSht As Worksheet
    Dim mRng As Range, mRng1 As Range
    Dim s%
   
    Set mSht = ActiveSheet
    With mSht
        Set mRng1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        For Each mRng In mRng1
       If mRng.Interior.ColorIndex = 5 Then '儲存格顏色
            'If mRng.Font.ColorIndex = 5 Then '儲存格字型顏色            
                s = s + 1
            End If
        Next
        If s > 0 Then
            .Range("a1") = "藍色儲存格合計 ：" & s
        End If
    End With
End Sub

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
2#
發表於 2013-8-24 08:11 | 顯示全部帖子
回復 7# wwh126


    大大你好：

   Hsieh版主大大有說明如果是要
計算符合條件格式為藍色的儲存格數量，
那要針對格式條件做計算。

  所以，應該無法直接依已格式化的
儲存格顏色做計算。

是否可改成針對格式條件來做計算呢？

例如：
a2:a20儲存格設定大於100時，
顏色顯示為藍色。

Sub aa()
   
    Dim mSht As Worksheet
    Dim mRng As Range, mRng1 As Range
    Dim s%
   
    Set mSht = acitvesheet
    With mSht
        Set mRng1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        For Each mRng In mRng1
            If mRng.Value > 100 Then
                s = s + 1
            End If
        Next
        
        .Range("c1") = "符合格式條件合計 ：" & s
    End With
End Sub

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
3#
發表於 2013-8-24 14:58 | 顯示全部帖子
回復 9# wwh126


    大大您好：

小弟對excel vba的理解實在有限。
目前也是邊學邊實習階段。
我想還是由版主及各位大大幫您
會比較好。
另外，是否可提供範例讓小弟
也有學習的機會呢？

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題