[µo°Ý] ¦p¦ó¤Þ¥ÎÀx¦s®æ¤º®e(=ªí³æ¦WºÙ)Åã¥Üªí³æ?

e123chen

[C1]=¥x«n¥«
[C2]=¤¤¦è°Ï

¬O§_¯àª½±µ¤Þ¥ÎC1,C2 ¥s¥X userform¥x«n¥«¤¤¦è°Ï?
¨Ò¦p :
Sub Åã¥Ü¸ôµó«Ñ()
"userform"&[C1]&[C2].show
End Sub

µL¶·¦p¥Ø«e³v¤@¦CÁ|¡C

¤U¸ü (93.46 KB)

2011-4-10 17:30

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¸Ì­±¤À±±¥ó

e123chen

·PÁª©¤j«ü¾É¡A³o´N¸Õ¸Õ¡C

e123chen

·Ó¿ì¤F¡A¨S¤ÏÀ³¡C
¯à§_³Ò·Ðª©¤jÀ°¦£¬Ý¤@¤U? ÁÂÁÂ!

¤U¸ü (42.94 KB)

2011-4-11 09:43

001.zip (645.63 KB)

¤U¸ü¦¸¼Æ: 7

2011-4-10 23:01

hugh0620

¦^´_ 4# e123chen

     ¼Ó¥D ¤U­z¬°¨Ì±z­nªºµ²ªG³]­p~   ¶È¨Ñ°Ñ¦Ò~
     ³o¤£¬O¤@­Ó¦nªº¤è¦¡(°w¹ï¥«»P°Ïµ²¦X¦hªº®É­Ô®É,·|¼g«Ü±`)
     ½Ð±Nµ{¦¡½X¶K¨ì§A»Ý­nªºsheet¤¤~
     select ªº case ¨Ì±z»Ý­nªºÖѾã~

Private Sub Worksheet_Change(ByVal ÅÜ¼Æ As Range)
If ÅܼÆ.Row = 1 And ÅܼÆ.Column = 3 And ÅÜ¼Æ <> "" And ÅܼÆ.Offset(1, 0) <> "" Then
   A = ÅÜ¼Æ & ÅܼÆ.Offset(1, 0)
ElseIf ÅܼÆ.Row = 2 And ÅܼÆ.Column = 3 And ÅÜ¼Æ <> "" And ÅܼÆ.Offset(-1, 0) <> "" Then
   A = ÅܼÆ.Offset(-1, 0) & ÅܼÆ
Else
   Exit Sub
End If
    Select Case A   
    Case "¥x«n¥«¤¤¦è°Ï"
         UserForm1.Show
    Case "¥x«n¥«ªF°Ï"
         UserForm2.Show
    Case "¥x«n¥««n°Ï"
         UserForm3.Show
    End Select
End Sub

e123chen

¦^´_ 5# hugh0620
·PÁ¤j¤j«ü¾É¡C

§Ú§Æ±æ C1¿é¤J"¥x¥_¥«"¡AC2¿é¤J"¤j¦w°Ï"¡A´N¯àÅã¥Ü "userform¥x¥_¥«¤j¦w°Ï" ªí³æ¡C
¥Ø«e¬O¥Î Select Case¡A¥xÆW¦³368­Ó¶l»¼°Ï¸¹¡A±o¼g368­ÓCase¡C

¯à¤£¯à¥u¼g¤@¦æ¡A¨Ò¦p "userform" & [C1] & [C2].show¡A¦Û°Ê¨Ì¾ÚC1,C2¤º®eÅã¥Ü¹ïÀ³ªí³æ¡C