ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

[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

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¸Ì­±¤À±±¥ó
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

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

TOP

¥»©«³Ì«á¥Ñ e123chen ©ó 2011-4-11 09:43 ½s¿è

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

001.zip (645.63 KB)

TOP

¦^´_ 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
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¥»©«³Ì«á¥Ñ e123chen ©ó 2011-4-20 14:26 ½s¿è

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD