VBA リストボックス フォーマット

質問

現在下記のコードでリストボックスに表示をしていますが
フォーマットを決めたい場合どのようにすればよいでしょうか？

Private Sub UserForm_Initialize()

With ThisWorkbook.Sheets("作業一覧参照")
ListBox1.List = Range(.Range("L5"), .Cells(Rows.Count, 14).End(xlUp)).Value
End With
End Sub

現在はの表示のされかたは
yyyy/m/d h:mm:ss
です。

使用したいフォーマットは
yyyy/m/d h:mm
です。

回答No.2

watabe007 · ベストアンサー

>要望のフォーマットにしたのは2、3列目（M列N列です）
はい、どうぞ~
Private Sub UserForm_Initialize()
　　Dim LR As Long, i As Long, j As Long
　　With ThisWorkbook.Sheets("作業一覧参照")
　　　　LR = .Cells(Rows.Count, 14).End(xlUp).Row
　　　　For i = 5 To LR
　　　　　　ListBox1.AddItem i - 5
　　　　　　ListBox1.List(i - 5, 0) = .Cells(i, "L").Value
　　　　　　ListBox1.List(i - 5, 1) = Format(.Cells(i, "M"), "yyyy/m/d h:mm")
　　　　　　ListBox1.List(i - 5, 2) = Format(.Cells(i, "N"), "yyyy/m/d h:mm")
　　　　Next
　　End With
End Sub

お礼

完璧でした。とても助かりました。
ありがとうございました。

回答No.1

watabe007

三列とも yyyy/m/d h:mm:ss ⇒ yyyy/m/d h:mm
にしましたが
Private Sub UserForm_Initialize()
　　Dim LR As Long, i As Long, j As Long
　　With ThisWorkbook.Sheets("作業一覧参照")
　　　　LR = .Cells(Rows.Count, 14).End(xlUp).Row
　　　　For i = 5 To LR
　　　　　　ListBox1.AddItem i - 5
　　　　　　For j = 1 To 3
　　　　　　　　ListBox1.List(i - 5, j - 1) = Format(.Cells(i, j + 11), "yyyy/m/d h:mm")
　　　　　　Next
　　　　Next
　　End With
End Sub

補足

大変申し訳ございません。
質問の仕方が不十分でした。
要望のフォーマットにしたのは2、3列目（M列N列です）
頂いたコードをどのようにすればよいでしょうか？