本ページには広告が含まれています。
Contents
シートをブック内の他の場所に移動します。
- 構文
- Sheets.Move( Before, After )
- 引数
- Before 省略可
- 指定したシートの直前にシートを移動します。Afterを指定する場合Beforeは指定できません。
- After 省略可
- 指定したシートの直後にシートを移動します。Beforeを指定する場合Afterは指定できません。
- 戻り値
Sheets オブジェクトを返すメソッド・プロパティ
- Sheets.Move メソッド
- アクティブなブック内のすべてのグラフシートを表すSheetsコレクションを返します。
- Sheets.Move メソッド
- アクティブなブック内のすべてのワークシートを表すSheetsコレクションを返します。
- Sheets.Add メソッド
- 新しいワークシート・グラフ・またはマクロ シートを作成します。新しいワークシートがアクティブ シートになります。
使い方
「Sheet3」を先頭に移動する。
WITH Excel
.Worksheets("Sheet3").Move(.Worksheets(1))
ENDWITH「Sheet1」を末尾に移動する。
WITH Excel
.Worksheets("Sheet1").Move(, .Worksheets(.Worksheets.Count))
ENDWITH「Sheet1」を新規ブックに移動する。
Excel.Worksheets("Sheet1").Moveプログラム実行例
シートを逆順に並び替える（Excel）*
WITH Excel
DIM cnt = .Sheets.Count
DIM SheetsList[cnt]
FOR i = 0 TO cnt - 1
SheetsList[i] = .Sheets(i+1).Name
NEXT
FOR i = cnt-1 TO 0 STEP -1
.Sheets(SheetsList[i]).Move(, .Sheets(cnt))
NEXT
ENDWITH使用関数
シートを昇順に並び替える（Excel）*
WITH Excel
DIM cnt = .Sheets.Count
DIM SheetsList[cnt]
FOR i = 0 TO cnt - 1
SheetsList[i] = .Sheets(i+1).Name
NEXT
QSORT(SheetsList, QSRT_A)
FOR i = 0 TO cnt - 1
.Sheets(SheetsList[i]).Move(, .Sheets(i+1))
NEXT
ENDWITH使用関数
シートを降順に並び替える（Excel）*
WITH Excel
DIM cnt = .Sheets.Count
DIM SheetsList[cnt]
FOR i = 0 TO cnt - 1
SheetsList[i] = .Sheets(i+1).Name
NEXT
QSORT(SheetsList, QSRT_A)
FOR i = 0 TO cnt - 1
.Sheets(SheetsList[i]).Move(, .Sheets(i+1))
NEXT
ENDWITH使用関数
関連記事
- XLSHEET関数 (スクリプト関数)
- Sheets オブジェクト
- 指定されたブックまたは作業中のブックにあるすべてのシートのコレクションです。
- Application.ActiveSheet プロパティ (Excel)
- Worksheet オブジェクト
- Sheets.Add メソッド (Excel)
- 新しいワークシート・グラフ・またはマクロ シートを作成します。新しいワークシートがアクティブ シートになります。
- Sheets.Delete メソッド (Excel)
- シートを削除します。
- Sheets.Item プロパティ (Excel)
- シートコレクションから単一のシートを返します。
- PageSetup オブジェクト
- Application オブジェクト
- Border オブジェクト
- Borders オブジェクト