|
▼きんぎょ さん:
こんばんは。
>久しぶりに投稿します。
>よろしくお願いします。
>
>以下のような構造体を作っています。
>
>Private Type recName
> kigou1 as string
> kigou2 as string
> kigou3 as string
>End Type
>Dim Name() as recName
>
>
>kigouの後ろの数字はカウンタでアップさせて変数にして使いたいのですが
>うまくいかないんです。
>
>iCounter=iCounter+1
>strName="kigou" & iCounter
>
>With Name(iCounter)
> .strName="なまえ"
>End With
>
>こういう使い方は可能なんでしょうか?
>ご教授お願いいたします。
構造体(ユーザー定義型)の中のkigouも配列にしてしまったらどうですか?
Private Type recName
kigou(1 To 3) As String
End Type
Dim myName() As recName
'========================================
Sub test()
ReDim myName(1 To 3)
With myName(1)
For idx = 1 To 3
.kigou(idx) = idx
Next
End With
End Sub
こんな感じに・・・。
|
|