請問：如何尋找黃色底色的儲存格?!

candy516

各位大大你們好~
請問要如何尋找黃色底色的儲存格呢?
我現在可以尋找的儲存個的內容~
(比方說找到:鴻海:)
Cells.Find(What:="鴻海", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
但還是無法寫出"找出黃底的儲存格"?
請問我該改哪裡呢?
:(

linshin1999

回復 1# candy516

Sub 尋找符合條件的儲存格()
    Dim rg As Range
    Dim find_str As String
   
    find_str = "鴻海"
    For Each rg In ActiveSheet.UsedRange
        If rg.Value Like find_str Then
             Union(Selection, rg).Select
        End If
    Next
End Sub

oobird

Application.FindFormat.Interior.ColorIndex = 6
Cells.Find(What:="", After:=[a1], SearchDirection:=xlNext, SearchFormat:=True).Select

candy516

大大你們好~
    根據以上兩位大大的方法我還是無法正確找出黃色底色的儲存格，
在此我附上檔案，我舉例一下：像是2010的SHEET中，A欄的1225 福懋油，
黃底是在2010/9/7，我必須先用程式找出這一個儲存格，然後再去作運算!
    可是我試了好久，都沒辦法找出來耶!:(
謝謝你們耐心回答~

oobird

Sub YY()
Application.FindFormat.Interior.ColorIndex = 6
With ActiveSheet
For i = 1 To .Columns.Count
Set c = .Columns(i).Find(What:="", After:=.Cells(65536, i), SearchDirection:=xlNext, SearchFormat:=True)
If Not c Is Nothing Then MsgBox c.Address
Next
End With
End Sub

linshin1999

木工版主你好:有關 Interior.ColorIndex 那裡可以找到 List, 如果知道請告知,謝謝!!

linshin1999

回復 4# candy516


    candy妳好:首先妳要確定 ColorIndex 是不是木工版主所提供的 "6", 因為黃色有很多種黃,如果是在這裡出問題那可會讓妳白忙了,看了木工版主的程式應該没問題,我提供給妳的是已經知道儲存格的內容,所以用 "鴻海" 去找, 因為妳並没提供 ColorIndex 值, 妳也可以用木工版主的程式,然後將 ColorIndex 改一改試試看.

oobird

木工版主你好:有關 Interior.ColorIndex 那裡可以找到 List, 如果知道請告知,謝謝!!
linshin1999 發表於 2011-1-17 09:25

    For I = 1 To 56
Cells(I, 1).Interior.ColorIndex = I
Next
這樣跑一下就有了

linshin1999

回復 8# oobird


    謝了!!

Hsieh

回復 4# candy516

因為2007與2003對顏色的設定差別相當大
所以除非你是以儲存格格式做搜尋
若以colorindex值搜尋就會失去準確性
所以在妳另一帖中我以sheet1數據來搜尋會比較準確