Macro : คลิกปุ่ม Delete ข้อมูลใน Listbox จะหายไป

[wisitsakbenz]

เรียน อาจารย์

ต้องการคลิกข้อมูลที่ต้องการลบใน ListBox > คลิกปุ่ม Delete ข้อมูลใน Listbox และ ใน Sheet "Data" จะหายไป
ต้องปรับ Code อย่างไรครับ ขอบคุณครับ

Code: Select all

Private Sub CommandButton1_Click()

    Dim y As Long
    Dim x As Integer
    Dim z As Integer
    
        x = MsgBox("ยืนยันที่จะ Delete ข้อมูล??", vbOKCancel, "แจ้งเตือน")
       If x = vbOK Then
        y = Worksheets("Data").Columns(1).Find(Sheets("Input").Range("I5").Value).Row

Worksheets("Data").Cells(y).EntireRow.Delete

    z = MsgBox("แก้ไขข้อมูลเรียบร้อยแล้ว", vbOKOnly, "แจ้งเตือน")
        Else
        Sheets("Input").Select
    End If
    
End Sub

[snasui]

การลบรายการที่เลือกใน ListBox ใช้ Statement นี้ครับ

Code: Select all

Me.ListBox1.RemoveItem (Me.ListBox1.ListIndex)

[wisitsakbenz]

เรียน อาจารย์ snasui

ใน Listbox หายไปแล้ว แต่ใน Sheet "Data" ยังไม่หายครับ
รบกวนอาจารย์ snasui ด้วยครับ ขอบคุณครับ

Code: Select all

Private Sub CommandButton1_Click()

    Dim y As Long
    Dim x As Integer
    Dim z As Integer
    
        x = MsgBox("ยืนยันที่จะ Delete ข้อมูล??", vbOKCancel, "แจ้งเตือน")
       If x = vbOK Then
        y = Worksheets("Data").Columns(1).Find(Sheets("Input").Range("I5").Value).Row

Me.ListBox1.RemoveItem (Me.ListBox1.ListIndex)

    z = MsgBox("แก้ไขข้อมูลเรียบร้อยแล้ว", vbOKOnly, "แจ้งเตือน")
        Else
        Sheets("Input").Select
    End If

End Sub
{/Code]

[wisitsakbenz]

เรียน อาจารย์ snasui

ผมลองทำได้แล้วครับ ขอบคุณมากครับ