Excel VBA質問箱 IV

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

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


59764 / 76738 ←次へ | 前へ→

【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 質問
【21648】Re:構造体の名前を変数で ichinose 05/1/25(火) 18:16 発言
【21663】Re:構造体の名前を変数で きんぎょ 05/1/26(水) 9:31 お礼
【21665】Re:構造体の名前を変数で きんぎょ 05/1/26(水) 10:09 お礼

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