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

[vanle33]

Nghĩa là em muốn dùng Code này để đổi tên cho 1 Sheet ở 1 Work book khác đó có được không đó?
Ví dụ em muốn thay đổi tên Sheet "De nghi" Thành "Tên khác" trong file "Dot 24"
Và em muốn biết cách làm để có thể đổi tên cho các Sheet trong file đó nữa

 

[Hong.Van]

Nghĩa là em muốn dùng Code này để đổi tên cho 1 Sheet ở 1 Work book khác đó có được không đó?
Ví dụ em muốn thay đổi tên Sheet "De nghi" Thành "Tên khác" trong file "Dot 24"
Và em muốn biết cách làm để có thể đổi tên cho các Sheet trong file đó nữa

Đã thay đổi cho bạn rồi đó!

 

[Quang_Hải]

Nghĩa là em muốn dùng Code này để đổi tên cho 1 Sheet ở 1 Work book khác đó có được không đó?
Ví dụ em muốn thay đổi tên Sheet "De nghi" Thành "Tên khác" trong file "Dot 24"
Và em muốn biết cách làm để có thể đổi tên cho các Sheet trong file đó nữa

Cơ bản về cách đổi tên sheet thì đã có rồi, muốn đổi tên cho sheet nào của file nào thì chỉ đường dẫn cho code biết thì code sẽ đổi tên theo ý của mình thôi.

 

[vanle33]

Đã thay đổi cho bạn rồi đó!

Ý mình muốn biết cách làm thế nào để đổi tên cho các Sheet khác trong nhiều file khác đó?
Mình muốn áp dung code bài #11 cho nhiều file khác mà

 

[vanle33]

Cơ bản về cách đổi tên sheet thì đã có rồi, muốn đổi tên cho sheet nào của file nào thì chỉ đường dẫn cho code biết thì code sẽ đổi tên theo ý của mình thôi.

"chỉ đường dẫn cho code" là làm như thế nào vậy a quanghai. A chỉ cho e nhé?
Thanks

 

[nqdn2010]

Dùng thuộc tính Visible của sheet để cho hiện hoặc ẩn.Ví dụ, khi chuyển sang sheet khác thì sheet sẽ bị ẩn đi, dùng code sau:

Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetHidden
End Sub

