【VBA】Worksheets

おだねこ

~簡単な自己紹介~

  • 嫁と猫3匹と暮らすフルリモートの三十路SE
  • 投資・節約・副業で資産形成中
  • 現在の金融資産は約1,750万円、めざせアッパーマス層(資産3,000万円)

シートを参照する

'アクティブなシートを参照する
Set ws = ActiveSheet

'シート名を指定して参照する
Set wb = ThisWorkbook
Set ws = wb.Worksheets("シート名")

'シート番号(一番左のシートが1)を指定して参照する
Set wb = ThisWorkbook
Set ws = wb.Worksheets(1)

ブックのシート数を取得する

Set wb = ThisWorkbook

'シート数を取得
ws_cnt = wb.Worksheets.Count

新しいシートを追加する

Set wb = ActiveWorkbook

'新しいシートを追加
wb.Worksheets.Add

'新しいシートを追加、追加したシートを変数に設定
Set ws_new = wb.Worksheets.Add

シートを削除する

Set wb = ThisWorkbook
Set ws = wb.Worksheets(2)

'シートを削除
ws.Delete

シート名を取得・変更する

Set wb = ThisWorkbook
Set ws = wb.Worksheets(1)

'シート名を取得
ws_name = ws.Name

'シート名を変更
ws.Name = "新しいシート名"

以上になります。

お疲れさまでした。

Follow me!

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

CAPTCHA