VBA - Excelで文字列をコマンドとして実行

Question

最後の30分でVBAで文字列をコマンドとして実行しようとしています。コマンドは、このようなもので、それは大丈夫実行します：だけでなく、「chb_g_ba2」、「chb_g_ba3」などがあるので

activesheet.chb_g_ba1.visible = true 

私は何をしようとしていますが、変数として「chb_g_ba1」を設定することです。

私がこれまで試してみました何 - のようなもの：

dim l_counter as long: l_counter = 1 
Evaluate (CStr("me.chb_g_ba" & l_counter & ".visible = true")) 

あるいは評価

Eval (CStr("me.chb_g_ba" & l_counter & ".visible = true")) 

評価は、MS AccessのVBAでの関数であるが、明らかにそれは、Excelに存在しません。かなり私の質問は、この1つに非常に似ています：VBA how to run a string as a line of codeが、それはExcel用であり、Access用ではありません。

だから、どんなアイデアも歓迎されます！ :)

Answer 1

クレジットピアソンへのソフトウェアのコンサルティング

それを行う方法があるが、我々が完成しつつ、必要なコードで動的に新しいモジュールを追加し、削除する必要があります。

参考：Microsoft Visual Basicのアプリケーション拡張のための5.3

Sub test() 
    Set VBComp = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule) 
    VBComp.Name = "NewModule" 
    Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("NewModule").CodeModule 
    Dim l_counter As Long 
    l_counter = 1 
    With VBCodeMod 
     LineNum = .CountOfLines + 1 
     .InsertLines LineNum, _ 
     "Sub MyNewProcedure()" & Chr(13) & "UserForm1.chb_g_ba" & l_counter & ".Visible = True" & Chr(13) & "End Sub" 
    End With 
    'run the new module 
    Application.Run "MyNewProcedure" 
    UserForm1.Show 
    'Delete the created module 
    ThisWorkbook.VBProject.VBComponents.Remove VBComp 
End Sub