123
返回列表 上一主題 發帖

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

candy516

帖子
47 
主題
5 
精華
0 
積分
116 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2011-1-14 
最後登錄
2012-3-10 
4# 跳轉到 »
發表於 2011-1-17 00:00 | 只看該作者
本帖最後由 candy516 於 2011-1-17 00:12 編輯

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2011-1-16 20:51 | 只看該作者
Application.FindFormat.Interior.ColorIndex = 6
Cells.Find(What:="", After:=[a1], SearchDirection:=xlNext, SearchFormat:=True).Select

TOP

linshin1999

帖子
199 
主題
45 
精華
0 
積分
252 
點名
0  
作業系統
windows 7 (X64) 
軟體版本
office 2010 (x64) 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2010-12-24 
最後登錄
2020-3-31 

論壇贊助勳章論壇榮譽勳章
2#
發表於 2011-1-16 20:34 | 只看該作者
回復 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
V98

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
123
返回列表 上一主題