帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-10-3 08:46 | 只看該作者

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

本帖最後由 av8d 於 2011-10-18 08:51 編輯

當輸入資料時，D欄和I欄位同時重複時，跳窗提醒!
舉例說明如下:
A  B  C  D  E  F  G  H  I  J  K
1          聖誕節       台南
2
3
4          聖誕節       台南
5

D欄出現"聖誕節"且I欄也出現相同的"台南"，此時條件成立，跳窗提醒。

-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

不知道怎麼在裡面下指令!?

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

2^#

發表於 2011-10-4 21:36 | 只看該作者

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

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

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

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

3^#

發表於 2011-10-5 08:29 | 只看該作者

本帖最後由 av8d 於 2011-10-8 01:31 編輯

回復 2# luhpro

A  B  C  D  E  F  G  H  I  J  K
1          聖誕節       台南
2
3
4          聖誕節       台南
5

D欄出現"聖誕節"且I欄也出現相同的"台南"，此時條件成立，跳窗提醒。

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

4^#

發表於 2011-10-8 08:17 | 只看該作者

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

回復 3# av8d

兩欄資料重複時跳窗提醒-Ans.zip (15.15 KB)

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

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

5^#

發表於 2011-10-8 17:09 | 只看該作者

本帖最後由 GBKEE 於 2011-10-8 17:14 編輯

回復 3# av8d
試試看

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, I As Integer
With Target
.Select
If .Column = 4 Or .Column = 9 Then
If Cells(.Row, 4) <> "" And Cells(.Row, 9) <> "" Then
For I = 1 To Cells(Rows.Count, .Column).End(xlUp).Row
If Cells(I, 4) = Cells(.Row, 4) And Cells(I, 9) = Cells(.Row, 9) And I <> .Row Then
If Rng Is Nothing Then
Set Rng = Union(Cells(I, 4), Cells(I, 9))
Else
Set Rng = Union(Rng, Cells(I, 4), Cells(I, 9))
End If
End If
Next
If Not Rng Is Nothing Then
Set Rng = Union(Rng, Cells(.Row, 4), Cells(.Row, 9))
Rng.Select
MsgBox Cells(.Row, 4) & " " & Cells(.Row, 9) & " 有重複 ?"
End If
End If
End If
End With
End Sub

複製代碼

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

6^#

發表於 2011-10-11 13:00 | 只看該作者

本帖最後由 av8d 於 2011-10-11 13:05 編輯

回復 4# luhpro

luhpro 大大辛苦了~

rTar.AddComment ""
應用程式或物件上定義的錯誤

我自行修改看看~謝謝!

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

7^#

發表於 2011-10-11 14:18 | 只看該作者

回復 5# GBKEE

請問大大~是否可以當我按下TAB鍵的時候直接向右一格或按下Enter鍵直接向下一格~不用按兩次呢?再次感謝!

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

8^#

發表於 2011-10-11 14:46 | 只看該作者

回復 7# av8d
按下TAB鍵的時候直接向右一格或按下Enter鍵直接向下一格~不用按兩次呢
可再詳說清楚嗎?

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 14
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-6

9^#

發表於 2011-10-11 22:56 | 只看該作者

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

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

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

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

10^#

發表於 2011-10-12 12:46 | 只看該作者

回復 av8d
按下TAB鍵的時候直接向右一格或按下Enter鍵直接向下一格~不用按兩次呢
可再詳說清楚嗎?
GBKEE 發表於 2011-10-11 14:46

意思是說~一般我們在打資料打完後~輸入ENTER會向下一格~但是輸入您的判斷式後~變成要輸入兩次ENTER~是否有辦法變回只要輸入一次?謝謝!

TOP