वीबीए मैक्रो

Question

के साथ एक्सेल शीट का नाम बदलें मैं एक्सेल शीट का नाम बदलने के बारे में पूछना चाहता हूं, मैं शीट का नाम नए नाम से बदलना चाहता हूं: पुराना नाम + _v1।

तो अगर मेरे वर्तमान शीट नाम परीक्षण है, तो मैं नया नाम test_v1 चाहते हैं।

मुझे केवल एक्सेल शीट का नाम बदलने के लिए मानक वीबीए पता है जो शीट सामग्री द्वारा एक्सेल शीट का नाम बदल रहा है।

Sub Test() 

Dim WS As Worksheet 

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

Answer 1

यह करना चाहिए:

WS.Name = WS.Name & "_v1" 

Answer 2

सुझाएँ आप परीक्षण करने के लिए से निपटने जोड़ देते हैं तो पत्रक पहले से ही नाम बदलने की के किसी भी मौजूद हैं:

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

"कोई तामझाम" विकल्प दिए गए हैं निम्नानुसार है:

ActiveSheet.Name = "New Name" 

और

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

तुम भी मैक्रो रिकॉर्डिंग और यह देखना कि कोड यह आप देता है की जाँच कर सकते हैं, यह एक शानदार तरीका अधिक वेनिला कार्यों में से कुछ सीखने शुरू करने के लिए है।