|
▼IROC さん:
早速のご返事ありがとうございました。
順調に動きました。すべて問題なく動きました。
ありがとうございました。
・・・・・・・・・・・・・・・・・・・
GoTo one
というような書き方はびっくりしました。
これは、ワークシートに”シート目次”があれば
oneの処理をするような意味でしょうか。
またoneのあとに「:」がありますが、このような書き方を
すると外でも一般的に使えるのでしょうか。
もし時間がありましたらご回答の程お願いします。
非常に不躾ではありますが、これを持って御礼に変えさせて
いただきます。今後ともよろしくお願いいたします。
本当に貴重な時間を費やしていただき感謝しております。
>Sub 目次作成()
>Dim i As Long
>
> For i = 1 To Worksheets.Count
> If Worksheets(i).Name = "シート目次" Then
> GoTo one
> End If
> Next
>
> Worksheets.Add before:=Worksheets(1)
> ActiveSheet.Name = "シート目次"
>
>one:
> With Worksheets("シート目次")
> For i = 1 To Worksheets.Count
> .Cells(i, 1).Value = Worksheets(i).Name
> Next i
> End With
>
>End Sub
|
|