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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 配列が引数のプロシージャを作成する

配列が引数のプロシージャを作成する【構文】 { Sub | Function …

: set ステートメントを使う

Set ステートメントを使う【構文 1】 Dim objectvar [ As …

: 条件分岐（Select Case ステートメント）

Select Case ステートメントの使い方【構文】 Select Case …

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

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

: エラー処理（On Error ステートメント / Errオブジェクト）

On Error ステートメントの使い方【構文 1】 On Error GoT …

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

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

: 引数の参照渡し・値渡し（ ByRef, ByVal ）

引数の「参照渡し」と「値渡し」「参照渡し」とはプロシージャに引数として変数を渡 …

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

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

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

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

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

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

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