返回列表 上一主題 發帖

[發問] 如何撰寫兩欄位資料同時重複的跳窗提醒?(已解決,GBKEE大, oobird大)

回復 1# av8d
若是想以儲存格部分內容來比對的話,
可能性範圍太大並且也不容易得出正確的比對結果,
例如 "中秋節活動" 就有底下這些可能的關鍵值需要作比對,
中秋節活動, 中秋節活, 中秋節, 中秋, 中
秋節活動, 秋節活, 秋節, 秋
節活動, 節活, 節
活動, 動

當然, 若是你的例子可以縮小範圍,(例如只需要比對固定的幾個如 活動與地點...等等關鍵字)
又或者能將 "端午節活動" 與 "中秋節活動" 這敘述文字串拆開放在兩個儲存格內,
變成 "端午節", "活動", "中秋節", "活動" 這樣就容易寫了.

暫時我能想到的就是利用 Dictionary 來實現,
方便的話是否可以先大致上縮小一下需要比對的範圍.

TOP

本帖最後由 luhpro 於 2011-10-8 08:31 編輯

回復 3# av8d
兩欄資料重複時跳窗提醒-Ans.zip (15.15 KB)

註 :
1. 若單純修改已有資料的儲存格內容仍可正常抓取及比對重複資料
2. 異動(含新增)某儲存格內容後會抓取全部與之相同資料的儲存格, 並將其底色設為黃色以方便辨識.
3. 上述設定的底色於再次抓取(即該兩欄有異動)時, 會先清除底色後再比對資料.
4. 不限定兩欄皆須有資料, 只要任一欄有資料就可以抓取及比對內容.
5. Debug 時, 若有 Reset 動作(或發生錯誤導致終止程式時)必須先執行 Workbook_Open 後才能有正常的動作.

TOP

回復 6# av8d
rTar.AddComment "" 時發生 "應用程式或物件上定義的錯誤"...
這應該是發生錯誤當時該 rTar 儲存格已經有註解了,
但這時卻要新增註解而造成的錯誤.

不過前面已經有 On Error GoTo ErrorHandler 了,
所以理論上應該會被 "錯誤處理程序" 順利處理掉才是,
不知你是怎麼樣的操作順序及輸入什麼資料而造成的錯誤.

你可試著單步執行看看程式有沒有跳到 ErrorHandler 區執行錯誤處理,
又執行到該區中時在 "即時運算" 視窗內打入 ?Err.Number 按 Enter 鍵,
看看 Err.Number 是否為 1004 又或者是其他的數字呢?

TOP

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