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

With ステートメントを使う

2015/04/30

With ステートメントを使う

With ステートメントを使うことで、１度指定した「オブジェクト」「ユーザー定義型」の「オブジェクト名」の再指定を省略できます。
コードが見やすく、処理の追加・変更が楽になるだけでなく、処理する実行速度も向上します。

【構文】

With object

　　[ statements ]

End With

【項目の説明】

object ・・・オブジェクト名・ユーザー定義型名を指定します。
statements ・・・ object に対して、実行するステートメントを指定します。複数のステートメントを記述することができます。

With ステートメント使用例

サンプルVBAソース

　
Sub Sample()

    With ActiveWorkbook.Worksheets("Sheet1").Range("A2")
    
        .Value = "おはようございます"
        .Font.Bold = True
        .Font.Italic = True
        .Font.Underline = xlUnderlineStyleSingle
        .Font.Color = vbRed
        .ColumnWidth = 20
        
    End With
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

　

Sub Sample()

With ActiveWorkbook.Worksheets("Sheet1").Range("A2")

.Value = "おはようございます"

.Font.Bold = True

.Font.Italic = True

.Font.Underline = xlUnderlineStyleSingle

.Font.Color = vbRed

.ColumnWidth = 20

End With

End Sub

　

実行結果

aaa

- 構文 with ステートメント, エクセルVBA, オブジェクト, 構文

Tweet

Message コメントをキャンセル

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

関連記事

: プロシージャ内のサブルーチンへ移動（GoTo ステートメント）

GoTo ステートメント GoTo ステートメントは、指定したラベルのサブルーチ …

: 変数やプロシージャのスコープ（適用範囲）

変数やプロシージャのスコープ（適用範囲）【構文：変数の宣言】 { Dim | …

: 繰り返し処理（Do…Loop ステートメント）

Do…Loop ステートメントの使い方【構文 1】 Do [ Wh …

: 引数を可変にする（ ParamArray ）

ParamArray キーワード ParamArray キーワードを使用すると任 …

: 条件分岐 If文（If…Then…Else ステートメント）

If…Then…Else ステートメントの使い方【構文 …

: 省略可能な引数・デフォルト値を設定（ Optional キーワード）

Optional キーワード Optional キーワードを使用するとプロシージ …

: プロシージャを作成する（ Sub, Function ）

プロシージャを作成するプロシージャとは、実行時に 1 つの単位として処理される …

: プロシージャ内のサブルーチンへ移動（GoSub…Return ステートメント）

GoSub…Return ステートメント GoSub ステートメント …

: 繰り返し処理（For Each…Next ステートメント）

For Each…Next ステートメントの使い方【構文】 For …

: 繰り返し処理（For…Next ステートメント）

For…Next ステートメントの使い方【構文】 For coun …

PREV: 配列が引数のプロシージャを作成する
NEXT: ユーザー定義型変数を使う（Type ステートメント）