Excel VBA質問スレ Part9

Excel VBA質問スレ Part9 at TECH

822:デフォルトの名無しさん
09/02/08 15:42:15
>>821
Collectionでやりたいなら

' Module1
Dim col As New Collection
Dim itm As Class1

Set itm = New Class1: itm.Key = "A": itm.Text = "123": col.Add itm, itm.Key
Set itm = New Class1: itm.Key = "B": itm.Text = "456": col.Add itm, itm.Key
Set itm = New Class1: itm.Key = "C": itm.Text = "789": col.Add itm, itm.Key

For Each itm In col
　　If itm.Key = "B" Then
　　　　MsgBox itm.Text
　　End If
Next itm
' EOF

' Class1
Public Text As String
Public Key As String
' EOF

次ページ

続きを表示

1を表示