Xin hỏi cách đổi tên sheet "tự động"?

Liên hệ QC
Thưa anh, là khi điền số 5 vào TextBox6, thì sau 5 phút hệ thống tự động lưu. Thể hiện thông báo trước khi lưu.
Cái này mình thấy trong hướng dẫn của VBA nhưng chưa sử dụng nên không có nghiên cứu >> không biết cách xài luôn
 
Cái này mình thấy trong hướng dẫn của VBA nhưng chưa sử dụng nên không có nghiên cứu >> không biết cách xài luôn
Cám ơn anh đã quan tâm. Để em sưu tầm tiếp có gì trao đổi tiếp với anh!
Xin anh chỉ tiếp nhé, Em muốn tạo kết hợp dữ liệu cả hai ô A1 và B1 cùng 1 sheet làm tên sheet. VD:Ô A1= "Toán"; Ô B1= "6" => Tên Sheet là "Toán 6".
 
Lần chỉnh sửa cuối:
Thì vầy nè
ActiveSheet.Name = [a1] & " " & [b1]
 
Lần chỉnh sửa cuối:
Các bạn xem giúp cho mình Code này tại sao mà mình không chuyển thành add in được?
Mình muốn dùng add in này để thay đổi tên Sheet 1 cách tự động. Cho tất cả các Sheet của các file. Ý mình là vậy
Mình chỉ có thể thay đổi tên Sheet tại file mình gửi lên thôi. Chứ không copy Code sang 1 file khác đc. Mong các bạn chỉ cho mình cách để Code này chạy trên bất kỳ file excel nao?
Thanks
 

File đính kèm

  • Thay doi ten sheet (OK!!!) - giaiphapexcel.xls
    28 KB · Đọc: 45
Chào các bậc tiền bối!

Tôi theo dõi chủ đề này từ đầu, vì tôi cũng đang gặp vấn đề về việc thay đổi tên sheet tự động, nay tôi nêu vấn đề lên đây rất mong các bậc tiền bối giúp đỡ.

- Tôi muốn tên của sheet là giá trị của một cell (ví dụ A1).
- Cell A1 của các sheet là một hàm, giá trị cell A1 của mỗi sheet có link đến một cell cố định của sheet đầu tiên (sheet tên index).
- Tôi muốn Khi các cell ở sheet index thay đổi (các cell này có điều kiện - có thay đổi - tất nhiên các cell A1 của các sheet còn lại thay đổi) thì tên tất cả các sheet còn lại thay đổi theo.

Tôi nhận thấy tất cả các code trên diễn đàn khi thay đổi trực tiếp A1 từ bàn phím thì tên sheet thay đổi theo (cái này chuẩn). Nhưng khi A1 có hàm thì tên sheet không còn tự động được nữa (đặc biệt khi các hàm bắc cầu nhiều lần thì tên sheet im luôn).

Rất mong các bậc tiền bối lý giải, giải quyết giúp tôi (vì tôi mới đang mon mem vào VBA).

Tôi xin cảm ơn!
 
Thông thường thì mình dùng vòng lặp để làm việc này
Anh quanghai1969 là sư phụ của mình đó. ngoài cách của anh ấy, Bạn có thể tham khảo thêm, cái này rất hay, mình học được của sp trên gpe đó, giúp đổi tên sheet hàng loạt và tách sheet.
 

File đính kèm

  • tach file va doi ten sheet.rar
    19.9 KB · Đọc: 114
Các bậc tiền bối giúp tôi với, tôi loay hoay mãi mà chưa giải quyết được vấn đề này.

Nếu làm thành dạng add-in thì hay hơn, bởi như vậy khi bật file lên là các lập trình của mình được thực thi.

Xin cảm ơn rất nhiều!
 
Các anh chị giúp em với ạ /-*+/
Em có 200 sheet tập hợp tăng ca cho người lao động
Em muốn đổi tên sheet theo thứ tự từ 1 đến 200, và đánh số từ 1-200 ở ô A1.
Em đổi code và group các sheet lại nhưng chỉ có 1 sheet hiểu.
Em dùng code này để đổi tên sheet theo ô A1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [a1].Address Then ActiveSheet.Name = [a1]
End Sub
Anh chị nào biết chỉ em với ạ, em cảm ơn nhiều -\\/.
 
Các anh chị giúp em với ạ /-*+/
Em có 200 sheet tập hợp tăng ca cho người lao động
Em muốn đổi tên sheet theo thứ tự từ 1 đến 200, và đánh số từ 1-200 ở ô A1.
Em đổi code và group các sheet lại nhưng chỉ có 1 sheet hiểu.
Em dùng code này để đổi tên sheet theo ô A1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [a1].Address Then ActiveSheet.Name = [a1]
End Sub
Anh chị nào biết chỉ em với ạ, em cảm ơn nhiều -\\/.

Vấn đề nằm ở đây nè:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub
 
Làm sao để tên sheet sẽ đổi theo tên ở những ô màu vàng đổi theo. Nhờ các bạn giúp cho .Cảm ơn nhiều

Mình gửi file đính kèm
 
Làm sao để tên sheet sẽ đổi theo tên ở những ô màu vàng đổi theo. Nhờ các bạn giúp cho .Cảm ơn nhiều

Mình gửi file đính kèm
 
Bạn paste code sau vào thisworkbook
Mã:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$C$2" Then
    ActiveSheet.Name = Target.Value
End If
End Sub


Mình làm nhưng ko dc bạn ạ . Bạn xem lại giúp với .

P/S mình muốn tên sheet sẽ tự đổi theo những ô màu vàng của Sheet " TH " nhé !
 
Lần chỉnh sửa cuối:
Web KT
Back
Top Bottom