ノーマルマクロでユーザーフォームの値を使用

Question

私はユーザーフォーム 'CemeaFinallist'にチェックボックスとボタンがあります。私は変数としてチェックボックス名の値を使用したい= CNN 'Normal.newmacros.minipro'

に続いては、ユーザーフォームのボタンのスクリプト

Private Sub Shift_Click() 

CemeaFinallist.Hide 
Dim ctl As Control 
Dim j As Long 
For Each ctl In Me.Controls 
If TypeOf ctl Is MSForms.CheckBox Then 
    If Me.Controls(ctl.Name).Value = True Then 

If ctl.Caption = "Select All" Then 
Else 

Application.Run MacroName:="Normal.NewMacros.minipro" 

End If 
End If 
End If 

Next 
Application.ScreenUpdating = True 
End Sub 

以下であるマクロNormal.NewMacrosある

Sub MiniPRO() 
Application.ScreenUpdating = False 
Dim path As String 
Dim CNN As String 
Dim ex As String 
Dim News As String 
Dim SD As String 


path = "C:\Documents and Settings\Administrator\Desktop\EMEA CEEMEA\EMEA FOR DAILY USE\" 
CNN = ctl.Name 'at this stage Run Time Error '424' Object required' 
ex = ".DOCX" 

Documents.Open FileName:=path & CNN & ex 

Answer 1

ユーザーフォームでは、次のように入力します。

Application.Run MacroName:="NewMacros.MiniPRO", varg1:=ctl.Name 

012あなたは既にコントロールへの参照を持っているので If ctl.value = True Then：あなたはまた、より単純でテスト If Me.Controls(ctl.Name).Value = True Thenを置き換えることができます

Function MiniPRO(ByVal CtlName as String) 
    Application.ScreenUpdating = False 
    Dim path As String 
    Dim CNN As String 
    Dim ex As String 
    Dim News As String 
    Dim SD As String 


    path = "C:\Documents and Settings\Administrator\Desktop\EMEA CEEMEA\EMEA FOR DAILY USE\" 
    CNN = CtlName 
    ex = ".DOCX" 

    Documents.Open FileName:=path & CNN & ex 
    '... 
End Function 

---

：Normal.NewMacrosモジュール、使用の際に

。