VBAのリストボックス内で複数行のうちの一つだけを左寄せ(右寄せ)にする

Question

実現したいこと

Excel VBAにて、複数行のリストボックスを作成しています。
まず、以下のような関数を作成し、fmTextAlignLeftとfmTextAlignRightそれぞれの設定におけるリストボックスで、特定の行のみを逆向きの文字寄せにできることを目指しました。
Space(n)で空白を追加することで、文字寄せできるという仕組みです。

Public Function FormatAddSpace(ByVal strName As String, _
ByVal intMojiCount As Integer, _
Optional ByVal isTop As Boolean = True) As String
'行頭もしくは末尾にスペースを挿入する関数
'引数strName：対象となる文字列
'引数intMojiCount：スペース挿入後の全体の文字数
'引数isTop：先頭から処理する（True）か、末尾から（False）か（省略したら、先頭から）
Dim n As Integer
n = intMojiCount - Len(strName) 'スペースの挿入数
If isTop = True Then '省略しているので先頭から(True)
strName = Space(n) & strName
Else
strName = strName & Space(n) & "|"
End If
FormatAddSpace = strName
End Function

関数はたとえば以下の4行目のように呼び出します。
〇〇.Textは当然ですが文字列です。

With LstBox1
    .AddItem 0
    .List(.ListCount - 1, 1) = cboGoodsID.Text  
    .List(.ListCount - 1, 2) = FormatAddSpace(txtGoodsName.Text, 30, False)   
    .List(.ListCount - 1, 3) = Format(txtGoodsPrice.Text, "#,##0")
    .List(.ListCount - 1, 4) = Format(txtQuantity.Text, "#,##0")
    .List(.ListCount - 1, 5) = txtGoodsUnit.Text
    .List(.ListCount - 1, 6) = txtAmount.Text
    .List(.ListCount - 1, 7) = txtTax.Text
    .List(.ListCount - 1, 8) = txtSumWithTax.Text
End With

しかしどうにも右寄せ、左寄せがリストボックスに反映されません。
ローカルウィンドウで値を確認してみても、思いどおりの値にはなっています。
なぜか、リストボックス上でのみ、空白がなくなってしまうようです。
エラーは発生しておりません。

原因、対処法等あれば教えていただきたいです。

Comments

[imihito]

「複数行のうちの一つ」とタイトルに記載されていますが、処理を見る限り「複数列のうちの一つ」のようです。どちらが正しいのでしょうか？（私の手元では複数列のうちの一つに対して右寄せできています）

[kolobokkule]

申し訳ありません。複数列の間違いでした。
なるほど、できていますか…

Answer 1

数字だと次の様なやり方で解決できるそうです。

Format([数値フィールド], "@@@@@@@")
@は必要な文字数入れてもらえればOKです。

参考：http://www.ruriplus.com/msaccess/faq/faq_028.html

Comments

[kolobokkule]

回答ありがとうございます。
この場合ですと、＠の数を対応する列それぞれについて一つ一つ設定するしかないでしょうか？

[Tarokun]

おっしゃる通りです。
.List(.ListCount - 1, 6) = Format(txtAmount.Text,"@@@@@@@@")'8桁
.List(.ListCount - 1, 7) = Format(txtTax.Text,"@@@@@@") ' 6桁
.List(.ListCount - 1, 8) = Format(txtSumWithTax.Text,"@@@@@@@@")'8桁

こんなイメージですかね

[kolobokkule]

例まで示していただきありがとうございます。

.List(.ListCount - 1, 4) = FormatAddSpace(Format(Cells(i, 5).Value, "#,##0"), 10)
実はこういった処理をしようとしていた場所もあり、FormatAddSpace関数(質問内容にある自作関数)を作成していたのですが、Cellの値によって空白の数を変更する必要があります。今回教えていただいたものを、空白の数を柔軟に変化させる繰り返し処理にすることはできるでしょうか。

[Tarokun]

自分が提示した方法ですと、桁数が文字数より上回れば文字数によって空白を追加する必要は無いはずですがListboxは左寄せになっている必要があります。
＠の個数が桁数になるので、たとえば　
＠＠＠＠＠　だとすると
　　りんご
　　　なし
　えだまめ
ぱいなっぷる

といった風に、文字が足りない部分が空白になります。
ぱいなっぷるは文字数がオーバーするため、ずれが生じます。
また、フォントがMS PゴシックやMS UI GOTHICといったプロポーショナルフォントだと巾が文字によって変わるのでずれが生じます。
MS ゴシックやMS 明朝など、幅が固定のものを使いましょう。

提示された目標を実現するためには下記の様になります。
.List(.ListCount - 1, 4) = Format(Format(cells(i,5).value, "#,##0"), "@@@@@@@@@@") '右寄せ10桁

追伸
やろうとしていたスペースを追加する方法はやり方として間違っていないと思います。
Space（ｎ）の中身がわからないので、なぜスペースが表示されなかったのかはちょっとわからないですね・・・

[imihito]

`Space()`はVBA標準関数ですね
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/space-function

[kolobokkule]

回答ありがとうございます。
このやり方でやっていこうと思います。
Space(n)ですが、デバッグで空白を入れた変数の中身を確認すると、ちゃんと空白は入っています。（"りんご　　　　　　　　　"のような形で）
なぜかリストボックスにだけ反映されないのです・・・もうしばらく考えてみようと思います。