[發問] 錄製的程式碼，執行產生BUG

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

6^#

發表於 2019-12-8 16:52 | 只看該作者

本帖最後由 ziv976688 於 2019-12-8 16:53 編輯

回復 5# 准提部林
准提版主 : 您好!
因為原格式化的條件公式以"手動"操作時，顏色標示都沒有問題，只是以"按鈕"執行錄製的程式碼時，顏色標示才會有BUG，所以我沒有考慮到公式會是陣列

貴解題公式經"手動"和"按鈕"操作測試後，顏色標示完全正確。
謝謝您!感恩

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

5^#

發表於 2019-12-8 10:26 | 只看該作者

With Range("BB17:BK80")
.Select
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=MMULT(1,MIN(OFFSET(BB$16,ROW($1:$10)*7-7,))/($BA17=""最小"")/(BB16<5))=BB16"
.FormatConditions(1).Font.ColorIndex = 3
.FormatConditions(1).Interior.ColorIndex = 40
.FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=MMULT(1,MIN(OFFSET(BB$16,ROW($1:$10)*7-7,))/($BA17=""最小""))=BB16"
.FormatConditions(2).Font.ColorIndex = 10
.FormatConditions(2).Interior.ColorIndex = 40
.FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=($BA17=""最小"")*(BB16<10)"
.FormatConditions(3).Font.ColorIndex = 10
End With

應該是陣列公式的問題, 必須手動再確定,
改成一般公式~~

========================

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

4^#

發表於 2019-12-7 05:49 | 只看該作者

本帖最後由 ziv976688 於 2019-12-7 06:02 編輯

測試檔的內容和操作說明 :
1_Sheet1&Sheet2的BB17:BK80之3個格式化條件公式都相同。
2_在Sheet1設立1個執行按鈕鍵。
3_將Sheet1的3個格式化條件公式錄製巨集。
4_Sheet2格式化條件公式的顏色標示，留作比對用。

問題 :
按Sheet1的執行按鈕鍵後，其BB :BE欄的標示不正確(即與Sheet2的留底顏色標示不同)。

請問 :
Sheet1錄製的巨集程式碼，哪裡有錯誤 ? 要如何修正 ?
謝謝 !

PS :
因為Sheet1如果是選取BB17:BK80後，點上方工具列的"格式"，再點"設定格式化的條件"，再點確定後，則Sheet1的顏色標示就完全正確(即與Sheet2的留底顏色標示完全相同)，
所以認為3個格式化的條件公式，應該是沒有問題。

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 2019-12-6 14:02 | 只看該作者

本帖最後由 ziv976688 於 2019-12-6 14:10 編輯

說明的筆誤修正 :
選取BB17:BX80修正為選取BB17:BK80
格式往右複製到BX欄修正為格式往右複製到BK欄
謝謝 !
===========================================
Sheet1錄製的程式碼如下 :

Sub Macro1()
'
' Macro1 Macro
' MC SYSTEM 在 2019/12/6 錄製的巨集
'

'
Range("BB17:BK80").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=(MIN(IF((MOD(ROW($16:$79),7)=2),BB$16:BB$79))=BB16)*(MOD(ROW(BB16),7)=2)*(BB16<5)"
Selection.FormatConditions(1).Font.ColorIndex = 3
Selection.FormatConditions(1).Interior.ColorIndex = 40
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=(MIN(IF((MOD(ROW($16:$79),7)=2),BB$16:BB$79))=BB16)*(MOD(ROW(BB16),7)=2)"
Selection.FormatConditions(2).Font.ColorIndex = 10
Selection.FormatConditions(2).Interior.ColorIndex = 40
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=(MOD(ROW(BB16),7)=2)*(BB16<10)"
Selection.FormatConditions(3).Font.ColorIndex = 10

End Sub

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

2^#

發表於 2019-12-6 08:31 | 只看該作者

本帖最後由 ziv976688 於 2019-12-6 08:46 編輯

補充3個條件公式的邏輯 :
選取BB17:BX80
條件1 :
當BB欄的(ROW(16:79)/7)餘數=2的各列之最小值且且<5時，則將其同欄的下一個儲存格標示40號底色+紅色字體。
條件2 :
當BB欄的(ROW(16:79)/7)餘數=2的各列之最小值時，則將其同欄的下一個儲存格標示40號底色+綠色字體。
條件3 :
當BB欄的(ROW(16:79)/7)餘數=2的各列之值<10時，則將其同欄的下一個儲存格標示綠色字體。

格式往右複製到BX欄。
謝謝 !