|
こんにちは。かみちゃん です。
>でシート名を自動で付けて自動でシートを追加が出来ましたが
>シートを自動で選択する方法が分かりません。
自動で選択するとは、どういう意味でしょうか?
Worksheets.Add
の後は、新規に追加されたシートがアクティブになっています。
アクティブにするということではなく、選択したいということなのでしょうか?
なお、サンプルコードとしては、以下のような感じです。
Sub Sample()
Dim i As Integer
Dim ab As Worksheet
' Sheets("シート名").Select
' Range("A1").Select
' Set ab = ActiveSheet
Set ab = Sheets("シート名")
For i = 1 To 15
' If Sheets("シート名").Cells(i, 1).Value = "" Then Exit For
' ActiveWorkbook.Worksheets.Add.Name = ab.Range("A" & i)
If ab.Range("A" & i).Value = "" Then Exit For
ActiveWorkbook.Worksheets.Add.Name = ab.Range("A" & i).Value
MsgBox "現在の選択中のシートは " & Selection.Parent.Name
Next
End Sub
変数の宣言は、きんちとしておきましょう。
また、インデントも整理して、読みやすいコードを書くようにしましょう。
|
|