加權指數歷史資料之排序問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 加權指數歷史資料之排序問題

返回列表下一主題上一主題發帖

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

超級版主 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
因為修改了檔案,所以沒貼上程式碼,加油一下就可以下載

超級版主 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)

　頭銜: 麻辣路人甲

大學生 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

複製代碼

靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。

返回列表下一主題上一主題