ワークシートで書式設定されたVBAでExcelセルの値を取得するにはどうすればよいですか？

Question

数字のリストの先頭に0を付ける必要があります。

e.Nameこれは単にワークシートに表示される番号「0720」のようなものである

Set cel = Sheet.worksh.Cells(1, 1) 
cel.ColumnWidth = 10 
cel.Value = e.Name 
cel.NumberFormat = "0000" 

：数字はループ内で（このように追加しましたが、これは（1を使用した一例であり、1）されています私はこのような何かあれば罰金、しかし：

Msgbox Sheet.worksh.Cells(1, 1).Value 

を私は「720」を取得、私はそれが「0720」である必要があり、私はLen()を使用してチェックし、そのようにゼロを追加することができます知っているが、私は思っていました。私にとってこれを行うRangeオブジェクトでより直接的なアプローチがあった場合

Answer 1

これを使用します

のMsgBoxフォーマット（Sheet.worksh.Cells（1,1）.Valueの、シート：あなたはフォーマットが何であるかわからない場合は、さらに良い

Msgbox Format(Sheet.worksh.Cells(1,1).Value, "0000") 

Answer 2

数値をテキスト表現と混同しています。

.Textプロパティではなく、.Valueではなく、you might have problems with itのプロパティが必要です。

Answer 3

を。 worksh.Cells（1,1）.NumberFormat）