[發問] 如何將A,B欄轉換成沒有空格及要特定排列之C,D欄

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

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

2^#

發表於 2015-8-16 21:33 | 顯示全部帖子

我弄了幾天還是卡在這裏一直沒有進展可否請高手賜教

對應之可投入金額.zip (31.5 KB)

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

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

3^#

發表於 2015-8-16 22:40 | 顯示全部帖子

回復 3# lpk187
我知道"用人工是很容易達成的" 但只要參數一改就得重新來過且對非寫程式之人跟本很難使用甚至不會正確使用

非常感謝您的意見及公式我先收下待測試若有問題我會再詢問您謝謝您的幫助

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

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

4^#

發表於 2015-8-16 23:25 | 顯示全部帖子

本帖最後由 lcctno 於 2015-8-16 23:39 編輯

回復 5# lpk187
"我上面程式多了一行Set d = CreateObject("scripting.dictionary")請自行刪除！"

刪不刪結果是一樣老實說我幾乎看不懂您提供之程式內容的含意但我還知道將 "[e3].Resize(UBound(ar1, 2), 2) = Application.Transpose(ar1)" 改成[c3].Resize(UBound(ar1, 2), 2) = Application.Transpose(ar1) 才能對號入座

感謝您可達到我要的內容了
但有一個問題請問真的沒辦法不用VBA來執行嗎? 因為參數一改變數值不會直接跟著變還得必須要加上點一個按鈕才能得到正確值請問可有方法用一般函數來達成
最後除了謝謝您還是要感謝您的熱心幫助
ps. 我目前在嘗試將我這幾年來做的統計分析所得的結果轉換成資金配置的表格只要簡單的輸入可投資的總金額及配合累積發生率的參與時機那表格就會自動告訴您買的配置方式
我已老了這是為我的兒子寫的怕他不會正確的使用所以希望能讓沒基本知識的他也能容易使用
我不太會寫程式因為學校完全沒學過Excell 但我知道怎麼於股市賺錢(是一定賺) 所以........

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

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

5^#

發表於 2015-8-17 08:54 | 顯示全部帖子

回復 3# lpk187

我遇到問題了原附件上的A,B,C,D欄在我真實的位置是T,U,V,W 修改了數小時卻無法修改成功再次的麻煩您了
另外請多加上一指令於整理後要貼上之前請先清空該欄位之全部數值(原之C,D欄現在的V,W欄) 謝謝您了

對應之可投入金額1.zip (22.64 KB)

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

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

6^#

發表於 2015-8-17 12:35 | 顯示全部帖子

本帖最後由 lcctno 於 2015-8-17 12:36 編輯

回復 8# lpk187
如附件只用選擇性貼上值及格式及註解
-請看Sheet2左上方黃格內之值皆可能更改

謝謝您麻煩您了

有些小問題
1.Sheet1內 u3及v3 為何會空白
2. 股價2.99 投入金額999 ,477
並未被代入u及v內

00631L或0050之資金配置.zip (81.92 KB)

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

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

7^#

發表於 2015-8-18 11:49 | 顯示全部帖子

本帖最後由 lcctno 於 2015-8-18 11:50 編輯

回復 10# lpk187

我發現Sheet1之要使用之欄位有錯誤故補上了一整排之空白欄位後也進去修改巨集但要執行巨集時卻看不到巨集故只好自己亂COPY 做了一個巨集但執行起來沒看到有什麼動作
目前請您以巨集的方式下去寫待正常後我再請教您如何能當參數一改變結果也會馬上跟著變的方法謝謝您了

附上我亂改過的檔案

配置TEST.rar (61.34 KB)

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

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

8^#

發表於 2015-8-18 17:28 | 顯示全部帖子

回復 12# lpk187

為何我在VB看的到Sheet1的巨集但要執行巨集時卻看不到如附圖
我看您還是幫我弄個可以用工具/巨集/巨集然後點選該巨集來"執行"

簡單的我可能會但稍微難的我真的不會麻煩您先用簡單一點的方式好方便我入門對初學的我我真的很想學會但入不了門真的非常的謝謝您的用心教導我

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

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

9^#

發表於 2015-8-18 21:52 | 顯示全部帖子

回復 14# lpk187

我是初學者目前沒有能力將之轉換成我能使用之巨集
且我有嘗試將您附上的檔案T,U行之數值改變但V,W行內之值並無法自行變更那反而造成我不敢使用該數據
我看我還是用最基本的人工資料排序後複製貼上或可使用錄製新巨集的方式來處理免得我可能做白工還可能壞了我原來可得到的正確統計那將可能會輸的不明不白
您說呢? 那是錢的戰爭請不要怪我挑剔
雖然我沒能幸運的得到完美的解答但我知道您是用心的想幫我解決問題真的我還是很感謝您的幫助

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

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

10^#

發表於 2015-8-18 22:20 | 顯示全部帖子

回復 14# lpk187
我目前是在想辦法將我過去用傳統的基本語法(檔案真的很大有一檔已770mbs 且還不是我真的喜歡的分析方式) 開啟費時改變內容之data 儲存時間也很費時所以才想嘗試使用巨集的方式來寫但總不能為了減少檔案體積(mbs或許改天變成gbs) 而得到沒可信度的資料吧! 路雖遠但慢慢走或許還是可能會平安的到達目的地吧! 真的還是很感謝您若您改天想介入股市相關之產物我可提供我的賺錢心法
這是其一"想法不改變做法當然也不會變那輸家怎麼會變成贏家"