ลบข้อมูลที่ต้องการโดยใช้ vba เข้าช่วย

[Totem]

เรียนอาจารย์และเพื่อนสมาชิก

ต้องการลบข้อมูล ก่อนลบมี MsgBox เตือน และทำการลบข้อมูลที่มีอยู่ ซึ่งในแต่ละDateอาจจะมีข้อมูลไม่เท่ากัน ช่วยปรับ Code ให้หน่อยครับ

Code: Select all

Sub answerYesNO()

Dim answer As Long


    With ActiveSheet

        answer = MsgBox("Clear?", vbYesNo + vbQuestion, "data")

            If answer = vbYes Then

                
                LastRow = .Range("b" & .Rows.Count).End(xlUp).Row
                LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
                
                .Range("b1" & LastRow & LastColumn).ClearContents
            

            Else
        
            
        End If
        
       End With

    End Sub

code ที่ยังไม่ได้ตามที่ต้องการ

Code: Select all

                LastRow = .Range("b" & .Rows.Count).End(xlUp).Row
                LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
                
                .Range("b1" & LastRow & LastColumn).ClearContents
            

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

เปลี่ยน .Range("b1" & LastRow & LastColumn).ClearContents เป็น .Range("b1").Resize(lastrow, lastcolumn).ClearContents

[Totem]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

เปลี่ยน .Range("b1" & LastRow & LastColumn).ClearContents เป็น .Range("b1").Resize(lastrow, lastcolumn).ClearContents

ปรับแล้วลบข้อมูลได้ แต่ ลบไปถึง column AG ไม่สามารถลบไปไม่ถึง LastColumn AP ครับ

[niwat2811]

กรณีที่ Rows หรือ Columns เป็นแบบไดนามิกลองปรับแบบนี้ดูครับว่าใช้ได้ตามต้องการไหม

Code: Select all

Sub answerYesNO()

Dim answer As Long


    With ActiveSheet

        answer = MsgBox("Clear?", vbYesNo + vbQuestion, "data")

            If answer = vbYes Then

                
                lastrow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
                lastcolumn = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
                
                .Range("b1").Resize(lastrow, lastcolumn).ClearContents
            

            Else
        
            
        End If
        
       End With

    End Sub

[Totem]

กรณีที่ Rows หรือ Columns เป็นแบบไดนามิกลองปรับแบบนี้ดูครับว่าใช้ได้ตามต้องการไหม

Code: Select all

Sub answerYesNO()

Dim answer As Long


    With ActiveSheet

        answer = MsgBox("Clear?", vbYesNo + vbQuestion, "data")

            If answer = vbYes Then

                
                lastrow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
                lastcolumn = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
                
                .Range("b1").Resize(lastrow, lastcolumn).ClearContents
            

            Else
        
            
        End If
        
       End With

    End Sub

ขอบคุณครับ แต่ยัง error ตั้งแต่บรรทัด

Code: Select all

lastrow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

ส่วนบรรทัดนี้น่าจะตก .

Code: Select all

lastcolumn = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column

[niwat2811]

ขอโทษครับน่าจะตก . ไปตัว สำหรับ Code ผมลองใช้กับเครื่องผมแล้วก็ไม่ติด error นะครับ
ยังไงคงต้องรอผู้รู้ท่านอื่นช่วยตอบแล้วครับ

[Totem]

ขอโทษครับน่าจะตก . ไปตัว สำหรับ Code ผมลองใช้กับเครื่องผมแล้วก็ไม่ติด error นะครับ
ยังไงคงต้องรอผู้รู้ท่านอื่นช่วยตอบแล้วครับ

ขอโทษครับ ผมลองใหม่แล้วใช้งานได้ตามต้องการครับ ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

เปลี่ยน .Range("b1" & LastRow & LastColumn).ClearContents เป็น .Range("b1").Resize(lastrow, lastcolumn).ClearContents

ปรับแล้วลบข้อมูลได้ แต่ ลบไปถึง column AG ไม่สามารถลบไปไม่ถึง LastColumn AP ครับ

หากต้องการลบข้อมูลทั้งชีทให้ใช้

Code: Select all

Cells.ClearContents

หรือหากต้องการลบเฉพาะเฉพาะช่วงข้อมูลที่เคยใช้งานให้ใช้

Code: Select all

ActiveSheet.UsedRange.ClearContents

ตัวอย่าง

Code: Select all

Dim answer As Long
With ActiveSheet
    answer = MsgBox("Clear?", vbYesNo + vbQuestion, "data")
    If answer = vbYes Then
        .UsedRange.ClearContents
    End If
End With

[Totem]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

เปลี่ยน .Range("b1" & LastRow & LastColumn).ClearContents เป็น .Range("b1").Resize(lastrow, lastcolumn).ClearContents

ปรับแล้วลบข้อมูลได้ แต่ ลบไปถึง column AG ไม่สามารถลบไปไม่ถึง LastColumn AP ครับ

หากต้องการลบข้อมูลทั้งชีทให้ใช้

Code: Select all

Cells.ClearContents

หรือหากต้องการลบเฉพาะเฉพาะช่วงข้อมูลที่เคยใช้งานให้ใช้

Code: Select all

ActiveSheet.UsedRange.ClearContents

ตัวอย่าง

Code: Select all

Dim answer As Long
With ActiveSheet
    answer = MsgBox("Clear?", vbYesNo + vbQuestion, "data")
    If answer = vbYes Then
        .UsedRange.ClearContents
    End If
End With

ขอบคุณครับ