返回列表 上一主題 發帖

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

Andrewfat

帖子
3 
主題
1 
精華
0 
積分
54 
點名
0  
作業系統
Window10 
軟體版本
office365 
閱讀權限
20 
註冊時間
2020-10-21 
最後登錄
2022-6-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-10-15 16:27 | 只看該作者

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

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

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

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-25 

熱烈參與勳章
2#
發表於 2021-10-15 17:06 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/590074934
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

Andrewfat

帖子
3 
主題
1 
精華
0 
積分
54 
點名
0  
作業系統
Window10 
軟體版本
office365 
閱讀權限
20 
註冊時間
2020-10-21 
最後登錄
2022-6-1 
3#
發表於 2021-10-16 12:00 | 只看該作者
謝謝幫忙,我不須要提取資料,只要選取儲存格即可。
因為格式化條件會受其他情況而變化。
上下班時間粗體紅字不可以改變。
所以要選取所有因格式化變成粗體紅字的時間儲存格進行人手加粗變紅。

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
4#
發表於 2021-10-16 16:26 | 只看該作者
回復 3# Andrewfat


    試試看!

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

TOP

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-25 

熱烈參與勳章
5#
發表於 2021-10-18 10:22 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/590077299
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

Andrewfat

帖子
3 
主題
1 
精華
0 
積分
54 
點名
0  
作業系統
Window10 
軟體版本
office365 
閱讀權限
20 
註冊時間
2020-10-21 
最後登錄
2022-6-1 
6#
發表於 2021-10-18 14:02 | 只看該作者
謝謝各位幫忙, VBA 應該是最快捷的方法了。
謝謝 hcm19522
謝謝 Andy2483

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
7#
發表於 2021-10-18 14:33 | 只看該作者
回復 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

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
8#
發表於 2021-10-18 16:29 | 只看該作者
回復 7# samwang


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

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

TOP

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
返回列表 上一主題