Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ワークシートをアクティブにする・選択する（Activate, Select）

2015/08/04 2015/10/20

Activate メソッド・Select メソッド

Activate メソッドは、指定したワークシートをアクティブにします。Select メソッドは、指定したワークシートを選択します。

【書式：ワークシートをアクティブにする】

object.Activate

【書式：ワークシートを選択する】

object.Select ( replace )

項目の説明

object ・・・対象となる Worksheet オブジェクトを指定します。
replace ・・・ True を指定すると、指定したオブジェクトのみを選択します。False を指定すると現在選択されているオブジェクトに加えて、指定したオブジェクトを選択します。既定値は、True です。省略可。

複数のワークシートを一度に選択
Array 関数（Array 関数（バリアント型の配列を作成）参照）を使用します。
　（例）左から１番目、２番目のシートを選択
　　　　Worksheets( Array( 1, 2 ) ).Select
　（例）シート名が「Sheet1」「Sheet3」を選択
　　　　Worksheets( Array( “Sheet1”, “Sheet3” ) ).Select

ワークシートをアクティブにする・選択する使用例

サンプルVBAソース

　
Sub Sample_WShtActivateSelect()


    '（1）全シートを選択
    Sheets.Select
    
    '（2）2 番めのシートのみを選択
    Worksheets(2).Select
    
    '（3）「Sheet1」を追加で選択
    Sheets("Sheet1").Select False

    '（4）「Sheet1」をアクティブにする
    Worksheets("Sheet1").Activate


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

　

Sub Sample_WShtActivateSelect()

'（1）全シートを選択

Sheets.Select

'（2）2 番めのシートのみを選択

Worksheets(2).Select

'（3）「Sheet1」を追加で選択

Sheets("Sheet1").Select False

'（4）「Sheet1」をアクティブにする

Worksheets("Sheet1").Activate

End Sub

　

実行結果

（1）全シートを選択

（2）2 番めのシートのみを選択

（3）「Sheet1」を追加で選択

（4）「Sheet1」をアクティブにする

- ブック・シートの操作 Activate メソッド, Select メソッド, VBA基本, Worksheet オブジェクト, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ユーザー設定のドキュメントプロパティ（CustomDocumentProperties プロパティ）

CustomDocumentProperties プロパティユーザー設定のドキ …

: ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）

PageSetup.FitToPagesTall プロパティ PageSetup …

: 最近使用したファイル（RecentFile オブジェクト,RecentFiles コレクション）

最近使用したファイル（RecentFile オブジェクト,RecentFiles …

: 印刷の用紙サイズを設定（PageSetup.PaperSize プロパティ）

PageSetup.PaperSize プロパティ PageSetup.Pape …

: 選択されているシートを参照する（SelectedSheets プロパティ）

SelectedSheets プロパティ選択されているすべてのシートをあらわす …

: アクティブシートを参照する（ActiveSheet プロパティ）

アクティブなワークシートを参照する ActiveSheet プロパティを使用する …

: 印刷のタイトル行、タイトル列を設定（PrintTitleRows,PrintTitleColumns）

PageSetup.PrintTitleRows プロパティ PageSetup …

: 印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

余白を設定する余白を設定する単位は、pt（ポイント：約 0.03528 cm） …

: ワークシートの追加・削除（Add メソッド・Delete メソッド）

新しいワークシートを作成 Add メソッドで、新しいワークシートを指定した場所に …

: 簡易印刷（PageSetup.Draft プロパティ）

PageSetup.Draft プロパティ PageSetup.Draft プロ …

PREV: セル内部を参照（Interior プロパティ）
NEXT: フリガナ（Phonetic プロパティ）