返回列表 上一主題 發帖

[發問] 使用VBA程式自動設定格式化條件變成無法變色

kuan-007

帖子
6 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
MIRCOSIOFT 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
TAINAI 
註冊時間
2015-7-7 
最後登錄
2024-5-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-2-22 21:05 | 只看該作者

[發問] 使用VBA程式自動設定格式化條件變成無法變色

使用VBA程式自動設定格式化條件變成無法變色.

     來源範圍 = "$" & "D" & "$" & 數字          '帶入此變數設定格式化條件變成無法變色
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:=(來源範圍)                                                            '帶入此變數設定格式化條件變成無法變色
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

請問各位先進是那裡出錯? 請您教導,謝謝! 原物料量內控表.rar (243.24 KB)
收藏 分享

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-9-23 
2#
發表於 2021-2-22 22:02 | 只看該作者
回復 1# kuan-007

有空幫我試試看是不是你要的  感謝

原物料量內控表.rar (37.22 KB)

TOP

kuan-007

帖子
6 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
MIRCOSIOFT 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
TAINAI 
註冊時間
2015-7-7 
最後登錄
2024-5-6 
3#
發表於 2021-2-23 20:09 | 只看該作者
雖然不是正解,但多學一招,謝謝你!

TOP

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-9-23 
4#
發表於 2021-2-23 20:26 | 只看該作者
本帖最後由 軒云熊 於 2021-2-23 20:29 編輯

回復 3# kuan-007

抱歉 kuan-007大大  如果有多餘的時間 可以告訴我問題出在哪裡嗎?  我想知道你要的結果 因為我也是順便練習 希望我們可以互相幫助 謝謝你

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
5#
發表於 2021-2-23 21:22 | 只看該作者
回復 1# kuan-007


來源範圍 = "$" & "D" & "$" & 數字
這是文字變數

若要設成範圍變數
set 來源範圍 = Range("$" & "D" & "$" & 數字)
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-19 
6#
發表於 2021-2-24 11:56 | 只看該作者
來源範圍 = "$D$" & 數字
    With Cells(數字, 英文).FormatConditions
         .Delete
         .Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=" & 來源範圍  '大于
         .Parent.FormatConditions(1).Font.ColorIndex = 3
         .Parent.FormatConditions(1).Interior.ColorIndex = 6
         .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=" & 來源範圍  '等于
         .Parent.FormatConditions(2).Font.ColorIndex = 5
         .Parent.FormatConditions(2).Interior.ColorIndex = 8
         .Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=" & 來源範圍   '小于
         .Parent.FormatConditions(3).Font.ColorIndex = 7
         .Parent.FormatConditions(3).Interior.ColorIndex = 10
    End With

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題