檢查重複性質的資料 - Excel程式區

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

31^# 跳轉到 »

發表於 2013-7-26 10:29 | 只看該作者

回復 30# jackyliu
測試看看是否能正常執行？
謝謝妳！

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

32^#

發表於 2013-7-26 12:04 | 只看該作者

本帖最後由 stillfish00 於 2013-7-26 12:11 編輯

回復 26# jackyliu
依你26#的圖

要逐步執行的話，把D(E)的監看式拿掉吧。

1.  當字典用不存在的Key取回物件時會自動新增該Key，這點在偵錯時看起來還是有效的....
   你可以自己試試中斷後在即時運算視窗打 ?d("不存在的Key")  ，就會自動在d底下新增一個item啦..
2.  然後當你要逐步執行時，因為有設d(E)的監看式，每一步都會取回 d(E)，可是 E 一值都是存在的Key嗎???
   不是，當你程式執行到For Each E前一行或Next後一行，E都是 '無'，於是它找不到這個Key又自動新增了，所以才造成字典內的Key(6)也為無。

比起來，偵錯時若只用區域變數視窗看d值(我原本也是這樣)，怎樣都不會遇到妳說的問題。

TOP

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兔年全勤獎章

33^#

發表於 2013-7-26 12:21 | 只看該作者

回復 29# c_c_lai
28# 的程式碼有時還是錯誤?要加上If E <> "" Then 來過濾嗎?

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

34^#

發表於 2013-7-26 12:56 | 只看該作者

回復 33# GBKEE
28# 的程式碼我這端測試是沒問題，
自從加上 If D.exists(E) = False Then 後，
我就抓不到怪異狀況。無論是原本的、
或者是28# 的程式碼。但 jackyliu 說依舊會偶發。
目前在等待 jackyliu 的測試結果。
她說那邊好像有待再次印證。

P.S. 我加上 If E <> "" Then 是完全濾掉空字串延生的問題。

TOP

jackyliu

中學生 Rank: 2

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

35^#

發表於 2013-7-26 13:36 | 只看該作者

回復 33# GBKEE

28# 程式code 可以了, 可能是我誤操作.... 造成大家困擾, 對不起大家~~
感謝大家 !

TOP

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兔年全勤獎章

36^#

發表於 2013-7-26 13:50 | 只看該作者

回復 35# jackyliu
誤操作.... 請說明一下,好了解狀況

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

TOP

jackyliu

中學生 Rank: 2

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

37^#

發表於 2013-7-26 22:28 | 只看該作者

回復 36# GBKEE

28樓程式碼我是逐一執行,到圖mark黃色部分出現錯誤,
若一次執行完畢,是正常的;猜想是我用監看視窗的方式錯誤?

整個程式碼,我看不懂,不好意思,再麻煩大家......
只好自己認真逐一監看,程式的內容變化,
可能就像樓上(#32)說的 D(E),監看要拿掉,
可我真的不知道,要從哪裡才能弄懂這程式碼 ? ? ?
對不起大大,我還是附上一張,我監看出錯誤的畫面,
向大家交代清楚....

28樓.jpg (143.12 KB)

28樓程式碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

38^#

發表於 2013-7-27 07:01 | 只看該作者

本帖最後由 c_c_lai 於 2013-7-27 07:10 編輯

回復 36# GBKEE
回復 32# stillfish00
回復 37# jackyliu
經仔細推敲 stillfish00 32# 的經驗建議，的確是問題發生的癥結所在，
茲將它稍稍整理，並回溫 Debug 的過程，確實如 stillfish00 所言，
在此順便也謝謝 stillfish00 的不吝指教。