帖子: 25
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-3-31
最後登錄: 2014-6-8

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-4-18 18:14 | 只看該作者

加權指數歷史資料之排序問題

各位大大,

附件是可以設定要"擷取連續幾個月份"的加權指數歷史股價資料,
現在的問題是,
資料已經可以抓得下來,
但是...卻不知道怎樣寫VBA讓它進行排序,並刪除不必要的行列...
(有一個"排序後"的sheet,就是希望達到的結果!!)

拜請各位大大指教!!!
謝謝了!!

加權歷史行情排序.rar (21.7 KB)

樓主熱帖

新手上路

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-4-18 22:03 | 只看該作者

回復 1# cudui

Sub yy()
c = Array(1, 2, 3, 4, 5, 11, 14)
With Sheets("加權歷史行情原始檔")
.[A9:E9].Copy Sheets("加權歷史行情-排序後").[A1]
.[K9].Copy Sheets("加權歷史行情-排序後").[F1]
.[N9].Copy Sheets("加權歷史行情-排序後").[G1]
n = .[a65536].End(xlUp).Row
a = .Range(.Cells(1, 1), .Cells(n, 14))
ReDim arr(1 To UBound(a), 1 To 7)
x = 1
For j = 1 To UBound(a)
For i = 1 To 7
If Mid(.Cells(j, 1), 4, 1) <> "/" Then
GoTo 123
Else: arr(x, i) = a(j, c(i - 1))
End If
Next i
x = x + 1
123
Next j
End With
With Sheets("加權歷史行情-排序後")
.Range([A2], [G2].End(xlDown)) = ""
.[A2].Resize(j - 1, 7) = arr
.[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
.Range([B2], [G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
End With
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-4-19 11:25 | 只看該作者

回復 1# cudui
修改一下

加權歷史行情.rar (15.27 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-4-19 14:14 | 只看該作者

回復 5# cudui
因為修改了檔案,所以沒貼上程式碼,加油一下就可以下載

TOP

cudui

中學生 Rank: 2

帖子: 25
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-3-31
最後登錄: 2014-6-8

5^#

發表於 2012-4-19 16:37 | 只看該作者

回復 2# register313

請問大大:

為什麼我如果要在"加權歷史行情原始檔"的sheet中執行這個巨集,
則會出現"應用程式或物件定義上的錯誤",
(在Sheets("加權歷史行情-排序後")中執行則不會有此問題....)

我試過,需要額外加上一行:
Sheets("加權歷史行情-排序後").Activate
才能在原始檔sheets中執行巨集??

Sheets("加權歷史行情-排序後").Activate
With Sheets("加權歷史行情-排序後")
.Range([A2], [G2].End(xlDown)) = ""
.[A2].Resize(j - 1, 7) = arr
.[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
.Range([B2], [G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
End With

複製代碼

究竟我應該怎麼改,才比較簡單正確??
謝謝~~

新手上路

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-4-19 16:45 | 只看該作者

回復 7# cudui

是我漏打了4個.

With Sheets("加權歷史行情-排序後")
.Range(.[A2], .[G2].End(xlDown)) = ""
.[A2].Resize(j - 1, 7) = arr
.[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
.Range(.[B2], .[G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
End With

複製代碼

在任何工作表下執行都可以

TOP

cudui

中學生 Rank: 2

帖子: 25
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-3-31
最後登錄: 2014-6-8

7^#

發表於 2012-4-19 17:10 | 只看該作者

回復 8# register313

原來四個"."有差那麼多噢!!!
這四個"."是為了可以讓它在前面自動加"Sheets("加權歷史行情-排序後")"嗎??

新手上路

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2012-4-19 18:04 | 只看該作者

回復 9# cudui
With 陳述式在一個單一物件或一個使用者自訂型態上執行一系列的陳述式。

Sub Ex()
With Range("A1")
.Interior.ColorIndex = 5 '製定儲存格內部色彩在色盤中的索引值
.Value = .Interior.ColorIndex '儲存格的值=內部色彩在色盤中的索引值
End With
End Sub

複製代碼

TOP

cudui

中學生 Rank: 2

帖子: 25
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-3-31
最後登錄: 2014-6-8

9^#

發表於 2012-4-19 18:27 | 只看該作者

回復 10# GBKEE

所以以下這二個敘述, [A2] or [G2]前,有"."和沒 ".", 有可能是參照的sheets會有不同嗎??

01.With Sheets("加權歷史行情-排序後")
02. .Range([A2], [G2].End(xlDown)) = ""

複製代碼

01.With Sheets("加權歷史行情-排序後")
02. .Range(.[A2], .[G2].End(xlDown)) = ""

複製代碼

新手上路

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

10^#

發表於 2012-4-19 19:12 | 只看該作者

回復 11# cudui

With Sheets("加權")
  .[A2] = ""                ==> 加權工作表       之 A2儲存格 =""
  [A2]=""                   ==> 目前作用之工作表  之 A2儲存格 =""
                                       (未述明何工作表則是  目前作用之工作表)
END WITH

TOP