リストボックスの数値を桁表示 (ID:117979)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すいません 何とか作成したんですが 以下の２つのコードを組み合わせること、できますでしょうか Private Sub UserForm_Initialize() Dim myTmp As Variant Dim i As Long, j As Long myTmp = Sheets("仕訳帳").Range("a1"). _ CurrentRegion.Value For i = 6 To 11 For j = 1 To UBound(myTmp) myTmp(j, i) = Format(myTmp(j, i), "#,##0") Next Next Me.ListBox4.List = myTmp End Sub Private Sub Refresh_List() Dim r1 As Long Dim r2 As Long r1 = 2 With Sheets("仕訳帳") r2 = .[B65536].End(xlUp).Row If r2 > 15 Then r1 = r2 - 14 ListBox4.List = .Range( _ .Cells(r1, 1), .Cells(r2, 1)).Resize(, 15).Value End With End Sub