Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13492 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5145】全てに０をつける方法は？ Nancy 03/4/23(水) 15:10 質問
【5152】Re:全てに０をつける方法は？ Jaka 03/4/23(水) 16:17 回答
【5153】Re:全てに０をつける方法は？ Nancy 03/4/23(水) 16:56 質問
【5155】Re:全てに０をつける方法は？ Hirofumi 03/4/23(水) 18:31 回答
【5156】Re:全てに０をつける方法は？ Nancy 03/4/23(水) 18:53 お礼
【5145】全てに０をつける方法は？
質問  Nancy  - 03/4/23(水) 15:10 -
引用なし
パスワード
   9などの数値にはFormat(Cells(1, 13), "00")で
09といったようにできますが、
Bなどの文字の場合はどうしたらいいでしょうか？
0Bのようにしたいです。
【5152】Re:全てに０をつける方法は？
回答  Jaka  - 03/4/23(水) 16:17 -
引用なし
パスワード
   　こんにちは。
こんな感じで良いでしょうか？

msgbox Format(Range("A1").Value, """0""@")
【5153】Re:全てに０をつける方法は？
質問  Nancy  - 03/4/23(水) 16:56 -
引用なし
パスワード
   確かに全てに０を付けれました。
ちょっと説明不足だったのですが、
9Aなど数値と文字が一緒になったものは
そのままにしたいですが。
例として
9→09
B→0B
9A→そのまま9A
このようにしたいです。

できますでしょうか？
【5155】Re:全てに０をつける方法は？
回答  Hirofumi E-MAIL  - 03/4/23(水) 18:31 -
引用なし
パスワード
   文字1つを0を付けて2文字にするのなら

　　MsgBox Right("00" & CStr(Cells(1, 13).Value), 2)
【5156】Re:全てに０をつける方法は？
お礼  Nancy  - 03/4/23(水) 18:53 -
引用なし
パスワード
   どうも、ありがとうございます。
VBAを勉強する良い本がありましたら教えてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13492 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free