- 帖子
- 3
- 主題
- 2
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2009
- 閱讀權限
- 20
- 註冊時間
- 2019-8-3
- 最後登錄
- 2021-9-12
|
求助 如何提醒儲存格有相同資料
麻煩各位大神
小弟想把 x輸入的值 不跟儲存格重複
如果有重複提醒跟不輸入到儲存格
現在會提醒 但還是會輸入到儲存格
抱歉大神 目前新手 還無法回復
x = ComboBox1.Text + ComboBox2.Text + ComboBox3.Text
For i = 2 To Sheets("工作單1").[B36656].End(xlUp).Row
If Cells(i, "B") = x Then
MsgBox "有重復資料", vbInformation
Exit For
Else
Cells(r, "C") = TextBox2.Text
Cells(r, "B") = ComboBox1.Text + ComboBox2.Text + ComboBox3.Text
Cells(r, "A") = TextBox1.Text
End If
Next
If x = "" Then
MsgBox "輸入資料", vbInformation
End If |
|