[發問] 篩選資料並且放到新的Sheet裡

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

2^#

發表於 2011-3-23 15:38 | 顯示全部帖子

回復 2# GBKEE

謝謝GBKEE 前輩願意幫我寫!^^誠心的謝謝謝你!
我試了一下無法將全部結果跑出來耶!
請問我應該將程式碼貼在哪一個Sheet中呢?
執行的時候有跳出一個MsgBox"股票代碼有誤"!
拜託您了!

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

3^#

發表於 2011-3-23 17:15 | 顯示全部帖子

回復 4# Hsieh

謝謝Hsieh 前輩!
再跑出來的結果裡，第一筆資料是黑松是20100719~20100629，但我想要的結果是20100719~20100806~
請問我這樣需要改哪一個地方?我有試著更改，但無法跑出來。另外在請教一下，如果我接下的資料更改，像是把報酬率換成每股盈餘，
而我同樣是要用程式抓出除息日後14天得資料，是否把程式碼貼上即可!(資料格式一樣)
感謝您的幫忙!

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

4^#

發表於 2011-3-23 18:17 | 顯示全部帖子

回復 6# Hsieh

  請問Hsieh 前輩~
這兩次的程式碼差別最主要是"x = Application.Max(3, C.Row - 14)"嗎?代表意思是?!
如果我要改抓除息日後30日的報酬是不是將部分程式碼改掉即可?!
If Not C Is Nothing And Not B Is Nothing Then
x = Application.Max(3, C.Row - 14)
Set B1 = .[A1:A2]
Set B2 = B.Resize(2, 1)
Set Rng = .Cells(x, 1).Resize(30, 1)
Set Rng1 = .Cells(x, B.Column).Resize(30, 1)
With sht
   B1.Copy .Cells(r, k)
   B2.Copy .Cells(r, k + 1)
   Rng.Copy .Cells(r + 2, k)
   Rng1.Copy .Cells(r + 2, k + 1)
End With
k = IIf(k = 255, 1, k + 2)
r = IIf(k = 1, r + 33, r)
Else
MsgBox "無此除權資料"

謝謝您!

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

5^#

發表於 2011-3-23 18:20 | 顯示全部帖子

回復 7# GBKEE

謝謝前輩!^^

報酬率(test).rar (309.77 KB)

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

6^#

發表於 2011-3-23 18:42 | 顯示全部帖子

回復 11# GBKEE

成功了!
前輩您所寫的程式是不是只能單獨選一支股票?

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

7^#

發表於 2011-3-23 18:52 | 顯示全部帖子

回復 14# GBKEE

不好意思~是我表達的不過清楚!
我的訴求是要將十年每股的資料全部抓至一個新的SHEET中!
就像是Hsieh 前輩所寫的程式那樣!
Hsieh 前輩的程式也以幫我解決我的問題!
很謝謝您的幫忙~^^

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

8^#

發表於 2011-3-23 20:17 | 顯示全部帖子

回復 16# GBKEE

這樣就跟Hsieh 所寫的一樣了!
一樣的結果，有不同的寫法!
VBA真的是太厲害了!
我還需要時間來研究一下這些程式碼!
以便我日後可以更改所要抓取的資料!
前輩們真的都很厲害耶!
謝謝您唷!

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

9^#

發表於 2011-3-26 16:02 | 顯示全部帖子

回復 6# Hsieh

請問前輩：
如果我要將原本的結果改成附檔那樣的方式呈現，我應該改哪個地方的程式碼呢?(附檔的Sheet2)
是這個地方嗎?
   B1.Copy .Cells(r, k)
   B2.Copy .Cells(r, k + 1)
   Rng.Copy .Cells(r + 2, k)
   Rng1.Copy .Cells(r + 2, k + 1)
謝謝您!

股價報酬率.rar (307.58 KB)

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

10^#

發表於 2011-3-26 16:49 | 顯示全部帖子

回復 18# Hsieh

謝謝前輩!又幫我解決一個問題了!
真的非常感謝您!
^^