wwh126

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-8-22 06:03 | 只看該作者

[發問] 尋解答

如A1數（A2-A50)內有那些儲存格是藍色（因某些儲存格做了一些conditional formatting )!
要在A1 格內顯示有多少格！
VBA 如何編寫！

樓主熱帖

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

2^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 98
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2013-8-22 08:40 | 只看該作者

回復 1# wwh126

是要計算符合條件格式為藍色的儲存格數量嗎?
那要針對格式條件做計算

學海無涯_不恥下問

TOP

handsometrowa

中學生 Rank: 2

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

4^#

發表於 2013-8-22 09:14 | 只看該作者

本帖最後由 handsometrowa 於 2013-8-22 09:28 編輯

回復 2# dechiuan999

版大
Set mRng1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))

這行陳述式，要抓A2:A50 最後使用的 .End(xlUp) 這樣子可以嗎@@?

先看到先回我還沒試驗，拍謝

使用End(xlDown) 這樣子會不會比較好@@?

還是我搞混了?

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 98
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2013-8-22 13:33 | 只看該作者

回復 4# handsometrowa
如果資料範圍內不包含空格
那麼End(Xlup)與End(Xldown)會得到相同結果
但若中間包含空格
End(Xldown)則會只取到空格處

學海無涯_不恥下問

TOP

wwh126

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

6^#

發表於 2013-8-22 22:19 | 只看該作者

但如果藍色儲存格是由conditional formatting 轉成的則顯示不了！

TOP

wwh126

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

7^#

發表於 2013-8-24 02:12 | 只看該作者

回復 2# dechiuan999

但藍色儲存格是由設定格式化條件中....儲存格的值是大於零時該儲存格會變成藍色，則COUNT 不出來。

求解決.....

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

8^#

發表於 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

wwh126

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

9^#

發表於 2013-8-24 13:21 | 只看該作者

回復 8# dechiuan999

Sub aa()

Dim mSht As Worksheet
Dim mRng As Range, mRng1 As Range
Dim s%

Set mSht = ActiveSheet
With mSht
      Set mRng1 = .Range("a2:A1000", .Range("a" & .Rows.Count).End(xlUp))
      For Each mRng In mRng1

   If mRng.FormatConditions(1).Interior.ColorIndex = 5 Then

            s = s + 1
         End If
      Next
      If s > 0 Then
         .Range("a1") = "" & s
      End If
End With
End Sub

紅色個句有錯誤, 請問點解決!!

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

10^#

發表於 2013-8-24 14:58 | 只看該作者

回復 9# wwh126

大大您好：

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

TOP