Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10483 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21645】構造体の名前を変数で きんぎょ 05/1/25(火) 18:01 質問[未読]
【21648】Re:構造体の名前を変数で ichinose 05/1/25(火) 18:16 発言[未読]
【21663】Re:構造体の名前を変数で きんぎょ 05/1/26(水) 9:31 お礼[未読]
【21665】Re:構造体の名前を変数で きんぎょ 05/1/26(水) 10:09 お礼[未読]
【21645】構造体の名前を変数で
質問  きんぎょ  - 05/1/25(火) 18:01 -
引用なし
パスワード
   久しぶりに投稿します。
よろしくお願いします。

以下のような構造体を作っています。

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

こういう使い方は可能なんでしょうか？
ご教授お願いいたします。
【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

こんな感じに・・・。
【21663】Re:構造体の名前を変数で
お礼  きんぎょ  - 05/1/26(水) 9:31 -
引用なし
パスワード
   ichinose さん、おはようございます。

>
>構造体（ユーザー定義型）の中の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
>
>こんな感じに・・・。

おお！なるほど！
これから試してみます。
ありがとうございます！

きんぎょ
【21665】Re:構造体の名前を変数で
お礼  きんぎょ  - 05/1/26(水) 10:09 -
引用なし
パスワード
   ichinoseさん、できました〜！
ありがとうございました。助かりました。
今後ともよろしくお願いしますm(_ _)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10483 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free