VBA 前後のシート名を取得 前後のシート名を取得 Sub test() ’ 前後のシート名を取得 Dim WS As Worksheet Set WS = Sheets("竹") MsgBox _ "前のシート名:" & WS.Previous.Name & vbCrLf & _ "後のシート名:" & WS.Next.Name End Sub 実行結果 ― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る