| |
▼Jaka さん：
>右詰、気持ちは解ります。
アリガトウございます。早速、下記のような記述で実行したところ
上手くいきました。ホント苦労していた部分なので助かりました。
Option Explicit
Private Const 固定文字数 As Integer = 16
Private Sub UserForm_Initialize()
Dim myRng As Range
Dim myList As Variant
Dim c As Variant, i As Integer
Dim ST1 '------問題のFORMAT後データです
☆ST1は変数の形としてはstringかと思いましたが、念のためバリアントに・・・
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
ST1 = Format(c.Offset(, 2).Value, "##,##0")
myList(i, 2) = Space(固定文字数 - Len(ST1)) & ST1
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
また、よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
