返回列表 上一主題 發帖

請指導如何選取所有符合格式化條件的儲存格

請指導如何選取所有符合格式化條件的儲存格

請指導如何選取所有符合格式化條件的儲存格,
附件為上班考勤例子,設定格式化條件為當上班時間大於09:00時,上班時間及上班狀況字體變紅加粗。
問題: 我要選取所有變紅加粗字體的儲存格。
目前在正式的每月考勤表內有一百人,6000筆數據(上班及下班),大約有15至20人會遲到早退。要選取大約400個儲存格。
我是按(Shift + F8),然後再一個一個點選,,請指導要如何能一次選取。

先謝謝各位先進。 格式化條件.zip (8.32 KB)

隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

謝謝幫忙,我不須要提取資料,只要選取儲存格即可。
因為格式化條件會受其他情況而變化。
上下班時間粗體紅字不可以改變。
所以要選取所有因格式化變成粗體紅字的時間儲存格進行人手加粗變紅。

TOP

回復 3# Andrewfat


    試試看!

格式化條件_T1.zip (39.77 KB)

TOP

隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

謝謝各位幫忙, VBA 應該是最快捷的方法了。
謝謝 hcm19522
謝謝 Andy2483

TOP

回復 1# Andrewfat

請測試看看,謝謝
Sub test()
Dim Arr, xU
With Cells.Font
   .ColorIndex = 1
   .Bold = False
End With
Arr = Range("e6").CurrentRegion
Set xU = [e6]
For i = 2 To UBound(Arr) Step 2
    For j = 2 To UBound(Arr, 2)
        If Arr(i, j) > Arr(3, 1) Then
            Set xU = Union(Cells(i + 5, j + 4).Resize(2, 1), xU)
        End If
    Next j
Next i
With xU.Font
    .ColorIndex = 3
    .Bold = True
End With
[e6].Interior.ColorIndex = xlNone
End Sub

TOP

回復 7# samwang


    感謝前輩分享
1.學到縮小執行範圍
2.學到陣列方式

陣列跟字典很好用!好難學!
謝謝

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題