VBA-เมื่อเจอชื่อซ้ำกันให้เตือนบอก ถ้าไม่ซ้ำกันให้ทำต่อ

[yodpao.b]

1.เลือกรายชื่อ
เมื่อเจอชื่อซ้ำกันให้เตือนบอก ถ้าไม่ซ้ำกันให้ทำต่อ

Capture.JPG (31.46 KiB) Viewed 141 times

Private Sub ComboBox01_Change()

Code: Select all

Private Sub ComboBox01_Change()

On Error Resume Next
Sheets("list_other").Select
Range("B2").Select
Do While True
    If ActiveCell.Value = ComboBox01.Text Then
       TextBox01.Text = ActiveCell.Offset(0, 1).Value
       TextBox10.Text = ActiveCell.Offset(0, 2).Value
       ComboBox09.Text = "ES05B0003014"
       'TextBox08.Text = Sheets("Log").Range("A1")
       AddP.Enabled = True
       Exit Sub
    End If
            ActiveCell.Offset(1, 0).Select
Loop

ผมไม่รู้ว่าจะเขียน code อะไรครับ แต่น่าจะให้อยู่ใน codeของ Private Sub ComboBox01_Change()

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub ComboBox01_Change()
    Dim i As Integer
    With Sheets("cal")
        i = Application.CountIf(.Range("b3", .Range("b" & _
            .Rows.Count).End(xlUp)), ComboBox01.Text)
        If i > 0 Then
            MsgBox "<Your message>"
        End If
    End With
'Other code

[yodpao.b]

ขั้นตอน
1.แกล้งเลือกผิดโดย เลือก นางสาวศัลสนีย์ บัวชัย
แสดงผล คือ เลขประจำตัวของ นางสาวศัลสนีย์ ถูกต้อง
2.เลือกใหม่ โดย เลือก นางสาวธาริณี เปี่ยมพงศ์สานต์
แสดงผล คือ เลขประจำตัวของ นางสาวธาริณี ถูกต้อง
แต่จริงๆแล้วมันต้องไม่แสดงผลครับเพราะชื่อซ้ำ
คือต้องไม่แสดงผลตั้งแต่รายชื่อ ตรงแถบสีเหลืองต้องเป็นค่าว่างหลังจากขึ้น MsgBox ครับ
เพื่อให้เลขประจำต้วและcost เป็นค่าว่างครับ

ผมจึงเพิ่ม code ComboBox01.Text = ""
ผลที่ได้ เกือบถูกต้อง ผิดแต่มันขึ้น MsgBox สองคร้ง

แก้ไขอย่างไรดีครับ
เมื่อชื่อซ้ำหลังจากขึ้น MsgBox ตรงรายชื่อต้องว่าง

Pic 1.JPG (61.68 KiB) Viewed 131 times

ด้านล่างคือ code ที่แก้ไข

Code: Select all

Private Sub ComboBox01_Change()
On Error Resume Next

Dim i As Integer
With Sheets("cal")        '  ตรวจสอบค่าซ้ำกันใน ComboBox01
    i = Application.CountIf(.Range("b3", .Range("b" & _
        .Rows.Count).End(xlUp)), ComboBox01.Text)
    If i > 0 Then
        MsgBox "< มีชื่ออยู่ใน List แล้ว >"
        ComboBox01.Text = ""
    End If
End With

'Other code
Sheets("list_other").Select
Range("B2").Select
Do While True
    If ActiveCell.Value = ComboBox01.Text Then
       TextBox01.Text = ActiveCell.Offset(0, 1).Value
       TextBox10.Text = ActiveCell.Offset(0, 2).Value
       ComboBox09.Text = "ES05B0003014"
       AddP.Enabled = True
       Exit Sub
    End If
            ActiveCell.Offset(1, 0).Select
Loop

End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

ประกาศตัวแปรนี้ไว้บนสุดของ Module

Code: Select all

Dim cncl As Boolean

จากนั้นปรับ Code เดิมเป็น

Code: Select all

Private Sub ComboBox01_Change()
On Error Resume Next
If cncl Then
    cncl = False
    Exit Sub
End If
Dim i As Integer
With Sheets("cal")        '  ตรวจสอบค่าซ้ำกันใน ComboBox01
    i = Application.CountIf(.Range("b3", .Range("b" & _
        .Rows.Count).End(xlUp)), ComboBox01.Text)
    If i > 0 Then
        MsgBox "< มีชื่ออยู่ใน List แล้ว >"
        cncl = True
        ComboBox01.Text = ""
        Exit Sub
    End If
End With
'Other code]

[yodpao.b]

ขอบคุณครับใช้ได้แล้วครับ

[yodpao.b]

เรียนอาจารย์ครับ
ไฟล์ test ทำได้ครับ

พอเอามาใช้กับไฟล์จริงแล้วก็ ใช้ได้ครับ
แต่พอ คลิก add แล้วเครื่องฟ้องว่า มีอยู่ใน List แล้ว ดังรูปด้านล่าง

t2.JPG (45.46 KiB) Viewed 119 times

ช่วยแก้ไขให้ด้วยครับ

[yodpao.b]

ขอโทษครับ ลืมบอกเรียก from 3 ครับ

[snasui]

ช่วยระบุค่าทดสอบมาด้วยว่า Object ไหนกรอกค่าใดครับ

ในเครื่องผมไม่มี Calendar Control 11 ควรตัดการตรวจสอบ Object ที่เกี่ยวข้องว่าเป็นค่าว่างทิ้งไป (หากมี)

[yodpao.b]

p1.JPG (6.46 KiB) Viewed 96 times

p2.JPG (9.6 KiB) Viewed 96 times

p3.JPG (26.88 KiB) Viewed 96 times

1.เลือกชื่อ
2.คลิก add
ผลที่ได้ โชว์ MsgBox "< มีชื่ออยู่ใน List แล้ว >" ไม่ถูกต้อง
สิ่งที่ถูก คือ ต้องไม่โชว์ MsgBox เพราะไม่มีชื่ออยู่ใน Listbox
ไม่ทราบต้องแก้ไขตรงไหนครับ

[yodpao.b]

ไฟล์ที่ใช้ครั

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub AddP_Click()
'Other code
                ActiveCell.Offset(0, 23).Value = TextBox34.Text
                cncl = True
                ComboBox01.Text = ""

                TextBox21.Text = ""
'Other code

[yodpao.b]

ขอบคุณมากครับ ถูกต้องครับ