如何使excel儲存格數值更改後該儲存格自動變色?

excel excel vba vba

sasa71304 2019-05-24 16:25:57 ‧ 19671 瀏覽

分享至

假設我共有AB兩列，
B列設有公式，顯示的數值會隨A列數值變動。

想請問有辦法一旦更改A列數值，
B列數值跟著變動時，(B列)儲存格也跟著自動變色嗎?

爬文看到的幾個方法:

追蹤修訂
因為不是直接修改B列的數值，
即使數值有變也不會出現標記
使用VBA代碼修訂
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.Color = vbYellow
End Sub
用了儲存格還是不會變色
用格式化規則來訂
這種好像只能適用有另一個儲存格做為比較值的狀況?

如果有知道其他方法的大大可以不吝指教，
幫幫我嗎QQ 感激不盡阿~~

ccutmis iT邦高手 2 級 ‧ 2019-05-24 16:29:51 檢舉

是這個嗎?
http://scenic0327-tek.blogspot.com/2012/07/excel.html

sasa71304 iT邦新手 5 級 ‧ 2019-05-28 09:09:14 檢舉

我有看到這個~但因為我不是要和某個固定值比較，是只要更改A列、B列數字一有變動，儲存格就會顯示顏色。請問這樣的話仍然可以用設定格式化條件來設定嗎?

blanksoul12 iT邦研究生 5 級 ‧ 2021-02-19 16:41:48 檢舉

Private Sub Worksheet_Change(ByVal Target As Range)
if target.column = 1 then
if target.count =1 then
Target.offset(0,1).Interior.Color = vbYellow
end if
end if
End Sub
這個是不論A列內的格子有否變動也是令到B列變色的

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2019-05-24 16:48:03

只要修改第1列的任何一個儲存格的值
整個第2列就會改成黃色

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 Then
       Range("2:2").Interior.Color = vbYellow
    End If
End Sub

你試過之後就會發現
寫這段程式沒什麼意義
因為只會改一次顏色

回應 1
分享
檢舉

sasa71304 iT邦新手 5 級 ‧ 2019-05-28 09:27:59 檢舉

如果是像上圖，
我想要做成若A1數值變了，但B1沒變(例如A1由1變成2，B1仍為1)則不需改變儲存格顏色。

若A1數值變時B1也跟著改變(例如A1由1變成3，B1變為2)時儲存格就會變色，想請問這樣有方法做到嗎?

登入發表回應

小魚

iT邦大師 1 級 ‧ 2019-05-24 17:44:41

設定格式化的條件

回應 1
分享
檢舉

sasa71304 iT邦新手 5 級 ‧ 2019-05-28 09:10:23 檢舉

您好，因為我不是要和某個固定值比較，是只要更改A列、B列數字一有變動，儲存格就會顯示顏色。

像上圖，若A1數值變了，但B1沒變(例如A1由1變成2，B1仍為1)則不需改變儲存格顏色。

若A1數值變時B1也跟著改變(例如A1由1變成3，B1變為2)時儲存格就會變色，想請問這樣有方法做到嗎?

登入發表回應

Denny Chang

iT邦新手 2 級 ‧ 2019-05-27 15:53:45

選取第二欄>設定格式化條件>新增規則

回應 2
分享
檢舉

sasa71304 iT邦新手 5 級 ‧ 2019-05-28 09:08:27 檢舉

您好，因為我不是要和某個固定值比較，是只要更改A列、B列數字一有變動，儲存格就會顯示顏色。

像上圖，若A1數值變了，但B1沒變(例如A1由1變成2，B1仍為1)則不需改變儲存格顏色。

若A1數值變時B1也跟著改變(例如A1由1變成3，B1變為2)時儲存格就會變色，想請問這樣有方法做到嗎?

黃阿佐 iT邦新手 5 級 ‧ 2019-08-05 00:42:53 檢舉

你可以把你的操作條件更明確的描述，我可以協助你！
(雖然事隔不知道多久了...)

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22195 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