Excel VBA質問箱 IV

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

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


10470 / 13644 ツリー ←次へ | 前へ→

【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

10470 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free