マクロでLen関数の使い方がわかりません。

質問

マクロでLen関数の使い方がわかりません。

基幹システムのデーターベースをエクセル出力する機能があります。
その吐き出したエクセルファイルを使って
印刷したり、別のシステムにインポートしています。

このデーターの行数は吐き出すたび違います。
吐き出したエクセルのＤ列にあるデータですが
ここは必ず半角数字7桁固定長と決まっています。
7桁に満たないデータは0で埋めて7桁になっています。
基幹システム上でも7桁で表示されています。
例↓
0000002
0002222
0000000

ですがエクセルに吐き出されると桁数が変わってしまいます。
（なぜか0は空白にならず0と表示されています）
書式設定は[標準]でエラーマークが出ていて
（数値が文字列として保存されています）となっています。
例↓
2
2222
0

印刷時は後者、インポート時には前者である必要があるので
以下のようにＥ列は残したままＦ列に7桁表示を加えたいです。

　　　　　E　　　→ F
--------------------------
1　　　　　2 　→ 0000002
2　　1234567 →　1234567
3　　　 333　→　0000333　
4 　 22 → 0000022
5 　 4444 → 0004444
6 　 0 → 0000000

以下のマクロを作成しましたが動作しません。
Select Caseでという考え方がまずいのでしょうか？
（それ以前にLen関数の使い方もわかっていません。）
どうかよろしくお願いします。

Sub 七文字化()
行 = 2
Do
If Cells(行, 2).Value = "" Then Exit Do
n=Cells(行,2）
Select Case True
'6文字
Case Len(n) = 6
'先頭に0を追加
myStr = "0" & n
'5文字
Case Len(n) = 5
'先頭に0を追加
myStr = "00" & n
'4文字
Case Len(n) = 4
'先頭に0を追加
myStr = "000" & n
'3文字
Case Len(n) = 3
'先頭に0を追加
myStr = "0000" & n
'2文字
Case Len(n) = 2
'先頭に0を追加
myStr = "00000" & n
'1文字
Case Len(n) = 1
'先頭に0を追加
myStr = "000000" & n
'7文字ある時
Case Else
myStr = n
Cells(行, 3).Value = myStr
End Select
行 = 行 + 1
Loop
End Sub

回答No.8

hananoppo · ベストアンサー

ANo.4です。データの始まりはE1セルではなく、E2セルということでしょうか。
それなら、次のマクロでよいです。

Sub 七文字化()
Dim 行 As Long

For 行 = 2 To Range("E2").End(xlDown).Row
Cells(行, 6).NumberFormatLocal = "@"
Cells(行, 6).Value = Format(Cells(行, 5).Value, "0000000")
Next 行
End Sub

お礼

わざわざ、ありがとうございます。

はい、今回の記述で正しく動作しました。

説明が悪くて申し訳ありません。

補足

さしつかえなかったら教えてください。

データがあるまで繰り返すループではなく

例えばセルH1に
234
と入っていて同じようにセルH1はそのままで
セルB1に
000024
とするには

.Range("B1").NumberFormatLocal = "@"
.Range("B1").Value = Format(Range("H1").Value, "0000000")

でいいのでしょうか？
よろしくお願いします。

回答No.1

qualheart

まず１つE列に元の数があり、F列に複製して入力したいのであれば、
Cells(行, 2)はCells(行, 5)じゃないとダメですよね。
同じくCells(行, 3)はCells(行, 6)じゃないとダメですよね。

あとCells(行, 3).Value = myStrの位置ですが、End Selectの前ではなく、後に入れましょう。
これだけではCase ElseのときしかmyStrに代入した文字を入力しません。

End Select
Cells(行, 3).Value = myStr

と書くのが正しいです。
これでできると思います。

代入する前に
Cells(行, 3).NumberFormatLocal = "@"
のようにセル書式を文字列に変えておく処理を入れておくと、なお良いですね。

ご参考まで。

お礼

大変申し訳ありません。
ダミーデータで実験していたので
Ｂ列にデータでＣ列に複写だったので
質問した記述は
Cells(行, 2)
Cells(行, 3)
になっています。申し訳ありません。
動作しなかったので
Cells(行, 3).Value = myStr
の位地を変えました。それが間違いでした。
動かなかった原因は
Cells(行, 3).NumberFormatLocal = "@"
でした。
そういう意味では質問が間違っていました。
「0が付かないのですが？」
が正しいです。

Case Len(n) が認識しないで
Case Elseにとんでいると思って
動作しないとしてしまいました。

申し訳ありません。