[發問] 請問能否使用巨集取代人工之輸入 感謝能者大力幫助

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 69
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2025-3-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

2^#

發表於 2015-9-22 22:34 | 顯示全部帖子

本帖最後由 lcctno 於 2015-9-22 22:36 編輯

我知道"麻辣家族討論版" 有很多高手
或許您們認為我只想吃魚而不想自己學釣魚
我只能說若造成您們有這種看法非我所願
我知道會的人很快就能完成這簡單的 for next ...
但我弄了 3個星期還是無法完成所以只好厚顏發帖"求救了"
懇請回復者能附上'附註這樣才能幫助到初學者(或接觸不久之人) 引導能自己學釣魚謝謝您們了
若在股票交易的策略有想要我提供意見(操作心法) 我可提供我的20年來不敗的經驗請發短消息給我

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 69
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2025-3-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

3^#

發表於 2015-9-23 08:02 | 顯示全部帖子

回復 3# 准提部林
1.下單的時機
其實可以不要理會一大堆內含只要輸入買張數(C欄) 但剩餘金額(L欄)不能為負值也就是不能讓C欄之格變紅色當買超過可投資金額時會變紅色

2.(C12+D12)>=0.001 那是零股不足一張股票其實您可以不要理那些只要顧到(C欄)與(L欄)之關係就可

3. k12 是證所稅稅率類別 1 , 2 , 3 (目前用不到)
證所稅稅率類別 0 (賣出前一日的台股收盤指數8499.99點或8499.99點以下)
證所稅稅率類別 1 (賣出前一日的台股收盤指數8500點-9499點)
證所稅稅率類別 2 (賣出前一日的台股收盤指數9500點-10499點)
證所稅稅率類別 3 (賣出前一日的台股收盤指數10500點或10500點以上 )

謝謝您的熱心希望以上說明能讓您明白

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 69
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2025-3-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

4^#

發表於 2015-9-23 08:39 | 顯示全部帖子

回復 4# GBKEE

'=IF(N11="累計投資金額",-(I12+J12),-(I12+J12)+N11)
這是為了讓全部N欄的公式能全部相同
謝謝您的用心看來已經很接近我所要的但有少數幾比買單超支了
如附件(C欄內之部分格為紅底色) 還請您能繼續修正它謝謝

股票配置V2.zip (247.86 KB)

股票配置V2.jpg (270.91 KB)

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 69
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2025-3-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

5^#

發表於 2015-9-23 11:16 | 顯示全部帖子

回復 7# 准提部林
回報高手
目前執行起來很正確感謝您的幫助
但請問若J欄[券商折讓(退款)] 有加入函數公式時(也就是有退款值時) 是否仍能正常使用
因為目前還在研究該函數公式故還沒放進去函數公式

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 69
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2025-3-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

6^#

發表於 2015-9-23 11:44 | 顯示全部帖子

回復 7# 准提部林
ST = Application.Max(20, Int(SS * [H10])) '計算稅費, 最低20
其實不需要有計算稅費因為買是不用繳稅但要考慮 J欄[券商折讓(退款)] 因為買與賣都會有退款
但我將計算稅費移除就有少數買超之現象
目前以加入券商折讓(退款)之函數公式(尚未完全確定公式的可靠性) 還請您將就來測試

股票配置V3.zip (287.42 KB)

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 69
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2025-3-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

7^#

發表於 2015-9-23 13:18 | 顯示全部帖子

本帖最後由 lcctno 於 2015-9-23 13:19 編輯

回復 10# 准提部林
退佣＝手續費*退佣率這是一般人的認知我以前也是這樣認為
經向卷商查證得到結果為
例一:
1000 *15.4=15400
當日計算 :
已收手續費=15400*0.001425=21.945 ===> 21

每月折讓處理:
折讓後應收手續費=15400 * .0.001425 *0.28=6.1446 ==> 6

折讓金= 21-6 =15
--------------------------------------------------------------------------------------------------------------------------------------------------
例二:
1000 * 11.64=11640
當日計算 :
已收手續費=11640*0.001425=16.587 ===> 16(小於20以20計算) ===>20

每月折讓處理:
折讓後應收手續費=(11640 * .0.001425)(小於20以20計算) *0.28=5.6 ==> 5

折讓金= 20-5 =15
------------------------------------------------------------------------------------------------------------------------------------------------------
例三:
3000 * 11.64=34920
當日計算 :
已收手續費=34920*0.001425=49.761 ===> 49

每月折讓處理:
折讓後應收手續費=(34920 * .0.001425) *0.28=13.93308 ==> 13

折讓金= 49-13 =36

我自行將公式設為我的退佣方式(應該是對的)
折讓公式=IF(-(-C12-D12)*E12*1000*$H$10<20,20-TRUNC(20*(1-$E$10)),-G12-TRUNC(ABS(F12)*$H$10*(1-$E$10)))*IF(C12+D12=0,0,1)
C12 = 買張數
D12 = 賣張數
E12 = 成交價
F12 = 買 or 賣淨價
$H$10 = 券商買賣手續費率
$E$10 = 券商折讓率

可不可以將vba寫成試誤法也就是給C欄輸入參考買張數時接著檢查對應之L欄(剩餘金額)之值是否小於0 若小於0時買張就減1張並重新輸入數值
這樣就不用管手續費折讓稅率等之問題就如同我用人工逐一看綠色來輸入當輸入格變成紅色時就重新輸入(少1張)
謝謝您的用心與幫助