【Excel VBA】Type のプロパティ名を変数で指定できますか？

Question

nannde

39

39もっと見る

80pt

コンピュータ

【Excel VBA】Type のプロパティ名を変数で指定できますか？

Public Type x
member As String
End Type

Sub test()
Dim x As x
Dim s As String
s = "member"
x.s = "変数$sで指定したい" ' NG!
MsgBox x.member
End Sub

回答の条件

1人2回まで

登録：2009/12/05 19:03:47
終了：2009/12/05 23:07:35

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.1

kn196729153012009/12/05 19:17:17

10pt

x(s) = "変数$sで指定したい"

こういうこと？

コンパイルエラー

配列がありません

でした。

わかりづらくてすみません。

タイプのエレメント名を直書きする

x.member = 値

のではなく、

変数で指定したい

Dim elem_string As String

x.elem_string = 値 ' これはエラー

ということなのです。

2009/12/05 21:25:46

No.2

mystashes32112009/12/05 19:19:33

35pt

Sub test()
Dim x As x
Dim s As String
s = "member" '<-ここはタイプのエレメント名とは関係なく任意の文字列。
x.member = s '<-もちろんここで x.member="hoge"等直接代入も可
MsgBox x.member
End Sub

でいけると思います。

わかりづらくてすみません。

タイプのエレメント名を変数で指定したい

ということなのです。タイプの値ではなく。

2009/12/05 21:33:07

mystashes 2009/12/05 22:04:13

「エレメント名を変数で指定したい」という要望への直接の解決策はありません。
連想配列チックな利用方法をお考えでしょうか？
最終的に実現したい挙動を教えて頂ければ、何か代替策があるかもしれません。
nannde 2009/12/05 23:03:45

ありがとうございます！

まさに、連想配列チックな利用方法を考えてました。

> 最終的に実現したい挙動を教えて頂ければ、
そのように質問すればよかったのですね。
皆さんにお時間を取らせてしまい大変すみませんでしたm(_ _)m

> 「エレメント名を変数で指定したい」という要望への直接の解決策はありません。
非常に役立つお答えです。

ありがとうございました。
Mook 2009/12/06 09:14:39

直接的ではありませんが、インタフェース関数を持つことで代用できませんか？

Function SetX( ByRef vx As x , memberName As String, val )
　　Select Case memberName
　　　　Case "member1"
　　　　vx.member1 = val
　　　　Case "member2"
　　　　vx.member2 = val
　　　　Case "member3"
　　　　vx.member3 = val
　　End Select
End Function
のように。

クラスを使うともう少しスマートにできそうな気がしますが。
nannde 2009/12/07 15:13:32

Mookさま
ありがとうございます。
なるほど！
と思いましたが、結構たいへんそうですね...(^^;

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

Mook · Accepted Answer · 2009-12-05T21:49:43+09:00

何でそのようなことがしたいか、目的を書かれれば代案も提示できるかと思いますが、

VBA で変数（メンバ変数を含めて）を変数で指定することは単純にはできないと思います。

他の言語であれば連想配列が比較的目的に近いように思いますが、残念ながら VBA に

この機能はありません。VBA で類似の方法としては Dictionary の使用が思い浮かびますが、

それではダメでしょうか。

Sub test()
    Dim x As Object
    Dim s As String
    
    Set x = CreateObject("Scripting.Dictionary")
    s = "member"
    x.Add s, "変数$sで指定したい"

    MsgBox x.Item(s)
End Sub

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_dictionary.ht...

Mook · Accepted Answer · 2009-12-05T21:49:43+09:00

何でそのようなことがしたいか、目的を書かれれば代案も提示できるかと思いますが、

VBA で変数（メンバ変数を含めて）を変数で指定することは単純にはできないと思います。

他の言語であれば連想配列が比較的目的に近いように思いますが、残念ながら VBA に

この機能はありません。VBA で類似の方法としては Dictionary の使用が思い浮かびますが、

それではダメでしょうか。

Sub test()
    Dim x As Object
    Dim s As String
    
    Set x = CreateObject("Scripting.Dictionary")
    s = "member"
    x.Add s, "変数$sで指定したい"

    MsgBox x.Item(s)
End Sub

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_dictionary.ht...

【Excel VBA】Type のプロパティ名を変数で指定できますか？

ベストアンサー

Mook13143932009/12/05 21:49:43

その他の回答（2件）

kn196729153012009/12/05 19:17:17

mystashes32112009/12/05 19:19:33

Mook13143932009/12/05 21:49:43ここでベストアンサー

コメント（4件)

この質問への反応（ブックマークコメント）