がとらぼ

前回の記事で「Sheet1」に書いたコードは消して、今回は左のツリーから「標準モジュール」の中の「Module1」にコードを書くことにします。

1
2
3

Sub test()
    ThisWorkbook.Sheets(2).Cells(3, 2).Value = 1 + 2
End Sub

testという名前のサブルーチンプロシージャを作成し、「ThisWorkbook (このワークブック)」の「2番めのシート」の「Cells(3,2) "B3"セル」の「値」は「1 + 2」であるという内容です。なお、1 + 2は引用符で括っていないため「計算」になります。

ワークブックを確認します。コードでは「Sheets(2)」 (2番めのシート) を指定したのでこの例では「Sheet2」のワークシートになります。なお、2番めのシートが必ず「Sheet2」という名前のワークシートになるというわけではないのでご注意ください。
Cells(3, 2)は「3行目,2列目のセル」なのでワークシートでは"B3"セルになります。そして、その値が1 + 2を計算したものになるため 3 がセルに入っているのが正解です。なお、VBAのコードで1 + 2が計算された結果である3という数値が直接セルの値として入っています。「=1+2」 のようなワークシート関数がB3セルに入っているわけではありません。

ここからは次の例です。

今回は先に「テスト」という名前のワークシートを(手動で)作成します。もちろんワークシートはVBAでも作成できますが、それはまた次の記事以降で。

今回もコードはModule1に書きます。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

Sub test()
    Dim wsTest as Worksheet
    Set wsTest = ThisWorkbook.Worksheets("テスト")

    With wsTest.Cells(3, 2)
        .Value = 1 + 2
        .Interior.ColorIndex = 37        '暗めの水色
        With .Font
            .ColorIndex = 6        '黄色
            .Size = 20
        End With
    End With
End Sub

このようにWith ○○ 〜 End Withを使うとスッキリ書けて見通しが良くなります。

ワークブックに戻り、「テスト」という名前のワークシートを開きます。
そのワークシートの「B3」セルに3という値が入り、通常より大きい文字になっていて、文字の色が黄色、「B3」セルが水色に塗りつぶされていれば、VBAで書いたとおりになったということです。画像では3行目全体の高さが他の行より大きくなっていますが、今回VBAでは行の高さは指定していないのでExcelが自動調整して表示がこうなったものです。

注意

1
2
3
4
5

Sub test()
    With ThisWorkbook.Worksheets("テスト")
        .Cells(3, 2).Value = 1 + 2
    End With
End Sub

このように書いた場合、3行目は「.」で始まっているので2行目の対象です。つまりThisWorkbook.Worksheets("テスト").Cells(3, 2).Value = 1 + 2 と なるので、「このワークブック」の「テスト」という名前のワークシートの"B3"セルに3という値が入ります。(期待通りの動作)

1
2
3
4
5

Sub test()
    With ThisWorkbook.Worksheets("テスト")
        Cells(3, 2).Value = 1 + 2
    End With
End Sub

この例では3行目が「.」で始まっていません。この場合は2行目のWith ThisWorkbook.Worksheets("テスト")とは関係ない指定となります。 ワークブックやワークシートの指定無しの「"B3"セルの値は1+2である」と書いたのと同じ状態なので好ましくありません。
「テスト」ワークシートが選択(アクティブに)された状態でこのコードを動作させてみると「テスト」ワークシートの"B3"セルに3という値が入るかもしれませんが、他のワークシートが選択(アクティブに)された状態で動作させてみるとそのアクティブなワークシートの"B3"セルに3という値が入ります。(期待していない動作)。
なお、ワークシートのコード窓に書いた場合はアクティブなワークシートではなく、そのコード窓のワークシートのB3セルになります。また、コード内でワークシートをアクティブ(.Activate)にする指定を行った後であればそのアクティブなワークシートになります。

今回のような僅か数行のコードであればおそらく間違えることもないでしょうし、仮に間違って書いたとしてもすぐに気付けるでしょう。しかし、コードが増えると気付きにくくなるので記述の際は十分にご注意ください。

Microsoft 365 Personal(最新 1年版)|オンラインコード版|Win/Mac/iPad|インストール台数無制限(同時使用可能台数5台)

販売価格: 11,682 円
(2022年08月08日 6:00時点の参考価格)

Amazonの商品ページを見る 

Microsoft Office Personal 2021 (最新 永続版)|オンラインコード版|Windows11、10|PC2台

販売価格: 29,502 円
(2022年08月08日 6:00時点の参考価格)

Amazonの商品ページを見る 

業務改善コンサルタントの現場経験を一冊に凝縮した　Excel実践の授業

販売価格: 1,564 円
(2022年08月08日 6:00時点の参考価格)

Amazonの商品ページを見る