返回列表 上一主題 發帖

[發問] 依次記錄各股殖利率

[發問] 依次記錄各股殖利率

請問版上高手:在小弟的附檔中,由”常用代碼”的工作表雙擊代碼即可於”估價”的工作表C5取得該股殖利率,若小弟想由”常用代碼”的工作表雙擊A2代碼於”估價”的工作表取得A2的殖利率紀錄於”常用代碼”工作表中的C2,接著雙擊A3代碼於”估價”的工作表取得A3的殖利率紀錄於”常用代碼”工作表中的C3,依次直到A27,請問這巨集或VBA該如何寫?謝謝。

殖利率.rar (11.13 KB)

年齡不小,但我很想學

回復 2# GBKEE

感謝GBKEE大指導.依您的方式已可雙擊"常用代碼"的A2~A27,並於C2~C27取得資料.想進一步請教:如果要讓"常用代碼"的A2~A27自動執行,請問巨集要如何寫?小弟嘗試用錄製巨集的方式,由雙擊A2開始.取得C2資料.再雙擊A3.取得C3資料----直到雙擊A27.取得C27資料後停止錄製巨集.但執行巨集時.游標卻直接跑到A27.請問這巨集該如何寫?謝謝

殖利率1.rar (11.06 KB)

年齡不小,但我很想學

TOP

回復 4# GBKEE

感謝GBKEE大,小弟安裝上出現一些問題想再請教您,詳情請看TEST.rar內的說明,謝謝。

TEST.rar (710.13 KB)

年齡不小,但我很想學

TOP

回復 6# GBKEE

非常感謝GBKEE大的有問必答,目前殖利率1-1.xls已可正常運作,但殖利率1-2.xls仍然出現附檔的訊息
年齡不小,但我很想學

TOP

回復 8# GBKEE
感謝GBKEE大的回答.我重新開機不開任何檔案.也不執行任何程式.直接執行您所附的殖利率1-2.xls.依舊出現400的錯誤訊息.這應該不是您的程式問題.我想應該是我的電腦有問題.幸好有第一個方式可解決.非常謝謝您
年齡不小,但我很想學

TOP

回復 10# GBKEE
感謝GBKEE大指導.電腦原使用IE11.移除後.重新安裝IE8.結果正常了.沒出現400的訊息.真是謝謝您了
年齡不小,但我很想學

TOP

GBKEE大您好:
之前小弟曾承蒙您指教VBA程式, 但現在因小弟希望增加資料,同樣在”常用代碼"的工作表中雙擊股票編號,但不只能帶入”估價"工作表中的殖利率,也希望能帶入”股本”、”股東權益報酬率”、”上市(櫃)時間”, 不知能否請GBKEE大再指導一次,謝謝。 150423.rar (10.62 KB)
年齡不小,但我很想學

TOP

回復 13# GBKEE
感謝GBKEE大,謝謝您
年齡不小,但我很想學

TOP

回復  bhsm
GBKEE 發表於 2015-4-23 14:48

GBKEE大您好:
我把您教的這個VBA套用在公司的檔案上時,用2003操作都沒問題,但把該檔轉成2010時,操作上卻會發生"執行階段錯誤"28"  堆疊空間不足,當我按下偵錯時,程式會指向
"Sheet28.Rng.Resize(, 4) = Array([L5].Text, [L6].Text, [C14].Text, [B13].Text)",如果在昨天傳給您的150423.rar檔案轉成2010時,操作沒問題,但套用到公司另外檔案時卻會
發生堆疊空間不足,請問應該修改哪裡來排除問題,謝謝
年齡不小,但我很想學

TOP

本帖最後由 bhsm 於 2015-4-24 17:17 編輯

回復 16# GBKEE
向GBKEE大回報,
1.雙擊代碼後會出現圖1

2.按下F8後出現圖2,此時資料未帶入所需位置

3.接著再按一次F8,出現圖3,此時檢視資料都已帶入,但此時須關閉VBA視窗,並停止偵錯,EXCEL才可繼續使用

4.重複1.之動作
年齡不小,但我很想學

TOP

        靜思自在 : 成功是優點的發揮,失敗是缺點的累積。
返回列表 上一主題