Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9689 / 13644 ツリー ←次へ | 前へ→

【25828】文字数を増やす たま 05/6/15(水) 22:14 質問[未読]
【25829】Re:文字数を増やす かみちゃん 05/6/15(水) 22:23 回答[未読]
【25992】Re:文字数を増やす たま 05/6/21(火) 0:47 お礼[未読]
【25859】Re:文字数を増やす Nossori 05/6/16(木) 20:25 回答[未読]

【25828】文字数を増やす
質問  たま  - 05/6/15(水) 22:14 -

引用なし
パスワード
   E列に1桁〜5桁の数字が並んでいます。
これをすべて5桁にする場合、もともと5桁の分は
いいのですが、1桁〜4桁の数字の前に"0"を表示するように
したいです。
ちなみに、過去ログを参照しながら作成したマクロです。↓

Dim strTarget As String * 5

strTarget = String(5, 0)
strTarget = Range("e2").Value

MsgBox strTarget

これはもともとは文字の後にスペースを空けて
5桁にするマクロだとおもうのですが・・
なにも変わらないような・・(変わってもスペースだからわからなのかも?)

このコードに近い形で出来ますか?

【25829】Re:文字数を増やす
回答  かみちゃん  - 05/6/15(水) 22:23 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>E列に1桁〜5桁の数字が並んでいます。
>これをすべて5桁にする場合、もともと5桁の分は
>いいのですが、1桁〜4桁の数字の前に"0"を表示するように
>したいです。

Format(Range("E2").Value,"00000")
では、いかがでしょうか?

【25859】Re:文字数を増やす
回答  Nossori  - 05/6/16(木) 20:25 -

引用なし
パスワード
   ▼たま さん:

こんばんは

Sub Macro1()

  Columns("C:C").NumberFormatLocal = "0000#"
  
End Sub


これで出来ると思います。

【25992】Re:文字数を増やす
お礼  たま  - 05/6/21(火) 0:47 -

引用なし
パスワード
   かみちゃんさん、Nossoriさん こんばんわ

申し訳ありません。お礼を言うのをうっかり忘れていました・・
ごめんなさい。。
しかも、また同じ質問してしまってるし・・。

ありがとうございます。参考にさせていただきます。
ありがとうございました。。

9689 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free