|
よろしくお願いします。
下記のプログラムはデータを取得してListbox1に表示するものです。
PL = .Range("F10000").End(xlUp).Row
If PL = 100 Then Exit Sub
Set A = Range(Cells(101, 6), Cells(PL, 6)).SpecialCells(xlCellTypeVisible)
For Each area In A.Areas
For Each R In area
k = k + 1
ReDim Preserve Mat(1 To 4, 1 To k)
Mat(1, k) = .Cells(R.Row, 6).Value
Mat(2, k) = .Cells(R.Row, 7).Value
Mat(3, k) = .Cells(R.Row, 8).Value
Mat(4, k) = Format(Format(.Cells(R.Row, 9), "#,##0"), String(11, "@"))
Next
Next
With UserForm24.ListBox1
.ColumnCount = 4
.ColumnWidths = "130;70;190;75"
.Column = Mat
End With
質問はMat(4,K)の表示ですが、金額なので右揃えとしたいところですが、
上記のプログラムでやると、ちょっとずれてしまいます。
完全に右揃えとする方法を教えて頂きたいと思います。
|
|