| |
こんにちは。かみちゃん です。
>"あいうえお"というシート名のA列のに入力されている文字をシート名にしてシートを追加して後からそのシートを選択する方法を誰か教えてください。
提示されたコードの意味はわかっておられますか？
以下のような修正が必要です。
Sub Sample()
Dim st As Worksheet
Dim i As Integer
' Sheets("あいうえお").Select
' Range("A1").Select
' Set st = ActiveSheet
Set st = Sheets("あいうえお")
st.Select
For i = 1 To 18
' If Sheets("あいうえお").Cells(i, 2).Value = "" Then Exit For
' ActiveWorkbook.Worksheets.Add.Name = st.Range("A" & i)
If st.Cells(i, 2).Value = "" Then Exit For
ActiveWorkbook.Worksheets.Add.Name = st.Cells(i, 2).Value
Next
End Sub
たとえ、エラーが出るとしても検証できるようなコードは最低限提示するように
しませんか？
変数の宣言やインデントの整理くらいは、vba若葉マークでもできますよね？
また、2列目の存在チェックをしているのに、A列の値でシート名を設定しよう
としているところもケアレスミスです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
