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

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

2025年全勤獎章 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年來不敗的經驗請發短消息給我

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

3^#

發表於 2015-9-22 23:31 | 只看該作者

本帖最後由准提部林於 2015-9-22 23:33 編輯

回復 2# lcctno

１．還看不懂下單的時機，是否Ｌ欄錢足夠了就下單，以能買的張數為限（含證交稅）？
２．IF((C12+D12)>=0.001,1,0)　什麼意思？
３．IF(K12=1,0.0002,0)+IF(K12=2,0.0004,0)+IF(K12=3,0.0006,0)　何意？直接 K12*0.0002不行嗎？

也許公式就可以，再研究看看～～

問問題都太簡略，應詳細說明需求流程，
看問題的人好像要兼外科醫生，解剖後拿器官一一看！^ ^

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2015-9-23 07:22 | 只看該作者

本帖最後由 GBKEE 於 2015-9-23 07:28 編輯

回復 2# lcctno

或許您們認為我只想吃魚而不想自己學釣魚
我只能說若造成您們有這種看法非我所願

你18:08發文22:36再發此文,你太心急了,
這論壇是不收費用的,靠的是熱心在回文的.

看問題的人好像要兼外科醫生，解剖後拿器官一一看！^ ^

說的好回文不只要有熱心,還要有耐心

Option Explicit
Sub Ex()
Dim E As Range, i As Integer
With Range("c12:c" & Range("i" & Rows.Count).End(xlUp).Row)
For Each E In .Cells
If E.Cells(1, 10) > 0 Then
i = Int(E.Cells(1, 10) / (E.Cells(1, 3) * 1000))
If i > 0 Then
E = i
'這樣應可輸入
'但工作表上有一些像N欄的公式
'=IF(N11="累計投資金額",-(I12+J12),-(I12+J12)+N11)
'看不懂
End If
End If
Next
End With
End Sub

複製代碼

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

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

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

5^#

發表於 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
點名: 262
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2026-9-29

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

6^#

發表於 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)

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

7^#

發表於 2015-9-23 10:48 | 只看該作者

回復 5# lcctno

有時不是想的那麼簡單, 有些層面還是要考慮的：
例如：預估可買３張，但加入〔稅．費〕後，就會呈個位數的負數，這時就只能少買一張，
　　　加入〔稅．費〕才是重點～～
另．
Ｎ１２公式：=-(I12+J12)+N(N11)　→　N(??)，遇文字為０，遇數值則為該數值，其它類推

Sub TEST()
Dim xR As Range, SS, ST, SU
With Range([E12], Cells(Rows.Count, "E").End(xlUp)(2))
　　.Offset(0, -2).ClearContents
For Each xR In .Cells
　　If xR(1, 8) <= 0 Then GoTo 101
　
　　SU = Int(xR(1, 8) / xR / 1000) '預計可購買張數
　　If SU <= 0 Then GoTo 101
　
　　SS = Round(xR * SU * 1000, 0) '可買張數總股價
　　ST = Application.Max(20, Int(SS * [H10])) '計算稅費, 最低20
　
　　If SS + ST > xR(1, 8) Then SU = SU - 1 '(總股價+稅費)超過時, 少買一張
　　If SU > 0 Then xR(1, -1) = SU: xR(1, -1).Select
101: Next
End With
End Sub

複製代碼

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

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

8^#

發表於 2015-9-23 11:16 | 只看該作者

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

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

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

9^#

發表於 2015-9-23 11:44 | 只看該作者

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

股票配置V3.zip (287.42 KB)