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

名前

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

本文 >色々な、ＨＰに掲載してある >コードで作成したものです >キチッと理解しきれていません 『プログラム』という言葉を辞書で引くと『予定を立てる』 という意味があります。理解できないコードを貼り付けると いう行為は、その動きを全く予想できてないわけですから、 プログラミングとは言えないと思います。このようなことを 書く人がプログラマを目指すはずは無いですが、もしプログラマ やＳＥなどを目指しているなら、向いてません。やめた方が 賢明です。 もし目指してないとして、…プログラムを組む事自体向いて ません。予想もつかないコードを書き、予想もつかない影響を 与え、予想もつかない迷惑な存在となります。仕事上どうしても 請け負わないといけない場合もあるでしょう。でも自分で プログラムするのはやめましょう。お金を出してプログラマを 雇って下さい。貴方がプログラムするのは危険です。 …それに、何故コードと１：１対応の和訳をしたか？というと キチッと理解してもらう為だったんですが…あれで理解できない なら、やっぱり向いてません。説明のレベルはかなり初心者 向けに落としてありましたから。 また、 >あなたの説明は高度すぎて >わたしの頭では >無理なようです 自分のことは棚に上げて『自分は悪くない。説明する方が高度な 説明をするのが悪いのだ』と平気で書ける方のようです。 ボクの一番嫌いな、関わりたくないタイプですね。 早く縁を切りたいので動くソースコードあげます。 [Excel VBA] Private mTargetSheet As Excel.Worksheet Private Const mTargetSheetName As String = "仕訳帳" Private Sub CommandButton1_Click() Call Refresh_List End Sub Private Sub UserForm_Initialize() If Not SetTargetSheet Then Exit Sub End If Me.ListBox4.List = _ GetFormatObject(mTargetSheet.Range("$A$1").CurrentRegion.Value) End Sub Private Function SetTargetSheet() As Boolean On Error GoTo ErrorMsg Set mTargetSheet = Sheets(mTargetSheetName) SetTargetSheet = True Exit Function ErrorMsg: MsgBox mTargetSheetName & " シートが見つかりません。" _ & vbCrLf & "Sheet1 をセットします。", vbOKOnly, "対象シート設定" Set mTargetSheet = Sheets(1) SetTargetSheet = False End Function Private Sub Refresh_List() Dim r1 As Long, r2 As Long r1 = 2 With mTargetSheet r2 = .[$B$65536].End(xlUp).Row If r2 > 15 Then r1 = r2 - 14 Me.ListBox4.List = _ GetFormatObject(.Range(.Cells(r1, 1), .Cells(r2, 1)).Resize(, 15).Value) End With End Sub Private Function GetFormatObject(ByRef ObjectArray As Variant) As Variant For i = 1 To UBound(ObjectArray, 2) '（この部分は仮です） Select Case i Case 2, 4, 5 'B,E,D列 For j = 1 To UBound(ObjectArray, 1) ObjectArray(j, i) = Format(ObjectArray(j, i), "#,##0") Next End Select Next GetFormatObject = ObjectArray End Function