123
返回列表 上一主題 發帖

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

candy516

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

收藏 分享

candy516

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


你好~
請問篩選是要用Selection.AutoFilter嗎?
再請問前輩，是否能夠篩選出2001~2010在10(天)內填權的股票，
然後再將篩選出來的結果放到一個新的Sheet(照日期排序)?!
另外，冒昧的在請問一下，填權天數的變數是從哪裡到哪?
有部分的程式對我來說太深奧了!= =
謝謝你的幫忙!

TOP

Hsieh

帖子
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兔年全勤獎章
22#
發表於 2011-1-18 08:32 | 只看該作者
回復 21# candy516
利用填權程式中計算天數的變數做判斷就可以
學海無涯_不恥下問

TOP

candy516

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


大大你好~
填權日數目前已經解決了!
我目前所碰到的問題是說：要如何篩選出有再"10"天內完成填權的股票。
所以我目前再研究如何篩選資料，進度有點慢!= =
謝謝你的幫忙!
^^

股票股利未調整收盤價(OK).rar (906.87 KB)

TOP

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
20#
發表於 2011-1-17 21:40 | 只看該作者
回復  FAlonso


喔~原來是這個意思呀!
第二個程式也很厲害耶!
大家都好厲害唷!
^^
candy516 發表於 2011-1-17 21:34

關於那個填權日數,我遲些寫一個程式給你
80 字節以內
不支持自定義 Discuz! 代碼

TOP

candy516

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


    linshin1999 你好~
也是非常謝謝你告訴我另一種方法!
大家的都好有耐心的回答我!
謝謝你們!

TOP

candy516

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


喔~原來是這個意思呀!
第二個程式也很厲害耶!
大家都好厲害唷!
^^

TOP

linshin1999

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

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

TOP

FAlonso

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

candy516

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


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

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
123
返回列表 上一主題