返回列表 上一主題 發帖

[發問] 誰能幫這幾乎重複動作的VBA瘦身 謝謝

回復 20# don4831
"當下" 是指只要清除正要貼值之區域 也就是說其餘之前的值不要被清除
謝謝您的用心

TOP

回復 22# don4831
沒錯 就是這樣 我目前佈局情形如下圖


TOP

回復 24# lpk187
謝謝您 我不是沒有看 而是看到的內容 與我很低程度的"vba能力" 造成我的認知與實際剛好相反 (看不懂程式碼 頭很大)
我真的只知道該步驟該怎麼進行 但卻不會寫稍微複雜的VBA 雖然您有提供程式語法 但對看不懂的人 實在是只能說聲謝謝您 因為還是不知道該擺在那��  ....

TOP

本帖最後由 lcctno 於 2015-8-28 12:55 編輯

回復 26# 准提部林

是能執行且僅僅數秒 也太快了 但 出來的值錯誤(目前股價累計發生率=100%) 我沒能力了解這麼深的語法 故無法除錯

   






發生率=100%

TOP

回復 28# azrael19
感謝您的提供 但�堶惆S任何函數
結果當然沒有改變





TOP

回復 29# 准提部林

謝謝您 但那不是我要的 我目前都能很正常且檔案也變的很小 只是想把它弄得更有人性化

TOP

回復 30# azrael19
真的是高手 原來是用函數寫的 我還以為您的vba忘了存原檔案內
但結果是不太一樣? 應該是比對方式不同造成的 我有將比對之函數寫在附註內  感謝您  您那檔執行速度超快的 希望您能找出原因

這是我的使用現狀



已經加上data之檔案
~test% - TT3.rar (154.61 KB)

TOP

回復 30# azrael19

先說聲 :對不起
高手您的OK 是我沒有完全執行完 (有更改間距=您設的值) 但忘了做整套的比對 所以才會數據不同 之前回傳於您之程式 執行結果與我的完全相同
我再多試一些較長時間的測試 我想應該結果也會相同
真的沒想到用函數就可以完成



TOP

回復 30# azrael19

目前有發現個很小的問題 只是我沒能力修改那麼複雜的函數
目前經過數種方式的比對 "data"內之總數 與"結果"內之發生次數 都完全一樣 但統計後之"目前股價累計發生率"有小許的差距 可能是算式不同所致
可否麻煩您將"目前股價累計發生率" 改成如附件上放的方式 事實上我也發現之前我用的計算"目前股價累計發生率"的方式不太好 還好都只有小數點以下的誤差

謝謝您幫了我的大忙



    ~test% - TT4.rar (202.79 KB)

TOP

本帖最後由 lcctno 於 2015-8-28 23:15 編輯

回復 36# azrael19
感謝您 目前只測試2個不同族群的data 我很高興 結果"完全正確" 您的函數真的太強了

若方便的話 可否麻煩使用最白話的方式 告訴低能的我 您在"結果"分頁內 那3個函數的意思

區間=COUNTA(A:A)-1  值是正確 但為何是-1 而不是-2( 因為我看到有2個是非數字列) ?

資料列_最高價 '=OFFSET(INDIRECT(ADDRESS(IF(Data!$I$6="",2,Data!$I$6),3,,,"Data")),,,IF(Data!$J$6="",COUNTA(INDIRECT("Data!$A:$A"))-1,Data!$J$6-IF(Data!$I$6="",2,Data!$I$6)+1),) 這個我完全不知道是什麼

資料列_最低價 '=OFFSET(資料列_最高價,,1,,) 這個我也完全不知道是什麼

謝謝您了

TOP

        靜思自在 : 【行善要及時】行善要及時,功德要持續。如燒開水一般,未燒開之前千萬不要停熄火候,否則重來就太費事了。
返回列表 上一主題