Các bạn có cách nào thay đổi tên sheet theo cell của sheet đó và nó tự động cập nhật

[thanh12345678]

Các bạn cóa cách nào thay đổi tên sheet theo cell của sheet đó và nó tự động cập nhật tên không. mình không muốn khi thay đổi phải nhấn nút Run.

 

[thanh tong]

Bạn nên đưa file, sự hỗ trợ sẽ nhanh hơn

Bạn dùng thử cái này xem sao
Private Sub Worksheet_Change(ByVal Target As Range)
Sheet1.Name = Cells(1, 1).Value
End Sub

 

[sealand]

Bạn tham khảo trong file ví dụ nha

 

[ptm0412]

Sao Sealand phải dùng tới 3 vòng lặp For, mình xóa 1 vòng và gộp 2 vòng kia lại, hiệu quả tương đương. (Theo ý đồ "chỉ làm thí dụ")

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i
With ActiveSheet
   If InStr(1, "$B$2;$B$3;$B$4", Target.Address) > 0 Then
   For i = 1 To ThisWorkbook.Sheets.Count
      If .Cells(i + 1, 2) <> "" Then ThisWorkbook.Sheets(i).Name = .Cells(i + 1, 2)
      .Cells(i + 1, 1) = ThisWorkbook.Sheets(i).Name
   Next
   End If
End With
End Sub

 

[sealand]

Cám ơn Ptm 0412,
Thực ra 3 cái vòng lặp đó nó còn liên quan tới 1 vấn đề nữa, nhưng vì vội nên đành thôi nên nó dang dở thừa thãi như vậy.
1/Thay đổi vị trí của các sheet.
2/Rename sheet theo cách bình thường

 

[thanh12345678]

Bạn làm cho mình luôn vấn đề này nhé: Khi tên trùng nhau thì nó xuất hợp báo lỗi, chứ đừng có nhảy vào màng hình code được không?

 

[sealand]

Bạn sửa Code đi 1 chút:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i
On Error GoTo Thoat
With ActiveSheet
   If InStr(1, "$B$2;$B$3;$B$4", Target.Address) > 0 Then
   For i = 1 To ThisWorkbook.Sheets.Count
      If .Cells(i + 1, 2) <> "" Then ThisWorkbook.Sheets(i).Name = .Cells(i + 1, 2)
      .Cells(i + 1, 1) = ThisWorkbook.Sheets(i).Name
   Next
   End If
End With
Exit Sub
Thoat:
MsgBox "Ban kiem tra rat co the bi trung ten sheet"
End Sub