Cách tạo 1 macro đổi tên worksheet hiện tại thành tên "sheet_A"?

[tricaominh]

Mình muốn tạo 1 macro đổi tên sheet hiện tại thành một tên đã định sẵn.

 

[hoamattroicoi]

Mình muốn tạo 1 macro đổi tên sheet hiện tại thành một tên đã định sẵn.

Thử CODE này xem :

Sub Renamesheet()
    ActiveSheet.Name = "Sheet_A"
End Sub

 

[ndu96081631]

Thử CODE này xem :

Sub Renamesheet()
    ActiveSheet.Name = "Sheet_A"
End Sub

Thật ra bài này có thể record macro để biết code nhưng nếu làm thật kỹ thì không thể đơn giản thế được
Việc đặt tên cho 1 sheet phải qua 3 công đoạn:
1> Kiểm tra tính hợp lệ của tên sheet (Thông thường thì tên sheet phải không được rổng; không được chứa các ký tự đặt biệt và không được dài quá 31 ký tự...)
2> Kiểm tra sự tồn tại của tên ta sắp đặt cho sheet (nếu tên đã có thì... làm gì đó: Ra thông báo chẳng hạn)
3> Đặt tên
Như vậy đấy! Nên sau này khi làm những dự án lớn có liên quan đến việc đặt tên sheet, ta phải luôn "thủ sẵn" 2 hàm kiểm tra như mục 1 và 2 đã nói ở trên