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

名前

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

本文 ユ−ザーフォームのテキストボックスからシート１に以下のように表示します （月 日 借方科目 借方金額 貸方科目 貸方金額 摘要） Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ 1 12 １ 当座預金 1,111 現金 1,111 預入 2 12 ２ 給料手当 654 現金 654 支払 3 12 ３ 雑費 1,543 現金 1,543 交通費 4 12 ４ 租税公課 123 現金 123 印紙代 5 12 ５ 普通預金 1,756 当座預金 1,765 預入 上記５行目を記入すると、以下のようにリストボックスに表示されます 2 12 ２ 給料手当 654 現金 654 支払 3 12 ３ 雑費 1,543 現金 1,543 交通費 4 12 ４ 租税公課 123 現金 123 印紙代 5 12 ５ 普通預金 1,756 当座預金 1,765 預入 つまり、一行づつスライドしてリストボックスに表示するように設定したのが 下記のコードです。 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 この表示では、リストボックスに桁表示されません。 これで悩んでいます。 桁表示するコードは、以下のとおりです 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 このコードでは、どっちつかずになり、上記２つのコードが うまくかみあいません。 そのため合体することはできないかと、 なやんでいるわけです。 この説明でわかりますでしょうか。