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

PD961A

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

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

GBKEE

回復 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)"

PD961A

回復 13# Hsieh


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

下載 (107.06 KB)

2010-7-15 12:51

Hsieh

回復 12# PD961A
1.rar (10.87 KB)

下載次數: 4

2010-7-15 10:57

以第一列顏色做判斷
先定義名稱x

下載 (11.81 KB)

2010-7-15 11:13

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([A1], [IV1].End(xlToLeft))
   
4. d(a.Value) = a.Interior.ColorIndex
   
5. Next
   
6. [x].Interior.ColorIndex = 0
   
7. If Intersect(Target, Union([x], Range([A1], [IV1].End(xlToLeft)))) Is Nothing Then Exit Sub
   
8.    For Each a In [x]
   
9.      a.Interior.ColorIndex = d(a.Value)
   
10.    Next
    
11. End Sub

複製代碼

PD961A

回復 6# GBKEE


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

下載 (26.95 KB)

2010-7-15 09:31

下載 (147.59 KB)

2010-7-15 09:32

PD961A

回復 10# victorl
回復 9# kimbal

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

下載 (102.02 KB)

2010-7-15 09:27

謝謝您們的回文

victorl

回復 9# kimbal


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

kimbal

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

    我也來解解鈴吧 , 顏色跟第一行的一樣
twbts20100715format.zip (12.22 KB)

下載次數: 5

2010-7-15 00:31

victorl

回復 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

Hsieh

回復 5# PD961A


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