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

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

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

13^#

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

回復 10# Hsieh

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

TOP

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

15^#

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

回復 14# FAlonso

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

TOP

FAlonso

中學生 Rank: 2

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

16^#

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

回復 FAlonso

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

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

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

TOP

linshin1999

中學生 Rank: 2

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

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

17^#

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

本帖最後由 linshin1999 於 2011-1-17 19:26 編輯

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

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