Excel VBA質問箱 IV

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

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


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

【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
見事に問題が解決いたしました。本当に有り難う御座いました。

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