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

[hpkhuong]

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

Vậy bạn bỏ code đầu ra.

Lấy code này và paste vào sheet TH

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
    Sheet2.Name = Target.Value
ElseIf Target.Address = "$C$59" Then
    Sheet3.Name = Target.Value
ElseIf Target.Address = "$C$116" Then
    Sheet4.Name = Target.Value
ElseIf Target.Address = "$C$136" Then
    Sheet5.Name = Target.Value
ElseIf Target.Address = "$C$169" Then
    Sheet6.Name = Target.Value
End If
End Sub

 

[kaka2005]

Cảm ơn bạn rất nhiều !

 

[kaka2005]

nhưng như vậy mỗi lần thêm 1 dữ liệu mới vao sheet ( thêm ngay "10-01" vào chẳng hạn) thì lại phải sửa thêm code.
Có cách nào tối ưu hơn ko bạn ? Để mỗi lần thêm những dòng dữ liệu mới thì nó sẽ tự động đổi theo ( VD : như đổi theo màu chẳng hạn)

Cả nhà xem giúp nhé 1

 

[Ba Tê]

nhưng như vậy mỗi lần thêm 1 dữ liệu mới vao sheet ( thêm ngay "10-01" vào chẳng hạn) thì lại phải sửa thêm code.
Có cách nào tối ưu hơn ko bạn ? Để mỗi lần thêm những dòng dữ liệu mới thì nó sẽ tự động đổi theo ( VD : như đổi theo màu chẳng hạn)

Cả nhà xem giúp nhé 1

Cột C sheet TH có dạng "??-??" là tên sheet nhé.

Public Sub GPE()
Dim sArr(), dArr(1 To 100, 1 To 1), Ws As Worksheet, I As Long, K As Long, eRws As Long
With Sheets("TH")
    eRws = .Range("C65536").End(xlUp).Row
    sArr = .Range("C1:C" & eRws).Value
    For I = 1 To eRws
        If Mid(sArr(I, 1), 3, 1) = "-" Then
            K = K + 1
            dArr(K, 1) = sArr(I, 1)
        End If
    Next I
End With
K = 0
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "TH" Then
            K = K + 1
            Ws.Name = dArr(K, 1)
        End If
    Next Ws
End Sub

 

[kaka2005]

Cột C sheet TH có dạng "??-??" là tên sheet nhé.

Public Sub GPE()
Dim sArr(), dArr(1 To 100, 1 To 1), Ws As Worksheet, I As Long, K As Long, eRws As Long
With Sheets("TH")
    eRws = .Range("C65536").End(xlUp).Row
    sArr = .Range("C1:C" & eRws).Value
    For I = 1 To eRws
        If Mid(sArr(I, 1), 3, 1) = "-" Then
            K = K + 1
            dArr(K, 1) = sArr(I, 1)
        End If
    Next I
End With
K = 0
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "TH" Then
            K = K + 1
            Ws.Name = dArr(K, 1)
        End If
    Next Ws
End Sub

==> Mình làm ko ra, bạn có thể hường dẫn mình cụ thể chút dc ko?


Đây là file của mình ! http://www.mediafire.com/download/08...zd/DM-0104.xls


-> Mình muốn những ô màu vàng trong sheet " TH " sẽ đổi tên theo tên sheet ngày : 07-01, 05-01...VV

và khi mình thêm 1 sheet mới là ngày 10-01 chẳng hạn thì nó cũng tự ông update , khi mình đổi tên sheet ngày thì nó đổi theo

. Bạn hiểu ý mình không? Xem lại giúp minh với nhé !

 

[Ba Tê]

==> Mình làm ko ra, bạn có thể hường dẫn mình cụ thể chút dc ko?


Đây là file của mình ! http://www.mediafire.com/download/08...zd/DM-0104.xls


-> Mình muốn những ô màu vàng trong sheet " TH " sẽ đổi tên theo tên sheet ngày : 07-01, 05-01...VV

và khi mình thêm 1 sheet mới là ngày 10-01 chẳng hạn thì nó cũng tự ông update , khi mình đổi tên sheet ngày thì nó đổi theo

. Bạn hiểu ý mình không? Xem lại giúp minh với nhé !

Hiểu chết liền!
Ở trên, bài #63 bạn muốn tên các sheet đổi theo các ô màu vàng cột C sheet "TH", phải vậy không?
Bây giờ thì ngược lại, thay đổi các ô màu vàng trong cột C sheet "TH" theo các tên sheet có sẵn, phải vậy không?
Mà tại sao chỉ thay đổi các ô màu vàng (tên sheet) trên cột C, nôi dung trong các sheet thay đổi, nội dung trong sheet "TH" vẫn "y chang" thì thay đổi các ô màu vàng làm gì?

 

[kaka2005]

Hiểu chết liền!
Ở trên, bài #63 bạn muốn tên các sheet đổi theo các ô màu vàng cột C sheet "TH", phải vậy không?
Bây giờ thì ngược lại, thay đổi các ô màu vàng trong cột C sheet "TH" theo các tên sheet có sẵn, phải vậy không?
Mà tại sao chỉ thay đổi các ô màu vàng (tên sheet) trên cột C, nôi dung trong các sheet thay đổi, nội dung trong sheet "TH" vẫn "y chang" thì thay đổi các ô màu vàng làm gì?

1. "" muốn tên các sheet đổi theo các ô màu vàng cột C sheet "TH""" Và Ngược lại ->đúng như vậy đó bạn

 

[khoaitay318]

To nqdn2010: Bạn xem file đúng như ý bạn nói không

file này chỉ đổi được lần đầu tiên thôi à bác, e đang muốn ví dụ ( 3 sheet từ ngày 15.11-17.11, sang tháng 12 e bấm 15.12 là nó tự đổi sang 15.12, hiện tại thì bấm nó vẫn giữ nguyên 15.11

 

[bebo021999]

file này chỉ đổi được lần đầu tiên thôi à bác, e đang muốn ví dụ ( 3 sheet từ ngày 15.11-17.11, sang tháng 12 e bấm 15.12 là nó tự đổi sang 15.12, hiện tại thì bấm nó vẫn giữ nguyên 15.11

Chủ đề này quá cũ rồi (7 năm), có thể 1 số member đã quy ẩn.
Bạn nên mở chủ đề mới, post file của bạn thì hiệu quả hơn nhé.