Tạo Sheet trong Excel

[SJOZKILF]

Các bác giúp em viết đoạn code VB gán trên button or command button sao cho khi em click vào đấy thì nó tạo ra 1 sheet có tên là "Thông tin". Sau khi tạo ra sheet"Thông tin" rồi thì có click vào button or command button đấy thì nó chỉ dẫn đến sheet"Thông tin" đã tạo mà không tạo ra một sheet"Thông tin" khác

 

[giaiphap]

Các bác giúp em viết đoạn code VB gán trên button or command button sao cho khi em click vào đấy thì nó tạo ra 1 sheet có tên là "Thông tin". Sau khi tạo ra sheet"Thông tin" rồi thì có click vào button or command button đấy thì nó chỉ dẫn đến sheet"Thông tin" đã tạo mà không tạo ra một sheet"Thông tin" khác

Bạn xem thử đúng ý mình chưa.

 

[be_09]

Thử dùng code này:

Sub TaoMoi()
Dim TaoSheet As Worksheet
Set TaoSheet = ActiveWorkbook.Worksheets.Add
    TaoSheet.Name = "Thông tin"
End Sub

 

[be_09]

Để tránh lỗi nếu sheet Thông tin tồn tại thì sử dụng code này:

Sub TaoMoi()
Dim TaoSheet As Worksheet
Application.DisplayAlerts = False
    On Error Resume Next
    ActiveWorkbook.Worksheets("Thông tin").Delete
    On Error GoTo 0
Application.DisplayAlerts = True
Set TaoSheet = ActiveWorkbook.Worksheets.Add
    TaoSheet.Name = "Thông tin"
End Sub

 

[giaiphap]

Để tránh lỗi nếu sheet Thông tin tồn tại thì sử dụng code này:

Sub TaoMoi()
Dim TaoSheet As Worksheet
Application.DisplayAlerts = False
    On Error Resume Next
    ActiveWorkbook.Worksheets("Thông tin").Delete
    On Error GoTo 0
Application.DisplayAlerts = True
Set TaoSheet = ActiveWorkbook.Worksheets.Add
    TaoSheet.Name = "Thông tin"
End Sub

Nếu dùng code này mà trong sheet thông tin có dữ liệu thì nguy hiểm lắm bác ơi.

 

[be_09]

Thì người ta hỏi nữa vời (không ăn nhậu vào đâu) thì mình trả lời nữa vời, để cho họ rút kinh nghiệm lần sau có hỏi thì nên hỏi cụ thể, rõ ràng hơn, còn nếu có ăn, có nhậu thì sẽ tính tiếp.

 

[SJOZKILF]

Bạn xem thử đúng ý mình chưa.

Em cám ơn bác ạ.

 

[SJOZKILF]

Thì người ta hỏi nữa vời (không ăn nhậu vào đâu) thì mình trả lời nữa vời, để cho họ rút kinh nghiệm lần sau có hỏi thì nên hỏi cụ thể, rõ ràng hơn, còn nếu có ăn, có nhậu thì sẽ tính tiếp.

Ok bác, em rút kinh nghiệm hỏi cụ thể hơn. Em còn non mảng này mong các bác giúp đỡ nhiều.