12 3 下一頁

返回列表下一主題上一主題發帖

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

candy516

中學生 Rank: 2

帖子: 47
主題: 5
精華: 0
積分: 116
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2011-1-14
最後登錄: 2012-3-10

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-1-16 15:53 | 只看該作者

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

本帖最後由 candy516 於 2011-1-16 23:55 編輯

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

test(2003).rar (369.9 KB)

樓主熱帖

linshin1999

中學生 Rank: 2

帖子: 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 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

candy516

中學生 Rank: 2

帖子: 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: 8 Rank: 8

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

論壇貢獻勳章

5^#

發表於 2011-1-17 08:20 | 只看該作者

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

TOP

linshin1999

中學生 Rank: 2

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

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2011-1-17 09:25 | 只看該作者

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

V98

TOP

linshin1999

中學生 Rank: 2

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

論壇贊助勳章論壇榮譽勳章

7^#

發表於 2011-1-17 09:37 | 只看該作者

回復 4# candy516

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

V98

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

8^#

發表於 2011-1-17 10:40 | 只看該作者

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

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

TOP

linshin1999

中學生 Rank: 2

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

論壇贊助勳章論壇榮譽勳章

9^#

發表於 2011-1-17 14:47 | 只看該作者

回復 8# oobird

謝了!!

V98

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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