- 475 名前：デフォルトの名無しさん mailto:sage [2009/08/13(木) 23:58:36 ]
- ひんとやるわ
Sub test()
Dim lst As New Collection
lst.Add (InputBox("1:"))
lst.Add (InputBox("2:"))
lst.Add (InputBox("3:"))
lst.Add (InputBox("4:"))
lst.Add (InputBox("5:"))
For Each v In lst
'ここでソートしてね
Debug.Print v
Next
End Sub
