1234
返回列表 上一主題 發帖

[發問] 公式程式碼化

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
11# 跳轉到 »
發表於 2021-7-25 22:04 | 顯示全部帖子
本帖最後由 ziv976688 於 2021-7-25 22:22 編輯

回復 20# singo1232001
謝謝S大您的詳細說明~
我研讀後~有問題再向您請教。
謝謝您

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
12#
發表於 2021-7-25 22:05 | 顯示全部帖子
回復 21# n7822123
謝謝n大您的回覆~瞭解了

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
13#
發表於 2021-7-25 23:59 | 顯示全部帖子
回復 25# ML089
我還沒有注意到準7進8 的 V2:AB2 資料有誤
改為陣列.....修改後在執行看看~
4樓的貴解沒有看到修改的地方。
請教您 : 應該怎麼改?
謝謝您
PS : 不是我的電腦有問題就OK了~幾秒都沒有關係

DATA!VB 下列放置位置應該在 迴圈之外
那版面的設定不就失效了

我自己先研習一下
不好意思事事麻煩您。
明天再說!
晚安!

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
14#
發表於 2021-7-26 13:04 | 顯示全部帖子
回復 13# n7822123
標示底色_n7822123.rar (101.78 KB)
不好意思，可否請您幫我看一下~
只執行"標示底色"很OK(不到2秒)，
但如果再加上"餘數登錄"~ 測試N次，卻都要跑30秒上下~
為什麼會跑的這麼異常的慢 ?
是2003版本的關係嗎?
能改善嗎?
謝謝您

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
15#
發表於 2021-7-26 14:24 | 顯示全部帖子
本帖最後由 ziv976688 於 2021-7-26 14:26 編輯

回復 27# ML089
標示底色_ML089_C1.rar (107.42 KB)
花了半天~將您所賜教的解答檔，全部檢測完畢~
報告如下：
1_您的個別解答檔 => 全部OK

2_以最後完成的檔案(標示底色_ML089_C1)測試~
Call 參數登錄和Call 餘數登錄 => 執行，
'Call 餘數各取1 => 不執行 => 產生A2=""時，也會標示藍底色(只有"準2進3"正常)

3_以最後完成的檔案(標示底色_ML089_C1)測試~
Call 參數登錄和Call 餘數登錄和Call 餘數各取1 => 全部執行，
"準5進6"的標題列會移到第4列 =>請先將DATA!VB的列59，改為執行狀態，
然後按執行鍵~測試結果。
如果要重新測試~請按清除鍵即可。

4_執行模組程式碼應放置在DATA!VB~
For s = 1 To 6   '6個工作表
：
NEXT
            Call 參數登錄
            Call 餘數登錄
            Call 餘數各取1
            Call 標示底色
我還想不出怎麼解決版面設定失效的問題

以上   懇請您賜教是幸！  謝謝您

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
16#
發表於 2021-7-26 15:17 | 顯示全部帖子
回復 31# 准提部林
版主 :
我本來是想研習各位大大的語法，所以針對各人的語法，我有不瞭解的地方頻頻發問~給大家添麻煩了~抱歉!

感謝您將這二段程式補齊。
您太厲害了~全檔執行時間不到2秒

萬分感謝您的指導和幫忙

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
17#
發表於 2021-7-26 23:09 | 顯示全部帖子
回復 33# ML089
版主 :
餘數各取1測試成功
謝謝您耐心指導~感恩
您的加註~讓我受益良多

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
18#
發表於 2021-7-27 05:57 | 顯示全部帖子
本帖最後由 ziv976688 於 2021-7-27 06:18 編輯

回復 33# ML089
版主 :
我想您的"標示底色"之程式碼應該是正解~
因為我發現Bug出在列12 xS.[a2] = xD.Count & "個"，
它會讓"準6進7"的A2顯示0個，但"準7進8"的A2卻顯示""，且標示藍底色；
如果我在列20插入 xS.[a2] = Application.Count(xS.[A4:A52]) & "個" 測試~
"準7進8"的A2之藍色標示就會消失。但還是顯示""(不是顯示0個)~
可見插入列20也不是完全生效(正確)~是什麼因?我也不懂。
因為程式的流程關係，我既不能移除列12，也不知道怎麼修正?
所以又上來請教
以上只是我個人的一點想法，僅供您參考~BUG的猜測對或不對，我沒有信心^^"

真不好意思，因為想研習貴語法，一再給您添麻煩~尚請您見諒
VBA還真不易學，只是一個數值個數統計的小問題~就考倒我了

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
19#
發表於 2021-7-27 16:35 | 顯示全部帖子
回復 37# ML089
xS.[A2] = IIf(N = 0, "", N & "個")
程式碼沒有錯~
為什麼"準6進7"和 "準7進8"的A2不一致 ?
進7的A2=0個；進8的A2="" =>不是A2都=""
請賜教!謝謝您

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
20#
發表於 2021-7-27 17:45 | 顯示全部帖子
本帖最後由 ziv976688 於 2021-7-27 17:54 編輯

回復 37# ML089
版主:
全部OK了~跑完不到2秒~
謝謝您將全部的程式碼(含底色標示)重新整理~感恩

PS :38樓的回覆請不要理會~我沒有將36樓的範例檔，再改貼上37樓的貴解。
再次感謝您多日來的熱心幫忙和耐心指導~您辛苦了

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
1234
返回列表 上一主題