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 -
引用なし
パスワード
   Ｅ列に１桁〜５桁の数字が並んでいます。
これをすべて５桁にする場合、もともと５桁の分は
いいのですが、１桁〜４桁の数字の前に"０"を表示するように
したいです。
ちなみに、過去ログを参照しながら作成したマクロです。↓

Dim strTarget As String * 5

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

MsgBox strTarget

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

このコードに近い形で出来ますか？
【25829】Re:文字数を増やす
回答  かみちゃん  - 05/6/15(水) 22:23 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>Ｅ列に１桁〜５桁の数字が並んでいます。
>これをすべて５桁にする場合、もともと５桁の分は
>いいのですが、１桁〜４桁の数字の前に"０"を表示するように
>したいです。

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