Đổi tên sheet dựa vào giá trị trong ô

[nhatthai]

Chào mọi người
Tôi có vấn đề thắc mắc tên sheet có thể tự động thay đổi dựa vào giá trị của 1 ô trên sheet đó không?
Ví dụ trong book có 1 tên là data1, dựa vào giá trị trong ô a1 để tự động thay đổi tên sheet (giá trị trong ô a1 là "data1" thì sheet có tên là data1, tương tự nếu giá trị trong ô a1 là dulieu thì sheet data1 tự động thay đổi thành dulieu.
Mong mọi người giải đáp
Xin cảm ơn!

 

[anhtuan1066]

Đương nhiên là dc rồi.. dùng sự kiên WorkSheet_Change thôi...
Chẳng hạn như:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
   Sheet1.Name = Target.Value
End If
End Sub

Hoặc

Private Sub Worksheet_Activate()
ActiveSheet.Name = Range("A1").Value
End Sub

Tùy biến nhé

 

[chibi]

Tham gia thêm, tổng quát cho mọi sheet

Private Sub Worksheet_Change(ByVal Target As Range)
Dim name_old
On Error Resume Next
If Target.Address = "$A$1" Then
    name_old = ActiveSheet.Name
    Sheets(name_old).Name = Target.Value
End If
End Sub

 

[ongtrungducmx25]

Tham gia thêm, tổng quát cho mọi sheet

Private Sub Worksheet_Change(ByVal Target As Range)
Dim name_old
On Error Resume Next
If Target.Address = "$A$1" Then
    name_old = ActiveSheet.Name
    Sheets(name_old).Name = Target.Value
End If
End Sub

nếu nạp phím tắt (ctrl+shift+Q) vào để thay đổi tên sheet thì sau nhỉ từ A1: tam1;A2: tam2; A3:tam3 thì hay biết mấy!

 

[chibi]

nếu nạp phím tắt (ctrl+shift+Q) vào để thay đổi tên sheet thì sau nhỉ từ A1: tam1;A2: tam2; A3:tam3 thì hay biết mấy!

Thử cái này xem sao

Sub vidu()
dim so_sheet,i
so_sheet = Sheets.Count
For i = 1 To so_sheet
    Sheets(i).Name = Range("A" & i).Value
Next
End Sub

 

[ongtrungducmx25]

sau bổ sung vào phím tắt rồi nó không chạy nhỉ

Sub vidu()
' Keyboard Shortcut: Ctrl+Shift+O
Dim so_sheet, i
so_sheet = Sheets.Count
For i = 1 To so_sheet
    Sheets(i).Name = Range("A" & i).Value
Next
End Sub

thì báo lỗi gì "no cell were found"

 

[chibi]

Mình không biết cái này

[/COLOR][/COLOR][FONT=Courier New][COLOR=#0000bb]Keyboard Shortcut[/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000bb]Ctrl[/COLOR][COLOR=#007700]+[/COLOR][COLOR=#0000bb]Shift[/COLOR][COLOR=#007700]+[/COLOR][/FONT][COLOR=#0000bb][FONT=Courier New]O

[/FONT] để làm gì.
Nếu tạo phím tắt cho Macro thì Tools -> Macro ->Option.

 

[vumian]

Bác thử cái này xem sao

Sub RenameSheet()
For Each sh In ActiveWorkbook.Worksheets
On Error Resume Next
sh.Name = sh.Range("A1").Value
If Err.Number > 0 Then
MsgBox "Change the value at A11 of " & sh.Name & ", please !", vbOKOnly + vbInformation, "Error !"
Err.Clear
End If
On Error GoTo 0
Next sh
Application.ScreenUpdating = True
End Sub

 

[cubj]

cach dung cod nay the nao ban

 

[thanhnhansu]

sau bổ sung vào phím tắt rồi nó không chạy nhỉ

Sub vidu()
' Keyboard Shortcut: Ctrl+Shift+O
Dim so_sheet, i
so_sheet = Sheets.Count
For i = 1 To so_sheet
    Sheets(i).Name = Range("A" & i).Value
Next
End Sub

thì báo lỗi gì "no cell were found"

Bài đã được tự động gộp: 20/12/18

Bạn ơi cụ thể vào đâu để làm bạn hướng chi tiết giúp mình được không?
Mình làm hoài mà không được, nhưng mình cần dùng rất nhiều
Rất mong bạn chỉ dẫn
Mail: thanhnhansu.uv@gmail.com
Cảm ơn bạn

 

[tisdadu]

Cho em hỏi là trường hợp của em có gần 200 sheets em muốn đổi tên dựa vào giá trị của 1 ô cố định là A1 (chẳng hạn), thì em có thể dùng code gì cho nhanh ạ?

 

[ndu96081631]

Cho em hỏi là trường hợp của em có gần 200 sheets em muốn đổi tên dựa vào giá trị của 1 ô cố định là A1 (chẳng hạn), thì em có thể dùng code gì cho nhanh ạ?

Hóa ra là 200 sheets sẽ có tên giống nhau à bạn? Làm gì có chuyện đó chứ?

 

[be_09]

Hóa ra là 200 sheets sẽ có tên giống nhau à bạn? Làm gì có chuyện đó chứ?

Đã vào danh sách *
Gộp GL của một tháng lại

 

[tisdadu]

Hóa ra là 200 sheets sẽ có tên giống nhau à bạn? Làm gì có chuyện đó chứ?

Không bạn ơi, ô A1 của các sheet là những giá trị khác nhau mà.

 

[ndu96081631]

Không bạn ơi, ô A1 của các sheet là những giá trị khác nhau mà.

Vậy thì cứ dùng vòng lập duyệt qua các sheet rồi đổi thôi bạn

 

[leduan1404]

Chào mọi người
Tôi có vấn đề thắc mắc tên sheet có thể tự động thay đổi dựa vào giá trị của 1 ô trên sheet đó không?
Ví dụ trong book có 1 tên là data1, dựa vào giá trị trong ô a1 để tự động thay đổi tên sheet (giá trị trong ô a1 là "data1" thì sheet có tên là data1, tương tự nếu giá trị trong ô a1 là dulieu thì sheet data1 tự động thay đổi thành dulieu.
Mong mọi người giải đáp
Xin cảm ơn!

Mọi người có ai biết code để thay đổi tên sheet dựa vào 1 ô cố định trên google sheets không ạ. giúp mình với. Mình cảm ơn rất nhiều