Sheets.Moveムーブ メソッド

本ページには広告が含まれています。

シートをブック内の他の場所に移動します。

構文
Sheets.Move( Before, After )
引数
Before 省略可
指定したシートの直前にシートを移動します。Afterを指定する場合Beforeは指定できません。
After 省略可
指定したシートの直後にシートを移動します。Beforeを指定する場合Afterは指定できません。
戻り値

Sheets オブジェクトを返すメソッド・プロパティ

Sheets.Move メソッド
アクティブなブック内のすべてのグラフシートを表すSheetsコレクションを返します。
Sheets.Move メソッド
アクティブなブック内のすべてのワークシートを表すSheetsコレクションを返します。
Sheets.Add メソッド
新しいワークシート・グラフ・またはマクロ シートを作成します。新しいワークシートがアクティブ シートになります。

使い方

「Sheet3」を先頭に移動する。

UWSC
WITH Excel
   .Worksheets("Sheet3").Move(.Worksheets(1))
ENDWITH

「Sheet1」を末尾に移動する。

UWSC
WITH Excel
   .Worksheets("Sheet1").Move(, .Worksheets(.Worksheets.Count))
ENDWITH

「Sheet1」を新規ブックに移動する。

UWSC
Excel.Worksheets("Sheet1").Move

プログラム実行例

シートを逆順に並び替える(Excel)*

UWSC
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)*

UWSC
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)*

UWSC
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 オブジェクト