PD961A

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-7-14 08:19 | 只看該作者

[發問] 請問當A1輸入數字4時找出下列資料同數字的公式

excel 2003或以前的格式化條件只可以有3種條件, 再加條件的話要用上vba 寫一個格式化條件出來了
kimbal 發表於 2010-7-13 20:39

http://forum.twbts.com/viewthread.php?tid=822
謝謝先進KIMBAL的回文
可以麻煩知道的先進用VBA寫格式化條件嗎?
謝謝..

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

15^#

發表於 2010-7-15 15:15 | 只看該作者

回復 12# PD961A

我將欄位放大所以程式碼直接修正到"L"欄去..可是會無法執行

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OR(A2=$A$1,A2=$B$1,A2=$C$1,A2=$D$1,A2=$E$1,A2=$F$1,A2=$G$1,A2=$H$1,A2=$I$1,A2=$J$1,A2=$K$1,A2=$L$1)"

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2010-7-15 12:52 | 只看該作者

回復 13# Hsieh

版主謝謝您
程式RUN後可以適用
謝謝您

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 208
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-9-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2010-7-15 10:58 | 只看該作者

本帖最後由 Hsieh 於 2010-7-15 11:13 編輯

回復 12# PD961A

1.rar (10.87 KB)
以第一列顏色做判斷
先定義名稱x

Private Sub Worksheet_Change(ByVal Target As Range)
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range([A1], [IV1].End(xlToLeft))
d(a.Value) = a.Interior.ColorIndex
Next
[x].Interior.ColorIndex = 0
If Intersect(Target, Union([x], Range([A1], [IV1].End(xlToLeft)))) Is Nothing Then Exit Sub
For Each a In [x]
a.Interior.ColorIndex = d(a.Value)
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2010-7-15 09:32 | 只看該作者

回復 6# GBKEE

謝謝GBKEE版主
照您說的步驟檔案可以適用
但是可以再請問您
我將欄位放大
所以程式碼直接修正到"L"欄去..可是會無法執行
可以請您指導嗎?謝謝您...

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2010-7-15 09:28 | 只看該作者

回復 10# victorl
回復 9# kimbal

謝謝 victorl及 kimbal先進的回文
kimbal您的檔案可以用但是會出現victorl所說的顏色無法消除
不過我把victorl兄寫的程式碼加入後會無法執行

謝謝您們的回文

TOP

victorl

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

10^#

發表於 2010-7-15 01:11 | 只看該作者

回復 9# kimbal

   建議加上一行(紅字)先把既有之顏色消去，若否....第一列(A1~H1)改變數字試試看
            .....
   If c.Row <> 1 Then
         c.Interior.Color = xlNone
         For i = 1 To lngNumCols
            .....

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

9^#

發表於 2010-7-15 00:31 | 只看該作者

謝謝先進KIMBAL的回文
可以麻煩知道的先進用VBA寫格式化條件嗎?
謝謝..
PD961A 發表於 2010-7-14 08:19

我也來解解鈴吧

, 顏色跟第一行的一樣

twbts20100715format.zip (12.22 KB)

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

victorl

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

8^#

發表於 2010-7-15 00:07 | 只看該作者

回復 5# PD961A

小弟我用比較笨的作法，不過呢是可以達到您要的效果就是了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each a In Range(Me.[a2], Me.[h17])
      Select Case a
         Case Me.[a1]
            a.Interior.ColorIndex = 3
         Case Me.[b1]
            a.Interior.ColorIndex = 4
         Case Me.[c1]
            a.Interior.ColorIndex = 5
         Case Me.[d1]
            a.Interior.ColorIndex = 6
         Case Me.[e1]
            a.Interior.ColorIndex = 7
         Case Me.[f1]
            a.Interior.ColorIndex = 8
         Case Me.[g1]
            a.Interior.ColorIndex = 9
         Case Me.[h1]
            a.Interior.ColorIndex = 10
         Case Else
            a.Interior.Pattern = xlNone
      End Select
Next
End Sub

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 208
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-9-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2010-7-14 22:02 | 只看該作者

回復 5# PD961A

如果你是2003版以前版本要用條件格式是不能做到3種條件以上
回一般區看原發文有沒有得到解答
如果沒有那就把需求說清楚

學海無涯_不恥下問

TOP