Xóa Sheet

Thảo luận trong 'Lập Trình với Excel' bắt đầu bởi nvson, 30 Tháng chín 2006.

  1. nvson

    nvson Geotechnics

    Tôi muốn xoá một sheet trong Excel nhưng không muốn hiện ra bảng thông báo thì phải làm thế nào?
    Sub Delete_Sheet()
    Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Delete
    End Sub
     
  2. kienptmail

    kienptmail New Member

    Re: Cách xóa Sheet không hiện thông báo.

    Để làm được như vậy ban sử dụng lệnh: Application.DisplayAlerts = False và Application.DisplayAlerts = True vào trong thủ tục
    Ví dụ:

    PHP:
    Public Sub Xoa_sheet()
    Application.DisplayAlerts False
    Const DS "sheet1"
    Dim WS As Worksheet
    Set WS 
    Sheets(DS)
    WS.Delete
    Set WS 
    Nothing
    Application
    .DisplayAlerts True
    End Sub
     
  3. PhanTuHuong

    PhanTuHuong Excel & AutoCad & VBA

    Tôi đã sử dụng Application.DisplayAlerts = False nhưng vẫn cứ báo, thế mới lạ chứ. Hay do mình nhầm nhỉ ;;;;;;;;;;;
     
  4. kienptmail

    kienptmail New Member

    Có thể là anh bị sai lỗi cú pháp ở dòng lệnh nào đó, thử copy cái đoạn lệnh của em chạy thử xem.
     

Chia sẻ trang này