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

[Quang_Hải]

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

 

[nqdn2010]

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".

 

[Quang_Hải]

Thì vầy nè
ActiveSheet.Name = [a1] & " " & [b1]

 

[nqdn2010]

Thì vầy nè
ActiveSheet.Name = [a1] & " " & [b1][/QUOTE

" Sao những cái phức tạp của em, đối với anh điều đơn giản vậy"
Rất may được biết anh.
Cám ơn Anh nhiều

 

[vanle33]

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

 

[philaobien]

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!

 

[diemdiem]

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.

 

[philaobien]

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!

 

[Red_cherryl04]

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

 

[Quang_Hải]

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

 

[Red_cherryl04]

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

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

End Sub

Anh Quanghai cho em hỏi, em làm theo anh rồi, các sheet khác vẫn không hiểu (
File của em gần 3mb không up lên đây được, anh cho em xin địa chỉ mail được không ạ

 

[Quang_Hải]

Anh Quanghai cho em hỏi, em làm theo anh rồi, các sheet khác vẫn không hiểu (
File của em gần 3mb không up lên đây được, anh cho em xin địa chỉ mail được không ạ

Code này phải nằm trong ThisWorkBook, không phải trong sheet

 

[kaka2005]

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

 

[kaka2005]

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

 

[giaiphap]

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

File đâu bạn? Bạn chưa up thì phải

 

[kaka2005]

Mình UP tạm lên Box cả nhà xem cho với nhé.

https://app.box.com/s/i1mayxx3u4scjtqrhpht9lgrvnebhmri


Cảm ơn nhiều

 

[giaiphap]

Mình gửi cả nhà xem cho nhé. Mình ko up dc file lam thế nào bây giờ

Vào trang Mediafire.com up file lên sau đó chia sẻ.

 

[kaka2005]

Mình gửi dường Link cả nhà nhé !

http://www.mediafire.com/download/080frkn9gu2aazd/DM-0104.xls

 

[hpkhuong]

Mình gửi dường Link cả nhà nhé !

http://www.mediafire.com/download/080frkn9gu2aazd/DM-0104.xls

Bạn paste code sau vào thisworkbook

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

 

[kaka2005]

Bạn paste code sau vào thisworkbook

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é !