返回列表 上一主題 發帖

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

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

各位大大,

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

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

加權歷史行情排序.rar (21.7 KB)
新手上路

回復 2# register313


請問大大:

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

應用程式或物件定義上的錯誤

2012-04-19_163131.jpg
2012-4-19 16:32



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

  2.    With Sheets("加權歷史行情-排序後")
  3.      .Range([A2], [G2].End(xlDown)) = ""
  4.      .[A2].Resize(j - 1, 7) = arr
  5.      .[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
  6.      .Range([B2], [G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
  7.    End With
複製代碼
究竟我應該怎麼改,才比較簡單正確??
謝謝~~
新手上路

TOP

回復 8# register313

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

TOP

回復 10# GBKEE

所以以下這二個敘述, [A2] or [G2]前,有"."和沒 ".", 有可能是參照的sheets會有不同嗎??
  1. 01.With Sheets("加權歷史行情-排序後")

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

  2. 02.  .Range(.[A2], .[G2].End(xlDown)) = ""
複製代碼
新手上路

TOP

回復 12# register313


瞭解了!

我原先是錯以為在  With Sheets("加權")   END With 底下就會自動 使用 "加權"工作表...
新手上路

TOP

        靜思自在 : 一個缺口的杯子,如果換一個角度看它,它仍然是圓的。
返回列表 上一主題