VBA コントロール名を変数に格納する

Question

#わからないこと
標準モジュールにてフォームに設置しているコントロールに対する処理を記述する場合、
コントロール名を変数に格納することは可能ですか？

Public Hc(8) As ComboBox
'フォーム名.コントロール名(コンボボックス)
Set Hc(1) = Holiday.Combo411
Set Hc(2) = Holiday.Combo412
Set Hc(3) = Holiday.Combo421
Set Hc(4) = Holiday.Combo422
Set Hc(5) = Holiday.Combo431
Set Hc(6) = Holiday.Combo432
Set Hc(7) = Holiday.Combo441
Set Hc(8) = Holiday.Combo442

Hc(1). AddItem "A"

という形で宣言したのですが、オブジェクト変数がありません。というエラーが出力されてしまいます。

Answer 1

指定している名前が間違っていなければ、変数に格納できます。

私の環境では、ユーザーフォームの名前を間違えていたときに

実行時エラー '424'
オブジェクトが必要です。

のエラーが発生しました。

余談

入力補完（Ctrl + Space）を使っていれば、ユーザーフォームなどの名前を間違える可能性は低くなりますし、間違えても気付きやすくなります。

また、各モジュールにOption Explicitが記述されていれば、プロジェクトをコンパイルしたときに存在しない名前（≒スペルミスをした名前）を指摘してくれます。

ツール > オプション > 編集タブ > コードの設定 > 変数の宣言を強制するにチェックが入っていれば、モジュール追加時に自動でOption Explicitを挿入してくれます。

ちなみに、デフォルトの設定ではPublic Hc(8) As ComboBoxと宣言すると、Hcは 0 から8までの添え字を持つ配列になります。

Answer 2

殊更、配列に入れ替えなくても、Controlsオブジェクトがあるので、そちらを利用したほうが良いんじゃないでしょうか。

Holiday.Controls("Combo411")のように名前でアクセスできますので。

ExcelVBAでコントロールオブジェクト（TextBoxとか）を変数制御する

Answer 3

該当のコンボボックスがあるかどうかは、
デバッグ → VBAProjectのコンパイル
を実行すると分かると思います。

また、ご存じとは思いますが、
オブジェクトの有無は Is Nothing で判定できます。
例：無い場合：If Hc(1) Is Nothing Then
例：有る場合：If Hc(1) is Nothing = False Then

余談ながら、変数の宣言を下記の様にして、
コンボボックスの番号と添字を合わせると
コードを書きやすいかもですね。

Public Hc(1 to 4, 1 to 2) As ComboBox
Set Hc(1,1) = Holiday.Combo411
Set Hc(1,2) = Holiday.Combo412
Set Hc(2,1) = Holiday.Combo421
Set Hc(2,2) = Holiday.Combo422
Set Hc(3,1) = Holiday.Combo431
Set Hc(3,2) = Holiday.Combo432
Set Hc(4,1) = Holiday.Combo441
Set Hc(4,2) = Holiday.Combo442