Formatで桁数を揃える時に、最初にsheetをActiveにする、しないによって処理結果が変わってしまう原因が分かりません。

Question

前提・実現したいこと

Formatで文字数を7桁に指定するために、指定したセルの文字列が1234ならば0001234となるようにVBAを記述しています。

発生している問題・エラーメッセージ

この時、最初にWorksheets("出力").Activateと記述した場合と、記述しない場合で処理結果が異なる原因が分かりません。

記述した場合
00001234となります。

記述しない場合
空白のセルとなります。

こちらの違いについて、教えてくださいｍｍ

該当のソースコード

ソースコード

Sub button4()

**Worksheets("出力").Activate**
      
Dim LastRow As Integer

    LastRow = Worksheets("出力").Cells(Rows.Count, 6).End(xlUp).Row

Dim i As Integer
    
For i = 2 To LastRow

        With Worksheets("出力")

       
        .Range("F" & i).NumberFormatLocal = "@"
        .Range("F" & i) = Format(Range("F" & i), "0000000")
    
        .Range("N" & i).NumberFormatLocal = "@"
        .Range("N" & i) = Format(Range("N" & i), "0000")
      
        End With
             
Next

End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

前提として、Worksheet（”出力”）.Activateと記述した場合も記述しない場合も、桁数を揃えるべき値は入力されています。

Answer 1

With Worksheets("出力")からEnd Withの間では、式を.で始めることでオブジェクトWorksheets("出力")の記述を省略することができます。なので

.Range("F" & i) = Format(Range("F" & i), "0000000")

は

Worksheets("出力").Range("F" & i) = Format(Range("F" & i), "0000000")

と同じです。右辺にあるRange("F" & i)は.で始まっていないのでアクティブなワークシートを参照します。これも.Range("F" & i)と記述すれば

Worksheets("出力").Range("F" & i) = Format(Worksheets("出力").Range("F" & i), "0000000")

と同じになります。その場合はWorksheets("出力").Activateをしてもしなくても同じということになります。

Comments

[katsuo_bushi.]

itagagakiさん回答ありがとうございました！
Format(Range("F" & i), "0000000") →Format（.Range("F" & i), "0000000")で記述してみます。
プログラミングを始めたばかりで、分からない事が多いですが頑張ります！！