Giúp viết code VBA để xóa ngày tháng (1 người xem)

[HUNGNGUYENCONG]

Chào mọi người ,mình có 1 file dữ liệu trong đó mình muốn xóa tất cả ô ngày tháng ở cột A (ô màu vàng trong file đính kèm )
Mình mong muốn tạo 1 Inputbox để nhập ngày vào rồi xóa ,tại vì mỗi ngày mình phải làm 1 file riêng .
Cảm ơn ạ .

 

[giaiphap]

Chào mọi người ,mình có 1 file dữ liệu trong đó mình muốn xóa tất cả ô ngày tháng ở cột A (ô màu vàng trong file đính kèm )
Mình mong muốn tạo 1 Inputbox để nhập ngày vào rồi xóa ,tại vì mỗi ngày mình phải làm 1 file riêng .
Cảm ơn ạ .

Dùng thử code này xem sao?

Sub DelDate()
Dim Rng As Range, sCell As Range, DelRng As Range, dk As String
    dk = Application.InputBox("Ban hay nhap ngay thang nam can xoa (Dang DD/MM/YYYY)")
    If dk = "" Then Exit Sub
    Set Rng = Sheet1.Range("A1:A" & Sheet1.UsedRange.Rows.Count)
    For Each sCell In Rng
        If Format(sCell.Value, "DD/MM/YYYY") = dk Then
            If DelRng Is Nothing Then
                Set DelRng = sCell
            Else
                Set DelRng = Union(DelRng, sCell)
            End If
        End If
    Next sCell
    If Not DelRng Is Nothing Then DelRng.ClearContents
End Sub

 

[HUNGNGUYENCONG]

Dùng thử code này xem sao?

Sub DelDate()
Dim Rng As Range, sCell As Range, DelRng As Range, dk As String
    dk = Application.InputBox("Ban hay nhap ngay thang nam can xoa (Dang DD/MM/YYYY)")
    If dk = "" Then Exit Sub
    Set Rng = Sheet1.Range("A1:A" & Sheet1.UsedRange.Rows.Count)
    For Each sCell In Rng
        If Format(sCell.Value, "DD/MM/YYYY") = dk Then
            If DelRng Is Nothing Then
                Set DelRng = sCell
            Else
                Set DelRng = Union(DelRng, sCell)
            End If
        End If
    Next sCell
    If Not DelRng Is Nothing Then DelRng.ClearContents
End Sub

DẠ .CODE CHẠY ĐƯỢC RỒI Ạ.E CẢM ƠN Ạ .