-1

重複の可能性:
Excel VBA: バッチの名前変更シート

助けてくれてありがとう。私はおそらく適切に反復していません。アクティブシートに整数を割り当てるべきだったのでしょうか？ 

Sub TabNames()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
ActiveSheet.Name = "herp"
Next ws
ActiveSheet.Name = "derp"
Next ws
ActiveSheet.Name = "herp derp"
Next ws
ActiveSheet.Name = "derp herp"
Next ws
ActiveSheet.Name = "herp herp"
Next ws
ActiveSheet.Name = "derp derp"

End Sub
4

2 に答える 2

1 
Sub TabNames()

Dim arrNames, x as integer

arrNames = Array("herp", "herp derp", "derp herp", "herp herp", "derp derp")

For x = 1 to ActiveWorkbook.Worksheets.Count
    ActiveWorkbook.Worksheets(x).Name = arrNames(x-1)
Next x

End Sub
于 2013-01-11T00:51:43.870 に答える
0

ActiveSheetは手順全体で同じシートであるため、現在の/可視のワークシートの名前を何度も変更しているだけです。

次のような行を使用します。

ws.Name = "herp"

等...

于 2013-01-10T23:33:21.777 に答える