タイトル : Re^5: New Collectionについて 投稿日 : 2008/03/04(Tue) 07:36 投稿者 : 花ちゃん
勘違いしないように、下記も試して見て下さい。 Private Sub Command1_Click() Dim col As New Collection col.Add "a" col.Add Text1 col.Add "c" col.Item(2) = "X" Debug.Print col.Item(1), col.Item(2), col.Item(3) col.Item(2) = Text2 Debug.Print col.Item(1), col.Item(2), col.Item(3) col.Item(2).Text = "1234" Debug.Print col.Item(2), Text1.Text, Text2.Text End Sub |