先行0の保持/挿入

Question

私のプロジェクトで先行0を取得して維持するのは苦労しています。ここでは、コードの現在の関連部分です：

Dim jobNum As String 

jobNum = Left(r1.Cells(1, 1), 6) 

r2.Cells(1, JOBCOL) = (jobNum) 
r2.Cells(1, JOBCOL).NumberFormat = "@" 

は~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~ スタッフは私が試してみた -

r2.Cells(1, JOBCOL) = CStr(jobNum) 

を - 多分問題だということを貼り付けているため、文字列モードでそれを維持しようとしていますか？

If Len(jobNum) = 4 Then 
    jobNum = "'00" & jobNum 
    Else 
    jobNum = jobNum 
    End If 

[OK]を正常に読み取ることができない場合は、手動で追加できますか？ （予想される長さは、長さレジスタは4として、私は問題を持っている、と私は2つの主要な0年代に追加する必要がある場合、6である）

そして最後に、それを得るために私の試みは、最初の場所で適切に読み取るために：

Dim Jobnum as String 
Dim Jobnumfixed as Integer 

jobNum = Left(r1.Cells(1, 1), 6) 
jobnumfixed = format (jobnum, "000000") 

私はこれらのすべてをExcel VBA Won't Keep Leading Zeroesから取った。しかし、それらのどれも私のシートにいくつかの先頭の0を取得して保つことである、期待された結果に終わったことはありません。私は間違って何をしていますか？これを修正するにはどこで調べるべきですか？

ありがとうございます

編集：それが動作するように管理。 jobNum = left（r1.Cells（1,1）、6）がjobNum =（ "'" & Left（r1.Cells（1,1）））になりました。ハレイ！ここで

Answer 1

は数に先行ゼロを配置する方法です：

Sub LeadingZerosText() 
    Dim N As Long 

    N = 1137 

    Range("A1").NumberFormat = "@" 
    Range("A1").Value = "00" & N 

End Sub 

：

Sub LeadingZerosNumbers() 
    Dim N As Long 

    N = 1137 

    Range("A1").Value = N 
    Range("A1").NumberFormat = "000000" 
End Sub 

、ここでは、数のように見えるテキストに先行ゼロを配置する方法です

どちらの場合でもA1が表示されます：