麻辣家族討論版版 » Excelㄧ般區 » 請指導如何選取所有符合格式化條件的儲存格

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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)

收藏

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-29

8^#

發表於 2021-10-18 16:29 | 只看該作者

回復 7# samwang

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

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

大學生 Rank: 4

帖子: 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

中學生 Rank: 2

帖子: 3
主題: 1
精華: 0
積分: 54
點名: 0
作業系統: Window10
軟體版本: office365
閱讀權限: 20
註冊時間: 2020-10-21
最後登錄: 2022-6-1

6^#

發表於 2021-10-18 14:02 | 只看該作者

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

大學生 Rank: 4

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

熱烈參與勳章

5^#

發表於 2021-10-18 10:22 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/590077299

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-29

4^#

發表於 2021-10-16 16:26 | 只看該作者

回復 3# Andrewfat

試試看!

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

中學生 Rank: 2

帖子: 3
主題: 1
精華: 0
積分: 54
點名: 0
作業系統: Window10
軟體版本: office365
閱讀權限: 20
註冊時間: 2020-10-21
最後登錄: 2022-6-1

3^#

發表於 2021-10-16 12:00 | 只看該作者

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

大學生 Rank: 4

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

熱烈參與勳章

2^#

發表於 2021-10-15 17:06 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/590074934

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。

返回列表下一主題上一主題