123
返回列表 上一主題 發帖

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

FAlonso

帖子
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 編輯

首先解決格子底色問題
用下列程式試試其顏色編號
  1. Sub abc()
  2. Dim i
  3. i = Sheet1.Range("A1").Interior.ColorIndex '修改目標地址
  4. MsgBox i
  5. End Sub
複製代碼
然後
  1. Option Explicit
  2. Sub choosesheet()
  3. Dim myyear As String, mystock As String
  4. Dim myfind As Range, myrange As Range, mycell As Range

  6. thisworkbook.activate

  8. myyear = Application.InputBox(myyear, "Enter year")

  10. If IsNumeric(myyear) Then
  11.     If myyear < 2001 Or myyear > 2010 Then
  12.     MsgBox "Out of Range"
  13.     Exit Sub
  14.     Else
  15.     Sheets(myyear).Activate
  16.     End If
  17. Else
  18. MsgBox "Not A Number"
  19. Exit Sub
  20. End If

  22. mystock = Application.InputBox(mystock, "Enter Stock Name")

  24. With Sheets(myyear)
  25. Set myfind = .Rows(1).Find(what:=mystock, after:=.[b1], lookat:=xlPart)
  26. If myfind Is Nothing Then
  27. MsgBox "No Findings"
  28. Else
  29. Set myrange = .Range(myfind, myfind.End(xlDown))

  31. For Each mycell In myrange
  32. If mycell.Interior.ColorIndex = 6 Then
  33. mycell.Activate
  34. Exit For
  35. End If
  36. Next

  38. End If
  39. End With
  40. End Sub
複製代碼
輸入年份及其股票代號或名稱,該程式便會去到指定黃式格子
請肯定每個column只有一個黃色格子而已,如果不是此程式需要作修改,類似findnext + loop xxxx<>xxx.address之類的
有問題再call我
80 字節以內
不支持自定義 Discuz! 代碼

TOP

candy516

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

帖子
47 
主題
5 
精華
0 
積分
116 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2011-1-14 
最後登錄
2012-3-10 
12#
發表於 2011-1-17 16:54 | 只看該作者
回復 5# oobird


    謝謝你的幫忙!

TOP

candy516

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

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

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

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

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

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

        靜思自在 : 忘功不忘過，忘怨不忘恩。
123
返回列表 上一主題