Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52865 / 76732

←次へ　｜　前へ→


	【28694】Re:数値を文字列に変えるには

ichinose - 05/9/13(火) 7:03 -


	引用なし

	パスワード

▼ななさん：
おはようございます。
本当は、もうちょっと簡単な方法もあるんですけどね、
ななさんの方法で可能にしてみましょう！！

> 1　　 01
> 2　　 02
> 3　　 03
>23　　 23
>45　　 45
>56　　 65
>
>こんな感じで、数字を、文字列にしたいのです。
>
>
>Sub 文字列変換()
>
Dim a as string
'配列にする必要はありません
dim b As String
Dim i As Integer
'mは要らないんです
'm = 1

For i = 1 To 6
　　a = Cells(i, 1).Value
　　With Cells(i, 3)
　　　.NumberFormatLocal = "@"
　　　　'書式を文字列に変更します
　　　.HorizontalAlignment = xlRight
　　　　'右寄せ設定
　　　b = "0" & CStr(a)
'　　　　　　　 Str関数は頭に空白が入るのでCstrに変更
　　　.Value = Right(b, 2)
　　　End With
　　Next
>End Sub
　
試してみて下さい。

0 hits

▼

【28693】数値を文字列に変えるには なな 05/9/13(火) 2:16