Tạo thêm các sheet mới và gán tên

[MinhVT1]

Mình đang loay hoay với đoạn code làm sao để: tương ứng với mỗi nhân viên chỉ tạo 1 Sheet và lấy tên sheet la tên nhân viên đó.

Mình đang học hỏi về VBA nên mong các bạn giúp đỡ!

 

[anhphuong]

Sub TaoSh()
    TenSh = ActiveCell.Value
    Sheets.Add.Name = TenSh
End Sub

Đặt ô sáng vào ô Tên Nhân Viên(cột B của Sheet1) rồi chạy code trên
Thân

 

[SA_DQ]

Xin nhắn với bạn ở một khía cạnh khác rằng,

Mình đang loay hoay với đoạn code làm sao để: tương ứng với mỗi nhân viên chỉ tạo 1 Sheet và lấy tên sheet la tên nhân viên đó.

Nếu tên đó là tên người việt thì lợi bất cập hại
Sau này cần truy xuất tên sheet bằng VBA thì hỡi ôi, khó mà thành công!
Nếu là tên người nước ngoài thì có khi là quá dài, & không cần thiết cho SheetNames
Thường mình dùng 4 ký tự cho 1 tên sheet, & chỉ thế thôi,
VD: [TCHC], [TVu], [TKho], [BCao] . . . .
Hay bạn nên gán tên sheet của người nào đó bằng mã của họ, VD [A251] , . . . chẳng hạn.

 

[Mr Okebab]

Sub TaoSh()
    TenSh = ActiveCell.Value
    Sheets.Add.Name = TenSh
End Sub

Đặt ô sáng vào ô Tên Nhân Viên(cột B của Sheet1) rồi chạy code trên
Thân

Sẽ báo lỗi nếu tên Sheet có các ký tự đặc biệt vi phạm điều cấm của Bill
Nếu đặt biến thì bác nên khai báo cho tường minh. (Dim)
Còn đơn giản :

Sub TaoSh()
    On error resume next
    Sheets.Add.Name = ActiveCell.Value
End Sub

Thaan!

 

[anhphuong]

Hoàn toàn nhất trí với ý kiến bác Sa và Bap. Ở đây chỉ hướng dẫn theo chủ ý của topic còn muốn thật đầy đủ thì lại khác, Bạn cần chú ý gợi ý của hai bài trên
Thân

 

[MinhVT1]

Mình không nghĩ lại được trả lời nhanh như vậy. Cảm ơn mọi người rất nhiều nhé!
MinhVT

 

[voda]

Bạn cần chú ý thêm về một khía cạnh khác. Đó là số lượng sheet cho phép trong excel. Số lượng sheet này không nhiều lắm và tùy vào bộ nhớ của máy tính. Nếu nhân viên của bạn khoảng 2-3 trăm thì phải xem lại kiểu tạo sheet và đặt tên này.