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

樓主熱帖

軒云熊

中學生 Rank: 2

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

中學生 Rank: 2

帖子: 6
主題: 3
精華: 0
積分: 59
點名: 0
作業系統: MIRCOSIOFT
軟體版本: XP
閱讀權限: 20
性別: 男
來自: TAINAI
註冊時間: 2015-7-7
最後登錄: 2024-5-6

3^#

發表於 2021-2-23 20:09 | 只看該作者

雖然不是正解,但多學一招,謝謝你!

TOP

軒云熊

中學生 Rank: 2

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

版主 Rank: 7 Rank: 7 Rank: 7

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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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