左から3文字だけ全角にし残りの6文字は半角のままにしたい。

質問

全部半角の"123456789"と言う文字列があります。
これを"１２３456789"にしたいのですがうまくいきません。

Sub 左から3文字目までを全角にする()
Dim 文字列 As String
文字列 = "123456789"
文字列 = StrConv(Left(文字列, 3), vbWide)
End Sub

これを実行すると
文字列は"１２３"になってしまいます。
"１２３456789"にするにはどうすればいいのでしょうか？
よろしくお願い致します。

回答No.2

merlionXX · ベストアンサー

> 文字列は"１２３"になってしまいます。

文字列 = StrConv(Left(文字列, 3), vbWide) としてるのだから当然です。

文字列 = StrConv(Left(文字列, 3), vbWide) & Mid(文字列, 4, Len(文字列) - 3)　です。

文字列 = StrConv(Left(文字列, 3), vbWide) & Mid(文字列, 4)　だけでも可。

お礼

確かにそうですね！試したらできあました。ありがとうございます。

回答No.1

n-jun

右から３文字抜いた文字列を連結させる。

Sub 左から3文字目までを全角にする()
Dim 文字列 As String
文字列 = "123456789"
文字列 = StrConv(Left(文字列, 3), vbWide) & Right(文字列, Len(文字列) - 3)
MsgBox 文字列
End Sub

とか？

お礼

できました！！！ご回答ありがとうございます。