Tự động đặt tên Sheet

[MrPi]

Các Pro cho em hỏi: Em có một form excel gửi cho nhiều cửa hàng để họ điền số liệu báo cáo. Vấn đề làm sau khi họ điền tên cửa hàng vào ô B2 (file ví dụ đính kèm) thì tên sheet tương ứng sẽ được đặt như tên cửa hàng. Mong các Pro giúp đỡ!

 

[nghiaphuc]

Các Pro cho em hỏi: Em có một form excel gửi cho nhiều cửa hàng để họ điền số liệu báo cáo. Vấn đề làm sau khi họ điền tên cửa hàng vào ô B2 (file ví dụ đính kèm) thì tên sheet tương ứng sẽ được đặt như tên cửa hàng. Mong các Pro giúp đỡ!

Bạn có thể tham khảo code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Bao_Loi
    If Target.Address = "$B$2" Then Me.Name = [B2]: Exit Sub
Bao_Loi:     MsgBox "Ten Sheet khong hop le."
End Sub