Đổi tên Bảng Excel bằng VBA Macro

Question

Tôi muốn hỏi về đổi tên trang tính excel, tôi muốn đổi tên trang tính bằng tên mới: tên cũ hơn + _v1.

Vì vậy, nếu tên trang tính hiện tại của tôi là kiểm tra, thì tôi muốn tên mới test_v1.

Tôi chỉ biết vba tiêu chuẩn để đổi tên bảng tính excel được đổi tên bảng excel bằng nội dung trang tính.

Sub Test() 

Dim WS As Worksheet 

For Each WS In Sheets 
    WS.Name = WS.Range("A5") 
Next WS 
End Sub 

Answer 1

này nên làm điều đó:

WS.Name = WS.Name & "_v1" 

Answer 2

Đề nghị bạn thêm xử lý để kiểm tra nếu có của các tấm được đổi tên đã tồn tại:

Sub Test() 

Dim ws As Worksheet 
Dim ws1 As Worksheet 
Dim strErr As String 

On Error Resume Next 
For Each ws In ActiveWorkbook.Sheets 
Set ws1 = Sheets(ws.Name & "_v1") 
    If ws1 Is Nothing Then 
     ws.Name = ws.Name & "_v1" 
    Else 
     strErr = strErr & ws.Name & "_v1" & vbNewLine 
    End If 
Set ws1 = Nothing 
Next 
On Error GoTo 0 

If Len(strErr) > 0 Then MsgBox strErr, vbOKOnly, "these sheets already existed" 

End Sub 

Answer 3

Các "không kiểu cách" tùy chọn là như sau:

ActiveSheet.Name = "New Name" 

và

Sheets("Sheet2").Name = "New Name" 

Bạn cũng có thể kiểm tra ghi macro và nhìn thấy những gì mã nó mang đến cho bạn, đó là một cách tuyệt vời để bắt đầu học một số chức năng vani hơn.