| |
お世話になっております
ListBoxやComboBoxで複数カラム指定をして表示する場合に
それぞれのColumnごとに文字ぞろえを指定する方法はありませんでしょうか？
下に現状のコードを提示しますが
現状、リストボックスのデータの指定はListBox.Listでおこなっています。
表示は５列構成で、１，２列目が文字列（左揃え）、３列目が金額（カンマつき右揃え）４列目、５列目が日付（右揃え)を指定しようとして、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）です
ご教授、ご指導をお願いします。
|
|
ハナ
- 07/11/20(火) 10:55 -
