Excelのマクロは何もしていませんか？

Question

これは私の最初のExcelマクロであり、VBScriptで初めて作業するので、間違っている可能性がありますが、ワークブックの各シートを調べて、シートの名前をシートの名前に変更しようとしています。 "A2 "セルの価値。名前が言うように、私がそれを実行すると関数は何もしません。しかし、それは実行されています。ここに私のコードです：

Sub RenameSheets() 

    Dim WS_Count As Integer 
    Dim I As Integer 

    ' Set WS_Count equal to the number of worksheets in the active 
    ' workbook. 
    WS_Count = ActiveWorkbook.Worksheets.Count 

    ' Begin the loop. 
    For I = 1 To WS_Count 

     ActiveSheet.Name = ActiveSheet.Range("A2").Value 

    Next I 

End Sub 

Answer 1

Sub RenameSheets() 

Dim WS_Count As Integer 
Dim I As Integer 

WS_Count = ActiveWorkbook.Worksheets.Count 

For I = 1 To WS_Count 
Dim WS As Worksheet 
Set WS = ActiveWorkbook.Worksheets(I) 

'Worksheet names can not be null 
If Len(WS.Cells(2, 1)) > 0 Then 

    WS.Name = WS.Cells(2, 1) 

End If 

Next I 

End Sub 

Answer 2

アクティブシートが変更されていないので、別のシートを選択していません。

上記のワークブック内のワークシートのすべてに各ワークシートにcurrentWorksheetを設定しますfor..eachループされているものを

Dim currentWorksheet as Worksheet 
For Each currentWorksheet in ActiveWorkbook.Worksheets 
    currentWorksheet.name = currentWorksheet.Range("A2").Value 
Next currentWorksheet 

：あなたが意図した結果を取得するには、以下のあなたの関数を書き換えることができます。