Thay đổi tên của một Sheet

[haingo08tlt]

Hi all!
Minh có 1 workbook gồm 3 sheet là Sheet1, Sheet2, Sheet3. Mình muốn viết 1 macro để thay đổi tên của mỗi sheet. Với 1 tham số được truyền vao
Thank All!

 

[Hai Lúa Miền Tây]

Hi all!
Minh có 1 workbook gồm 3 sheet là Sheet1, Sheet2, Sheet3. Mình muốn viết 1 macro để thay đổi tên của mỗi sheet. Với 1 tham số được truyền vao
Thank All!

Bạn dùng code sau:
Theo thứ tự tên sheet từ 1-->n

Sub DoiTenShet()
Dim sh As Worksheet
Dim i As Long
  For i = 1 To ActiveWorkbook.Sheets.Count
     Sheets(i).Name = i
  Next
End Sub

 

[ndu96081631]

Hi all!
Minh có 1 workbook gồm 3 sheet là Sheet1, Sheet2, Sheet3. Mình muốn viết 1 macro để thay đổi tên của mỗi sheet. Với 1 tham số được truyền vao
Thank All!

Sao mà "Với 1 tham số được truyền vao" được ---> Tôi nghĩ phải 2 tham số mới đúng chứ nhỉ
Ví dụ:

Sub RenameSheet(OldName As String, NewName As String)
  On Error Resume Next
  If Not Sheets(OldName) Is Nothing Then
    Sheets(OldName).Name = NewName
  End If
End Sub

Chạy thử nghiệm:

Sub Test()
  RenameSheet "Sheet1", "ndu"
End Sub