kimbal

Public Sub subShowUserForm(strFormName As String)
    Dim intNumOfForms As Integer
    Dim intNumOfFormsCounter As Integer
    intNumOfForms = UserForms.Count
    If UserForms.Count > 0 Then
        For intNumIfFormsCounter = 1 To intNumOfForms
            If UserForms(intNumIfFormsCounter - 1).Name = strFormName Then
                UserForms(intNumIfFormsCounter - 1).Show
                Exit Sub
            End If
        Next
    End If
End Sub

¥Îªk:
subShowUserForm([C1]&[C2])

¦ô­p¨C­ÓUSERFORMªº¤À§O,¦b©ó¥u¦³¤p³\LABEL?
¨ä¹ê§Ë³o»ò¦h­ÓUSERFORM, ¤£¦p§â©Ò¦³ªº²Î¤@,¦A¦bFORM¸Ì­±¤À±±¥ó