返回列表 上一主題 發帖

求助 如何提醒儲存格有相同資料

求助 如何提醒儲存格有相同資料

麻煩各位大神
小弟想把 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

        靜思自在 : 不要隨心所欲,要隨心教育自己。
返回列表 上一主題