Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59758 / 76732

←次へ　｜　前へ→


	【21648】Re:構造体の名前を変数で

ichinose - 05/1/25(火) 18:16 -


	引用なし

	パスワード

▼きんぎょさん：
こんばんは。

>久しぶりに投稿します。
>よろしくお願いします。
>
>以下のような構造体を作っています。
>
>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

こんな感じに・・・。

0 hits

▼

【21645】構造体の名前を変数で きんぎょ 05/1/25(火) 18:01