返回列表 上一主題 發帖

[發問] Excel2003 remove duplicates相容性問題

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2018-9-10 13:11 | 顯示全部帖子
本帖最後由 准提部林 於 2018-9-10 13:18 編輯

回復 7# sunshine010

1) 去重覆, 應該只針對B欄的[時間]處理, 若逐欄處理, 那最後的資料也不正確
2) VBA以[公式重算]觸發, 同時間記錄的資料一定會重覆很多筆, 這是Worksheet_Calculate的弊病
3) 刪除重覆同時又觸發程式, 也會造成不可預料的錯誤

根本解決方法:
設一暫存列, 存放上一筆記錄的內容, 再用一個公式判斷資料是否有變動,
若無變動, 即使公式重算也不記錄, 這樣根本不須再去執行刪除重覆

這DDE非我所長, 幫不上忙~~

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2018-9-12 11:36 | 顯示全部帖子
基本架構:
1) AH1 放資料變動檢測公式, 若有變動, 則加一筆新記錄,     
    例外:B2:AG2有[錯誤值]時, 或 B2 非數值(沒有時間值), 則不記錄~~
2) 在B3:AG3同時存放這筆記錄, 供下次比對是否變動
3) A3累計筆數, 同時記錄到MAIN表相對應儲存格

這麼多表同時觸發程式, 會不會打架.產生錯誤.或漏記錄, 不得而知,
自行去測, 並依實際運用去自行修改公式或程式, 能幫的就這樣:
DDE_main_01.rar (40.1 KB)

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
3#
發表於 2018-9-12 13:45 | 顯示全部帖子
Sheets(1).Cells(Me.Index + 1, 2) = [A3]
改成以下才對:
Sheets(1).Cells(Me.Index, 2) = [A3]

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題