書式設定に全角スペースを入れてみると…

どーでもいい知識

セルの書式設定のユーザー定義で全角のスペースをVBAで入れてみます。

Sub Macro1()
　　Dim S As String

　　Range("A1").Value = 99
　　S = "0　0"
　　Range("A1").NumberFormatLocal = S
End Sub

なんだか変です。
半角分しか空いていないように見えます。
　
気を取り直して、もう一度・・・

Sub Macro2()
　　Dim S As String
　　Dim D As String

　　Range("A1").Value = 99
　　S = "0　0"
　　Range("A1").NumberFormatLocal = S
　　D = Range("A1").NumberFormatLocal
　　MsgBox (S = D) & vbCrLf _
　　　　 & LenB(StrConv(S, vbFromUnicode)) & vbCrLf _
　　　　 & LenB(StrConv(D, vbFromUnicode))
End Sub

って、本当に勝手に半角になってしまうようです。
（Excel97〜2007共通）
　
一般操作では、0　0 という書式設定は可能ですが、VBAからはできないみたいです。
　
　
どうしてもやりたいって場合は、ダブルクォーテーションでくくるんでしょうね。
　　S = "0""　""0"
って、具合に。
　
※.Excel World の 2007年8月3日 02:14 の日記をコピーしています。
http://excel.sns.fc2.com/excel/