Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7505 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【38735】文字列の前にゼロを付ける方法について uesan 06/6/9(金) 10:40 質問[未読]
【38736】Re:文字列の前にゼロを付ける方法について Blue 06/6/9(金) 10:47 発言[未読]
【38738】Re:文字列の前にゼロを付ける方法について uesan 06/6/9(金) 10:59 質問[未読]
【38742】Re:文字列の前にゼロを付ける方法について Blue 06/6/9(金) 11:11 発言[未読]
【38744】Re:文字列の前にゼロを付ける方法について Blue 06/6/9(金) 11:19 発言[未読]
【38748】Re:文字列の前にゼロを付ける方法について uesan 06/6/9(金) 11:55 お礼[未読]
【38735】文字列の前にゼロを付ける方法について
質問  uesan  - 06/6/9(金) 10:40 -
引用なし
パスワード
   乱数による数値を文字列に変換し桁数が足りない場合、前にゼロを付けて表示するVBAについてお教えください。以下のマクロでは駄目でした。
Sub test()
　　Dim X, Z As String
　　Z = "0"
　　X = Str(Int(999 * Rnd))
　　If Len(X) = 2 Then X = Z + X
　　If Len(X) = 1 Then X = Z + Z + X
　　Let Range("C19") = X
End Sub
よろしくお願いします。
【38736】Re:文字列の前にゼロを付ける方法について
発言  Blue  - 06/6/9(金) 10:47 -
引用なし
パスワード
   セルの書式を設定すればよいのでは？
Range("C19").NumberFormatに適切な書式を入れてから、代入してみてください。
【38738】Re:文字列の前にゼロを付ける方法について
質問  uesan  - 06/6/9(金) 10:59 -
引用なし
パスワード
   ▼Blue さん：
>セルの書式を設定すればよいのでは？
>Range("C19").NumberFormatに適切な書式を入れてから、代入してみてください。
有り難う御座います。
ユーザー定義でいろいろ書式設定して試しましたが、駄目のようです。
【38742】Re:文字列の前にゼロを付ける方法について
発言  Blue  - 06/6/9(金) 11:11 -
引用なし
パスワード
   ▼uesan さん：
>ユーザー定義でいろいろ書式設定して試しましたが、駄目のようです。

Sample)
Sub sample()
　　Range("A1").NumberFormat = "000"
　　Range("A1").Value = 1
End Sub
【38744】Re:文字列の前にゼロを付ける方法について
発言  Blue  - 06/6/9(金) 11:19 -
引用なし
パスワード
   追記

文字列の場合

Sub sample1()
　　Range("A1").NumberFormat = "@"
　　Range("A1").Value = Format(99, "000")
　　'Range("A1").Value = Right$("000" & CStr(99), 3) でも可
End Sub

Sub sample2()
　　Range("B1").Value = "'" & Format(99, "000")
End Sub
【38748】Re:文字列の前にゼロを付ける方法について
お礼  uesan  - 06/6/9(金) 11:55 -
引用なし
パスワード
   ▼Blue さん：
>▼uesan さん：
>>ユーザー定義でいろいろ書式設定して試しましたが、駄目のようです。
>
>Sample)
>Sub sample()
>　　Range("A1").NumberFormat = "000"
>　　Range("A1").Value = 1
>End Sub
見事に問題が解決いたしました。本当に有り難う御座いました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7505 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free