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

candy516

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

candy516

回復 22# Hsieh


你好~
請問篩選是要用Selection.AutoFilter嗎?
再請問前輩，是否能夠篩選出2001~2010在10(天)內填權的股票，
然後再將篩選出來的結果放到一個新的Sheet(照日期排序)?!
另外，冒昧的在請問一下，填權天數的變數是從哪裡到哪?
有部分的程式對我來說太深奧了!= =
謝謝你的幫忙!

Hsieh

回復 21# candy516
利用填權程式中計算天數的變數做判斷就可以

candy516

回復 20# FAlonso


大大你好~
填權日數目前已經解決了!
我目前所碰到的問題是說：要如何篩選出有再"10"天內完成填權的股票。
所以我目前再研究如何篩選資料，進度有點慢!= =
謝謝你的幫忙!
^^

FAlonso

回復  FAlonso


喔~原來是這個意思呀!
第二個程式也很厲害耶!
大家都好厲害唷!
^^
candy516 發表於 2011-1-17 21:34

關於那個填權日數,我遲些寫一個程式給你

candy516

回復 17# linshin1999


    linshin1999 你好~
也是非常謝謝你告訴我另一種方法!
大家的都好有耐心的回答我!
謝謝你們!

candy516

回復 16# FAlonso


喔~原來是這個意思呀!
第二個程式也很厲害耶!
大家都好厲害唷!
^^

linshin1999

candy妳好:我學會了取得儲存格顏色的方法,如果一定要用顏色找的話,可以試試看:

Dim mycolor As long
      mycolor = Activecell.Interior.color

如此妳就可以取得目前儲存格的顏色,然後將這個值帶進去木工版主的程式去試試看吧!
Sub YY()
Application.FindFormat.Interior.ColorIndex = Activecell.Interior.color
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

原來已經找到答案了,我没有看到還有第二頁,真不好意思,可是已經收不回來了,不過也學會了如何取得儲存格的顏色!

FAlonso

回復  FAlonso


你好~
請問我執行完第一個程式碼他跑出的訊息是"4142"這是什麼意思?!
謝謝你的回答! ...
candy516 發表於 2011-1-17 18:05

指格子是"無填滿".即default的color index
該程式是偵察出黃色的編號,不用猜
我第二個程式,你覺得怎樣?

candy516

回復 14# FAlonso


你好~
請問我執行完第一個程式碼他跑出的訊息是"4142"這是什麼意思?!
謝謝你的回答!
^^