123
返回列表 上一主題 發帖

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

bhsm

帖子
96 
主題
12 
精華
0 
積分
116 
點名
275  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
14# 跳轉到 »
發表於 2015-4-23 18:30 | 只看該作者
回復 13# GBKEE
感謝GBKEE大,謝謝您
年齡不小,但我很想學

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
13#
發表於 2015-4-23 14:48 | 只看該作者
回復 12# bhsm
  1. Option Explicit
  2. Private Sub Worksheet_Calculate()   '估價 [工作表模組]的程式碼
  3.     If Not Sheet3.Rng Is Nothing Then
  4.         'Sheet3.Rng       'SheetS("常用代碼")雙擊的處存格
  5.       Sheet3.Rng.Resize(, 4) = Array([c5].Text, [F3].Text, [F4].Text, [C8].Text)
  6.        ' With Sheet3.Rng
  7.        '    .Cells = [c5].Text
  8.        '    .Cells(1, "B") = [F3].Text
  9.        '    .Cells(1, "C") = [F4].Text
  10.        '    .Cells(1, "D") = [C8].Text
  11.        ' End With
  12.     End If
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bhsm

帖子
96 
主題
12 
精華
0 
積分
116 
點名
275  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
12#
發表於 2015-4-23 13:25 | 只看該作者
GBKEE大您好:
之前小弟曾承蒙您指教VBA程式， 但現在因小弟希望增加資料，同樣在”常用代碼"的工作表中雙擊股票編號，但不只能帶入”估價"工作表中的殖利率，也希望能帶入”股本”、”股東權益報酬率”、”上市(櫃)時間”， 不知能否請GBKEE大再指導一次，謝謝。 150423.rar (10.62 KB)
年齡不小,但我很想學

TOP

bhsm

帖子
96 
主題
12 
精華
0 
積分
116 
點名
275  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
11#
發表於 2014-8-11 15:21 | 只看該作者
回復 10# GBKEE
感謝GBKEE大指導.電腦原使用IE11.移除後.重新安裝IE8.結果正常了.沒出現400的訊息.真是謝謝您了
年齡不小,但我很想學

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2014-8-11 14:09 | 只看該作者
回復 9# bhsm
會是你IE的關係嗎?(試試 IE重安裝)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bhsm

帖子
96 
主題
12 
精華
0 
積分
116 
點名
275  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
9#
發表於 2014-8-11 12:26 | 只看該作者
回復 8# GBKEE
感謝GBKEE大的回答.我重新開機不開任何檔案.也不執行任何程式.直接執行您所附的殖利率1-2.xls.依舊出現400的錯誤訊息.這應該不是您的程式問題.我想應該是我的電腦有問題.幸好有第一個方式可解決.非常謝謝您
年齡不小,但我很想學

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#
發表於 2014-8-11 05:26 | 只看該作者
回復 7# bhsm
這是你所說的錯誤內容
  1. 表單己經顯示；不能再以強制回應的方式顯示此表單 (錯誤 400)
  2. 您不能用 Show 方法，以強制回應的方式顯示一個可見的表單。這項錯誤的原因及解決方法如下：
  3. 您試圖在可見的表單上，使用將 style 引數設定成 1 - vbModal 的 Show。
  4. 請在以強制回應的方式顯示表單之前，使用 Unload 陳述式或 Hide 方法。
複製代碼
請問你執行Sheet3.主程式時還執行有其他的程式嗎?
這是你的殖利率1-2.xls,沒有錯誤 400的發生

Ex.rar (11.54 KB)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bhsm

帖子
96 
主題
12 
精華
0 
積分
116 
點名
275  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
7#
發表於 2014-8-10 18:22 | 只看該作者
回復 6# GBKEE

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

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2014-8-10 16:46 | 只看該作者
回復 5# bhsm
1、啟檔案(出現錯誤訊息，原因如何，真的很想知道

因為當常用代碼工作表 尚未有雙擊A2的動作, 常用代碼模組的 Public Rng As Range 的 Rng變數還未指定Range
所以執行估價模組的Worksheet_Calculate程序時有錯誤, 沒有設定物件變數或 With 區塊變數 (錯誤 91)
可修改如下
  1. Private Sub Worksheet_Calculate()
  2.     Stop    'Worksheet_Calculate程序: 這工作表內公式的值有改變會執行一次
  3.     If Not Sheet3.Rng Is Nothing Then
  4.         Sheet3.Rng = [c5].Text 'SheetS("常用代碼")
  5.     End If
  6. End Sub
複製代碼
殖利率1-2.xls 2003環境執行很正常啊
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bhsm

帖子
96 
主題
12 
精華
0 
積分
116 
點名
275  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
5#
發表於 2014-8-10 15:09 | 只看該作者
回復 4# GBKEE

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

TEST.rar (710.13 KB)

年齡不小,但我很想學

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
123
返回列表 上一主題