|
お世話になっております
ListBoxやComboBoxで複数カラム指定をして表示する場合に
それぞれのColumnごとに文字ぞろえを指定する方法はありませんでしょうか?
下に現状のコードを提示しますが
現状、リストボックスのデータの指定はListBox.Listでおこなっています。
表示は5列構成で、1,2列目が文字列(左揃え)、3列目が金額(カンマつき右揃え)4列目、5列目が日付(右揃え)を指定しようとして、Formatの指定はできているようなのですが、TextAlign指定が上手くいきません。
Private Sub UserForm_Initialize()
Dim myRng As Range
Dim myList As Variant
Dim c As Variant
Dim i As Integer
Set myRng = Range("A2", Range("A65536").End(xlUp))
'配列の再定義
ReDim myList(myRng.Rows.Count - 1, 5)
For Each c In myRng
myList(i, 0) = c.Offset(, 0).Value
myList(i, 1) = c.Offset(, 1).Value
myList(i, 2) = Format(c.Offset(, 2).Value, "##,##0")
myList(i, 3) = c.Offset(, 3).Value
myList(i, 4) = Format(c.Offset(, 4).Value, "yyyy/mm/dd")
i = i + 1
Next c
ListBox1.List() = myList
Set myRng = Nothing
End Sub
プロパティー側のRowsorceは空白、TextAlignは左詰(1-TextAlign_Left)です
ご教授、ご指導をお願いします。
|
|