Cám ơn bạn! Lại làm phiền mọi người, hãy giúp tôi giải quyết vấn đề sau:Bạn tạo UserForm1 (Có tập tin đính kèm) trong đó Label1 thể hiện số sheet bạn đang mở, Label là số sheet sao khi bạn khởi tạo.
TextBox1 là số sheet nằm trong giới hạn bạn quy định được khởi tạo (Chẳng hạn bạn quy định số sheet khởi tạo được là 10 nếu điền vào TextBox1 vượt quá 10 thì không khởi tạo được. Lưu ý Sheet được khởi tạo mới giống hoàn toàn sheet đã mặc định ban đầu là sheet3 kể cả công thức.
Cám ơn mọi người!
(Xin lỗi Tôi không biết cách gởi tập tin đính kèm)

 

[Hong.Van]

Ý mình muốn biết cách làm thế nào để đổi tên cho các Sheet khác trong nhiều file khác đó?
Mình muốn áp dung code bài #11 cho nhiều file khác mà

Híc thì đang áp dụng Bài #11 đó, mở File bài #22 của tôi gởi lên và bài #11, bấm Alt+F11, vào ThisWorkbook xem code có giống không?

 

[nqdn2010]

Cám ơn bạn! Lại làm phiền mọi người, hãy giúp tôi giải quyết vấn đề sau:Bạn tạo UserForm1 (Có tập tin đính kèm) trong đó Label1 thể hiện số sheet bạn đang mở, Label là số sheet sao khi bạn khởi tạo.
TextBox1 là số sheet nằm trong giới hạn bạn quy định được khởi tạo (Chẳng hạn bạn quy định số sheet khởi tạo được là 10 nếu điền vào TextBox1 vượt quá 10 thì không khởi tạo được. Lưu ý Sheet được khởi tạo mới giống hoàn toàn sheet đã mặc định ban đầu là sheet3 kể cả công thức.
Cám ơn mọi người!

 

[Quang_Hải]

"chỉ đường dẫn cho code" là làm như thế nào vậy a quanghai. A chỉ cho e nhé?
Thanks

Mình thỉnh thoảng dùng code này để lấy tên sheets và đổi tên sheets, bạn nghiên cứu nha

Sub Lay_Ten_Sheet()
For i = 1 To Worksheets.Count
    Cells(i, 1) = Sheets(i).Name
Next
End Sub

Sub Doi_Ten_Sheet()
For i = 1 To Worksheets.Count
    shname = Cells(i, 1).Value
    Sheets(shname).Name = Cells(i, 2).Value
Next
End Sub

 

[vanle33]

Híc thì đang áp dụng Bài #11 đó, mở File bài #22 của tôi gởi lên và bài #11, bấm Alt+F11, vào ThisWorkbook xem code có giống không?

Mình tìm ra ô thay đổi tên Sheet rồi. Ở ô P1 phải không bạn?
Mình có thể copy Code này sang các file khác và chạy Code được không?

 

[Hong.Van]

Mình tìm ra ô thay đổi tên Sheet rồi. Ở ô P1 phải không bạn?

Không phải cell P1 mà là $A$1, xem cái này

If Target.Address = "$A$1" Then

Mình có thể copy Code này sang các file khác và chạy Code được không?

Tùy trường hợp, có những code mà có thể hiện tên Sheet rõ ràng thì fải sửa tên lại. Riêng trường hợp này thì copy được!

 

[vanle33]

Không phải cell P1 mà là $A$1, xem cái này

If Target.Address = "$A$1" Then

Tùy trường hợp, có những code mà có thể hiện tên Sheet rõ ràng thì fải sửa tên lại. Riêng trường hợp này thì copy được!

Mình sửa Code ô A1 thành P1 mà. Hiiii
Mình vừa thử Copy sang file khác mà không thấy ra Kết quả?

 

[vanle33]

HongVan ơi
Bạn chỉ cho mình từng bước copy Code sang file khác để mình làm lại xem có chạy đc không?
Thanks

 

[nqdn2010]

Mình thỉnh thoảng dùng code này để lấy tên sheets và đổi tên sheets, bạn nghiên cứu nha

Anh quanhhai1969! Giúp em giải quyết vấn đề trên với!

 

[Quang_Hải]

Cám ơn bạn! Lại làm phiền mọi người, hãy giúp tôi giải quyết vấn đề sau:Bạn tạo UserForm1 (Có tập tin đính kèm) trong đó Label1 thể hiện số sheet bạn đang mở, Label là số sheet sao khi bạn khởi tạo.
TextBox1 là số sheet nằm trong giới hạn bạn quy định được khởi tạo (Chẳng hạn bạn quy định số sheet khởi tạo được là 10 nếu điền vào TextBox1 vượt quá 10 thì không khởi tạo được. Lưu ý Sheet được khởi tạo mới giống hoàn toàn sheet đã mặc định ban đầu là sheet3 kể cả công thức.
Cám ơn mọi người!

Cũng chẳng biết đúng không, làm đại như vậy có gì thì bạn tự sửa nghen

 

[nqdn2010]

Cũng chẳng biết đúng không, làm đại như vậy có gì thì bạn tự sửa nghen

Quá tuyệt, thật như ý! Cám ơn anh thật nhiều!
Vấn đề em đặt ra theo em là rất khó, Vậy mà anh vẫn giải được. Em rất là khâm phục. Cám ơn sư phụ thật nhiều.
Thật không phí thời gian em "me" từ tối hôm qua tới giờ ! Một lần nữa cám ơn anh!
Có một vấn đề nhỏ, "Nó" khởi tạo sheet "vô tư", không có giới hạn, Xin sư phụ chỉ giáo nhé!

 

[Quang_Hải]

Bạn xem lại file này

 

[nqdn2010]

Bạn xem lại file này

Quá như ý ! thật là hay!
Cám ơn anh nhiệt tình chỉ dạy em !
Làm phiền anh nữa nhé!
Em tạo Code sau:
"Private Sub TextBox6_Change()
Application.AutoRecover.Time = TextBox6.Value
End Sub"
Để định thời gian lưu. Nhưng nó không hoạt động, vậy sai chỗ nào hả anh!

 

[Quang_Hải]

Bạn muốn định thời gian để làm gì mình không hiểu.

 

[nqdn2010]

Bạn muốn định thời gian để làm gì mình không hiểu.

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.