ต้องการให้ Clear ComboBox และ TextBox หลังจากบันทึก

[niwat2811]

สวัสดีครับท่านอาจารย์ ผมได้ไปลองทำ User Form ตามที่ท่านอาจารย์แนะนำไว้เมื่อวาน และถ้าผมต้องการให้ Clear ComboBox และ TextBox หลังจากกดปุ่มบันทึกข้อมูล โดยให้ Clear ให้เป็นช่องว่างเพื่อคีย์ข้อมูลต่อ ที่ช่องชื่อผู้ลา รหัสพนักงาน ลงมาตามลำดับ จนถึงช่องหมายเหตุ เลยครับ และที่ Sheet2 ถ้าผมต้องการให้ Column A เป็นลำดับที่ เรียงกันลงมาตามรายชื่อที่บันทึกไม่ทราบว่าควรเพิ่ม Code อย่างไรดีครับท่านอาจารย์

[snasui]

หัวข้อนี้ยังต้องการเหมือนเดิมหรือไม่ครับ คือเมื่อกรอกข้อมูลแล้วมีการ Enter หรือกดแป้น Tab ก็จะไปยังช่องถัดไป ถ้าใช่ ควรที่จะวางไว้ในกระทู้เดียวกัน ผมจะได้ย้ายกระทู้ไปให้ครับ

[niwat2811]

ตัว UserForm นี้ พอกด Tab แล้วมันเลื่อนไปเองเลยครับท่านอาจารย์ หัวข้อนั้นคงไม่ต้องแล้วครับ รบกวนเรื่องคำถามในหัวข้อนี้แล้วกันครับท่านอาจารย์

[snasui]

ผมปรับ Code เพิ่มเติมให้แล้วตามด้านล่าง ดูไฟล์แนบประกอบครับ

Code: Select all

Private Sub cmdOK_Click()
    Dim r As Range
    Dim t As Range
    
    Set r = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    r = ComboBox4.Value
    r.Offset(, 1) = TextBox1.Value
    r.Offset(, 2) = ComboBox5.Value
    r.Offset(, 3) = TextBox2.Value
    r.Offset(, 4) = TextBox3.Value
    r.Offset(, 5) = TextBox4.Value
    r.Offset(, 6) = TextBox5.Value
    r.Offset(, 7) = ComboBox3.Value
    r.Offset(, 8) = ComboBox2.Value
    r.Offset(, 9) = ComboBox1.Value
    If r.Offset(-1, 10) = "No" Then
        r.Offset(, 10) = 1
    Else
        r.Offset(, 10) = r.Offset(-1, 10) + 1
    End If
    ComboBox4 = "": TextBox1 = "": ComboBox5 = ""
    TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = ""
End Sub

Private Sub ComboBox4_Change()
    If ComboBox4 = "" Then Exit Sub
    TextBox1.Value = Application.VLookup(Me.ComboBox4, Sheets("Sheet1").Range("AA:AB"), 2, False)
End Sub

สำหรับเลขลำดับจะแสดงในคอลัมน K หากต้องการแสดงคอลัมน์อื่นก็ลองปรับปรุงดูครับ

[niwat2811]

ครับ ได้ลองนำมาประยุกต์ใช้แล้วตรงกับความต้องการแล้วครับ ขอบคุณท่านอาจารย์มากครับ