Nút ‘Xoa so lieu’ không hoạt động (1 người xem)

[PHONGGANHHAO]

Nút ‘Xoa so lieu’ không hoạt động. Nhờ anh chị vui lòng sửa lại giúp em và nguyên do vì sao không hoạt động?
Em cám ơn Quý anh chị

 

[nmhung49]

Bạn có thể sửa lại nhưng thế này, nói chung khi đang làm việc với code thì đừng đặt câu lệnh On Error Resume Next khi bị lỗi biết đường đâu mà lần bạn, xong rồi mình khi biết lỗi nào không có ảnh hưởng tới đoạn code thì dùng lệnh trên

Sub CommandButton3_Click()
        Dim workrange As Range, sht As Worksheet, NumAreas As Long
        Dim i As Long
        Set sht = Sheets("sheet1")
        If MsgBox("Ban chac chan muon xoa du lieu chu?" & vbCrLf & vbCrLf _
                                & "Ban chi co the phuc hoi mot lan. Ban co muon tiep tuc?", 64 + 4, "Xac nhan thong tin") <> 6 Then Exit Sub
        Range("B3:E322,G3:G322").Select
        Set workrange = Selection
        sht.Range(workrange.Address).Clear
        If TypeName(Selection) <> "Range" Then
                MsgBox "Xin hay chon vung ban muon xoa.", vbExclamation
        Exit Sub
        End If
        NumAreas = workrange.Areas.Count
        For i = 1 To NumAreas
                workrange.Areas(i).Copy sht.Range(workrange.Areas(i).Address)
        Next
        workrange.ClearContents
        Application.OnUndo "Undo ClearContents", "UndoClearContents"
End Sub

 

[PHONGGANHHAO]

Xóa ok nhưng tại sao nó xóa cả những đường ‘kẻ ngang’
Anh xem lại giúp em với

 

[nmhung49]

Sửa lại chỗ này sht.Range(workrange.Address).Clear thanh sht.Range(workrange.Address).Clearcontents, đoạn code này bạn rãnh thì nghiên cứu rút gọn lại nhen chúc thành công