Trang 1 của 2 12 CuốiCuối
Kết quả 1 đến 10 của 14

Chủ đề: Cần giúp Macro xóa sheet thời gian định trước

  1. #1
    thoroti Guest

  2. #2
    sonhp Guest
    Có anh em nào giúp mình với. Thanks AE nhiều!

  3. #3
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi nguahoangsad
    Cần anh em giúp!
    Mình muốn một Macro để xóa các sheet 1; 2; 3... theo một thời gian định sẳn nào đó.
    có anh em nào giúp mình với.
    Không có gì là không thể , nhưng có điều không có file thì có giúp bạn cũng không hiểu.[IMG]images/smilies/a43.gif[/IMG][IMG]images/smilies/a43.gif[/IMG]

  4. #4
    accxaydung Guest
    Vi du:
    Hiện tại mình có một file lịch bóng đá, trong file bao gồm các sheet sau: "Schedule"; "Bracket"; "Teams"; "Settings" và "About"
    ở đây mình muốn vào ngày 10/07/2016 sheet "Schedule" sẽ tự động xóa nếu file này được mở lên.
    tiếp theo vào ngày 15/07/2016 thì sheet "Bracket" sẽ bị xóa nếu file tiếp tục được mở lên....
    và tương tự các sheet còn lại sẽ tự bị xóa theo ngày mình định sẳn trong macro trước đó.
    file đính kèm:

    Thanks @Lê Duy Thương giúp mình cái này với

  5. #5
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi nguahoangsad
    Vi du:
    Hiện tại mình có một file lịch bóng đá, trong file bao gồm các sheet sau: "Schedule"; "Bracket"; "Teams"; "Settings" và "About"
    ở đây mình muốn vào ngày 10/07/2016 sheet "Schedule" sẽ tự động xóa nếu file này được mở lên.
    tiếp theo vào ngày 15/07/2016 thì sheet "Bracket" sẽ bị xóa nếu file tiếp tục được mở lên....
    và tương tự các sheet còn lại sẽ tự bị xóa theo ngày mình định sẳn trong macro trước đó.
    file đính kèm:

    Thanks @Lê Duy Thương giúp mình cái này với
    Đương nhiên là làm được nhưng nếu người dùng Disible macro thì tôi chịu và họ vẫn sử dụng file này bình thường. bạn nên nghic cách khác đi nhé.[IMG]images/smilies/a01.gif[/IMG]

  6. #6
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi Lê Duy Thương
    Đương nhiên là làm được nhưng nếu người dùng Disible macro thì tôi chịu và họ vẫn sử dụng file này bình thường. bạn nên nghic cách khác đi nhé.[IMG]images/smilies/a01.gif[/IMG]
    [IMG]images/smilies/a01.gif[/IMG] ! he he! Thôi chỉ mình code macro bằng cách này đi. Thank!

  7. #7
    nhq1993 Guest
    Trích dẫn Gửi bởi Lê Duy Thương
    Đương nhiên là làm được nhưng nếu người dùng Disible macro thì tôi chịu và họ vẫn sử dụng file này bình thường. bạn nên nghic cách khác đi nhé.[IMG]images/smilies/a01.gif[/IMG]
    Chỉ giúp mình , cái này mình chưa hiểu lắm
    làm như thế này mà nó không chạy được , có gì sai chỉ tiếp hộ mình

    Sub DelWs()
    Application.DisplayAlerts = False
    Dim Ws As Worksheet, WsName
    For Each Ws In ThisWorkbook.Worksheets
    If UCase(Ws.Name) = "SHEET2" And Now <= "28/06/2016" Then
    Ws.Delete
    End If
    Next Ws
    Application.DisplayAlerts = True
    End Sub

  8. #8
    dulich.hn39 Guest
    Trích dẫn Gửi bởi nguahoangsad
    Chỉ giúp mình , cái này mình chưa hiểu lắm
    làm như thế này mà nó không chạy được , có gì sai chỉ tiếp hộ mình

    Sub DelWs()
    Application.DisplayAlerts = False
    Dim Ws As Worksheet, WsName
    For Each Ws In ThisWorkbook.Worksheets
    If UCase(Ws.Name) = "SHEET2" And Now <= "28/06/2016" Then
    Ws.Delete
    End If
    Next Ws
    Application.DisplayAlerts = True
    End Sub
    Mình thấy trong file của bạn đâu có SHEET2
    Cái thức 2 nữa là Now phải là >=
    thứ 3, format date mỗi máy khác nhau nên ko nên viết trc tiếp ngày mà dùng Dateserial

  9. #9
    nguyenquy@aye.vn Guest
    Trích dẫn Gửi bởi quanluu1989
    Mình thấy trong file của bạn đâu có SHEET2
    Cái thức 2 nữa là Now phải là >=
    thứ 3, format date mỗi máy khác nhau nên ko nên viết trc tiếp ngày mà dùng Dateserial
    @Quangluu1989
    Sửa trực tiếp trên file này giúp mình với.

  10. #10
    vietkanpy Guest
    Trích dẫn Gửi bởi nguahoangsad
    @Quangluu1989
    Sửa trực tiếp trên file này giúp mình với.
    thế này thui

    Mã:
    Sub DelWs()
    Application.DisplayAlerts = False
    Dim Ws As Worksheet, WsName
    For Each Ws In ThisWorkbook.Worksheets
        If UCase(Ws.Name) = "SHEET2" And Now >= DateSerial(2016, 6, 28) Then
            Ws.Delete
        End If
    Next Ws
    Application.DisplayAlerts = True
    End Sub

Trang 1 của 2 12 CuốiCuối

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •