ExcelVBAベーシックの試験範囲に関する練習問題を記載していきます。
勉強して得た知識が定着しているかを確認しましょう。
他の練習問題を見たい場合は練習問題一覧を押下し確認してください。
【問題】
末尾にワークシートを追加するコードを記述してください。
【解答と解説】
※問題の要件を満たしていれば正解としてください。
まずワークシートを追加するにはこちらに書いてあるWorksheetsコレクションのAddメソッドを使います。
Addメソッドには引数が4つあり、それぞれ以下になります。
- Before・・・指定されたシートの前にシートを挿入
- After・・・指定されたシートの後にシートを挿入
- Count・・・挿入するシートの枚数を指定
- Type・・・挿入するシートの種類を指定
この問題では末尾にワークシートを追加する必要がありますので以下になります。
[code]
Worksheets.Add After:=Worksheets(Worksheets.Count)
[/code]
まずCountメソッドを使いシートの数を調べ、
その結果をAddメソッドのAfterの引数に指定します。
▼記述したコード
[code]
Sub sample()
Worksheets.Add After:=Worksheets(Worksheets.Count)
End Sub
[/code]
▼実際に試したのがこちら
末尾に「Sheet1」シートが追加されました。
