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

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

14^# 跳轉到 »

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

本帖最後由 FAlonso 於 2011-1-17 17:22 編輯

首先解決格子底色問題
用下列程式試試其顏色編號

Sub abc()
Dim i
i = Sheet1.Range("A1").Interior.ColorIndex '修改目標地址
MsgBox i
End Sub

複製代碼

然後

Option Explicit
Sub choosesheet()
Dim myyear As String, mystock As String
Dim myfind As Range, myrange As Range, mycell As Range
thisworkbook.activate
myyear = Application.InputBox(myyear, "Enter year")
If IsNumeric(myyear) Then
If myyear < 2001 Or myyear > 2010 Then
MsgBox "Out of Range"
Exit Sub
Else
Sheets(myyear).Activate
End If
Else
MsgBox "Not A Number"
Exit Sub
End If
mystock = Application.InputBox(mystock, "Enter Stock Name")
With Sheets(myyear)
Set myfind = .Rows(1).Find(what:=mystock, after:=.[b1], lookat:=xlPart)
If myfind Is Nothing Then
MsgBox "No Findings"
Else
Set myrange = .Range(myfind, myfind.End(xlDown))
For Each mycell In myrange
If mycell.Interior.ColorIndex = 6 Then
mycell.Activate
Exit For
End If
Next
End If
End With
End Sub

複製代碼

輸入年份及其股票代號或名稱,該程式便會去到指定黃式格子
請肯定每個column只有一個黃色格子而已,如果不是此程式需要作修改,類似findnext + loop xxxx<>xxx.address之類的
有問題再call我

80 字節以內
不支持自定義 Discuz! 代碼

TOP

candy516

中學生 Rank: 2

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

13^#

發表於 2011-1-17 16:57 | 只看該作者

回復 10# Hsieh

原來2003和2007還有這樣的分別啊!
對於我這樣的初學者來說，讓我有多學會一個知識!
真是多虧你的幫忙!^^

TOP

candy516

中學生 Rank: 2

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

12^#

發表於 2011-1-17 16:54 | 只看該作者

回復 5# oobird

謝謝你的幫忙!

TOP

candy516

中學生 Rank: 2

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

11^#

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

回復 7# linshin1999

是ColorIndex 是6沒有錯!

真心的謝謝你的幫忙!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2011-1-17 16:33 | 只看該作者

回復 4# candy516

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

學海無涯_不恥下問

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

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

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

7^#

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

回復 4# candy516

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

V98

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]