12
返回列表 上一主題 發帖

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

cudui

帖子
25 
主題
4 
精華
0 
積分
50 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-3-31 
最後登錄
2014-6-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-4-18 18:14 | 只看該作者

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

vba, 排序
各位大大,

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

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

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

bbojj

帖子
19 
主題
3 
精華
0 
積分
21 
點名
0  
作業系統
XP 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-4-21 
最後登錄
2012-5-22 
13#
發表於 2012-4-21 10:14 | 只看該作者
可以將每一個儲存格之前都加上來源，例如 Range("A1") ==> Sheets("1").Range("A1")，這樣比較不會以後再執行程式碼的時候出現的結果不是自己想要的

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2012-4-19 20:27 | 只看該作者
回復 12# register313
[A2]=""                     ==> 目前作用之工作表  之 A2儲存格 =""

程式碼  在 ThisWorkbook  或一般模組  是在 作用之工作表 沒錯的
但 程式碼如是在 工作表物件模組 是這一個工作表的A2儲存格 不是指作用中之工作表

TOP

cudui

帖子
25 
主題
4 
精華
0 
積分
50 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-3-31 
最後登錄
2014-6-8 
11#
發表於 2012-4-19 19:18 | 只看該作者
回復 12# register313


瞭解了!

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

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

cudui

帖子
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會有不同嗎??
  1. 01.With Sheets("加權歷史行情-排序後")

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

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

TOP

GBKEE

帖子
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 陳述式    在一個單一物件或一個使用者自訂型態上執行一系列的陳述式。
  1. Sub Ex()
  2.     With Range("A1")
  3.         .Interior.ColorIndex = 5       '製定儲存格內部色彩在色盤中的索引值
  4.         .Value = .Interior.ColorIndex   '儲存格的值=內部色彩在色盤中的索引值
  5.     End With
  6. End Sub
複製代碼

TOP

cudui

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

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個.
  1. With Sheets("加權歷史行情-排序後")
  2.   .Range(.[A2], .[G2].End(xlDown)) = ""
  3.   .[A2].Resize(j - 1, 7) = arr
  4.   .[A1].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
  5.   .Range(.[B2], .[G2].End(xlDown)).NumberFormatLocal = "#,##0.00"
  6. End With
複製代碼
在任何工作表下執行都可以

TOP

cudui

帖子
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中執行巨集??
  1. Sheets("加權歷史行情-排序後").Activate

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

TOP

        靜思自在 : 君子為目標，小人為目的。
12
返回列表 上一主題