Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9481 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【27084】数字で０付加する方法について takapi 05/7/28(木) 16:18 質問[未読]
【27086】Re:数字で０付加する方法について ちくたく 05/7/28(木) 16:30 回答[未読]
【27087】Re:数字で０付加する方法について Jaka 05/7/28(木) 16:32 回答[未読]
【27088】Re:数字で０付加する方法について takapi 05/7/28(木) 16:47 お礼[未読]
【27084】数字で０付加する方法について
質問  takapi E-MAIL  - 05/7/28(木) 16:18 -
引用なし
パスワード
   こんにちわ
以下のプロシジャーでintNoを"08"にしたいのですが"8"になってしまい困っております。
"08"とする方法をアドバイスお願いします
Sub test()
　　Dim strNo As String
　　
　　strNo = "07"
　　intNo = strNo + 1
　　
　　MsgBox intNo
End Sub
【27086】Re:数字で０付加する方法について
回答  ちくたく  - 05/7/28(木) 16:30 -
引用なし
パスワード
   こんんちは。
intNoに代入するときが問題みたいな気がします。
VBAの変数の型はよくはしりませんが、ダブルクオーテーションでかっこってないし。

Sub test()

　　Dim myInt As Integer
　　Dim myStr As String
　　
　　myInt = 7
　　myStr = "0" & myInt + 1
　　MsgBox myStr

End Sub

単純に0を付加したいのなら、&でくっつけるのが単純です。


▼takapi さん：
>こんにちわ
>以下のプロシジャーでintNoを"08"にしたいのですが"8"になってしまい困っております。
>"08"とする方法をアドバイスお願いします
>Sub test()
>　　Dim strNo As String
>　　
>　　strNo = "07"
>　　intNo = strNo + 1
>　　
>　　MsgBox intNo
>End Sub
【27087】Re:数字で０付加する方法について
回答  Jaka  - 05/7/28(木) 16:32 -
引用なし
パスワード
   こんにちは。

こんな感じです。
MsgBox Format(intNo, "00")
【27088】Re:数字で０付加する方法について
お礼  takapi E-MAIL  - 05/7/28(木) 16:47 -
引用なし
パスワード
   Jakaさん、ちくたくさん
早速のアドバイス、ありがとうございます
問題解決しました。助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9481 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free