สอบถามเกี่ยวกับการลบข้อมูลซึ่งอยู่คนละ Sheet

[niwat2811]

สอบถามเกี่ยวกับการลบข้อมูลซึ่งอยู่คนละ Sheet โดยเลือกข้อมูลจาก ComboBox กดปุ่ม Delete แล้วให้ไปลบข้อมูลที่อยู่อีก Sheet โดยลบทั้งแถวเลยครับ

[snasui]

ลองดู Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    On Error Resume Next
    With Sheets("Database")
        .Range("A" & Application.Match(CDbl(ComboBox1.Text), _
            .Range("A:A"), 0)).EntireRow.Delete
    End With
End Sub

[niwat2811]

ครับ ขอบคุณท่านอาจารย์มากครับ Code ใช้ได้ผลเป็นอย่างดีเลยครับ รบกวนสอบถามท่านอาจารย์ด้วยว่า มีข้อสังเกตุตรงไหนหรือต้องดูอย่างไรหรือเมื่อไรว่าเราควรจะใช้ CDbl หรือ CLng ตอนแรกผมลองใช้ CLng แล้วมันขึ้น Error

.Range("A" & Application.Match(CLng(ComboBox1.Text), _
.Range("A:A"), 0)).EntireRow.Delete

ครับ

[snasui]

สามารถดู Data Type ได้จากที่นี่ครับ Data type summary ซึ่งสามารถดูได้ว่าข้อมูลเราอยู่ในช่วงไหนถึงไหนและควรประกาศตัวแปรเป็นอะไร

[niwat2811]

ตัวอย่างเดิมครับท่านอาจารย์ ผมได้ลองนำ Code ของท่านอาจารย์มาลองแก้ไข คือต้องการให้เลือกค ComboBox กดปุ่ม Delete Column แล้วไปลบข้อมูลที่ Sheet Report ครับ แต่ว่า Code ไม่ทำงานรบกวนท่านอาจารย์ช่วยชี้แนะด้วยครับ Code อยู่ใน Module1 ครับ

[snasui]

ลองดูตัวอย่างการปรับ Code เป็นตามด้านล่าง สำหรับ Code ที่แนบมานั้นอ้างชื่อ Sheet เป็น Database ซึ่งไม่ถูกต้องครับ

Code: Select all

Sub DeleteColumn()
    Dim cb As Object
    Set cb = Sheets("Find").OLEObjects("ComboBox1")
    With Sheets("Report")
        .Range("I" & Application.Match(CDbl(cb.Object.Value), _
        .Range("I:I"), 0)).Offset(0, -8).Resize(, 11) _
        .EntireColumn.Delete
    End With
End Sub

[niwat2811]

ครับ ก่อนอื่นต้องขออภัยท่านอาจารย์ด้วยครับคือผมอาจจะสื่อข้อความหรือคำถามไม่เข้าใจ คือว่า ต้องการให้เลือกเลขที่บัญชีใน ComboBox ที่ Sheet "Find" แล้วให้ไปลบข้อมูลที่ Sheet "Report" ครับ เช่น ข้อมูลใน ComboBox ที่เลือกตรงกับ I8 ใน Sheet "Report" ก็ให้ลบ Column "A:K" แต่ถ้าข้อมูลที่เลือกใน ComboBox ตรงกับ T8 ใน Sheet"Report" ก็ให้ลบ Column "L:V" น่ะครับ คือว่าหน้ารายงานจะเรียงไปทางขวาประมาณ 300 หน้าครับ

[snasui]

ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

Sub DeleteColumn()
    Dim cb As Object
    On Error Resume Next
    Set cb = Sheets("Find").OLEObjects("ComboBox1")
    With Sheets("Report")
        .Range("A8").Offset(0, Application.Match(CDbl(cb.Object.Value), _
        .Range("8:8"), 0) - 1).Offset(0, -8).Resize(, 11) _
        .EntireColumn.Delete
    End With
End Sub

[niwat2811]

ครับผมตรงตามความต้องการแล้วครับท่านอาจารย์ แต่ติดปัญหาอีกนิดนึงคือถ้าเราเลือกเลขที่ บัญชี 800000000001-800000000012 ข้อมูลใน ComboBox ถูกต้อง แต่ถ้าเราเลือกเลขที่บัญชีตั้งแต่ 800000000013 เลขที่บัญชีใน ComboBox จะเป็น 800000000013.333 ถ้าเลือกเลขที่บัญชี 800000000014 เลขที่บัญชีใน ComboBox จะเปลี่ยนเป็น 800000000014.372 ทำให้ไม่สามารถลบข้อมูลได้ไม่ทราบว่าเป็นเพราะเหตุใดครับ

[snasui]

ตัวเลขใน ComboBox มาจากไหนก็ให้ตรวจสอบต้นแหล่งครับว่าเหตุใดจึงมีจุดทศนิยม ถ้าไม่ใช้ก็ให้ลบออกไปครับ

[niwat2811]

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