エクセル フォーム上の全てのコントロールを取得した

質問

エクセル　フォーム上の全てのコントロールを取得したい

http://okwave.jp/qa/q4879853.html
のNo.１さんの回答を参考に、
Sub try()
Dim i As Integer
Dim StrFormName As String

StrFormName = "フォーム１"

For i = 0 To Forms(StrFormName).Controls.Count - 1
Debug.Print Forms(StrFormName).Controls.Item(i).Name
Next

End Sub

を作ったのですが、
「Forms」の部分が、
「Sub、Function、または Property が定義されていません。(Error 35)」
というコンパイルエラーになってしまいます。

上記のコードをアクセスＶＢＡにつけると、全てのコントロール名が取得できます。

同じようにエクセルで使うにはどこを修正すればいいでしょうか？
フォーム名は、変数に入れて使いたいです。

回答No.1

cj_mover · ベストアンサー

こんにちは

直接オブジェクトを指定できるなら

Sub try_c()
　　Dim i As Integer

　　With UserForm1.Controls
　　　　For i = 0 To .Count - 1
　　　　　　Debug.Print .Item(i).Name
　　　　Next
　　End With
End Sub

文字列のオブジェクト名で参照するなら

Sub try_j()
Dim i As Integer
Dim StrFormName As String

　　StrFormName = "UserForm1"
　　With UserForms.Add(StrFormName).Controls
　　　　For i = 0 To .Count - 1
　　　　　　Debug.Print .Item(i).Name
　　　　Next
　　End With
End Sub

こんな感じでどうでしょう。
　UserForm1
　"UserForm1"
どちらもオブジェクト名です。
キャプションとは違いますから、お間違いなきよう。

お礼

お返事遅くなってすいません。
どちらの方法も試してみて、うまく行きました！

アクセスとではやり方が違うのですね。ありがとうございました。