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

[µo°Ý] ·í«ö¤U«ö¶s°õ¦æµL»~¡A¦ý¬O³z¹LÂà´«¡A«o¥X²{¤£¦Pªºµ²ªG¡C

UserFrom1¤º¨Ï¥ÎFor°j°é

¥»©«³Ì«á¥Ñ av8d ©ó 2013-3-19 14:38 ½s¿è

¥H¤U¼g¦bUserFrom1¤ºªº
  1. Private Sub CommandButton1_Click()
  2.     For i = 2 to 4
  3.     If ComboBox1 = N & i Then
  4.         If TextBox1 = O & i Then
  5.         Username = ComboBox1
  6.         Unload Me
  7.         Else
  8.         MsgBox ("±K½X¿ù»~¡I")
  9.         End If
  10.     End If
  11.     Next i
  12.    
  13. End Sub
½Æ»s¥N½X
N¬O¤u§@ªí("A")ªºN¥i¬O·|¥X¿ù~³o°ÝÃD­«½Æ¤F@

TOP

¥H¤U¼g¦bUserFrom1¤ºªºN¬O¤u§@ªí("A")ªºN¥i¬O·|¥X¿ù~³o°ÝÃD­«½Æ¤F@
av8d µoªí©ó 2013-3-19 14:32



    °ÝÃD­«½Æ? ¬O«ü¥H«e¦³¬Û¦P©«? ¦pªG¦³ ¥i¥H¥h§ä¤å..
¬õ¦â³¡¤À¥Nªí¬Æ»ò?? ¨S¦³¥ô¦ó«ü¦V ·íµM¿ù»~
Á`¤£¥i¯à ¥ô¤@²Å¸¹  ´N­n³sµ²§a...
­nªº¥\¯à¬O¬Æ»ò?
³æ°j°é Âù­«°j°é?


Private Sub CommandButton1_Click()
    For i = 2 to 4
    If ComboBox1 = N & i Then
        If TextBox1 = O & i Then
        Username = ComboBox1
        Unload Me
        Else
        MsgBox ("±K½X¿ù»~¡I")
        End If
    End If
    Next i
   
End Sub

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP


  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 3# mark15jill
  1. Private Sub CommandButton1_Click()

  2.     Dim CB, TB As String
  3.     CB = ComboBox1.Value
  4.     TB = TextBox1.Value
  5.    
  6.     Dim i As Integer
  7.     For i = 2 To 4
  8.    
  9.         If CB = "N" & i And TB = "O" & i Then
  10.             Username = ComboBox1
  11.             'Ãö³¬µøµ¡
  12.             Unload Me
  13.         Else
  14.             MsgBox ("±K½X¿ù»~¡I")
  15.         End If
  16.     Next
  17.    
  18. End Sub
½Æ»s¥N½X
¥L·|¥X²{3¦¸±K½X¿ù»~¡A
¤u§@ªí¤ºªºN2©MO2¨ÃµL¿ù»~~
¿é¤J¤]µL»~~¤£ª¾¹D¬°¤°»ò?

TOP

¦^´_ 4# av8d
¤u§@ªí¤ºªºN2©MO2¨ÃµL¿ù»~~
If CB = Range("N" & i) And TB = Range("O" & i) Then
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE


    Test2.rar (24.67 KB)

¤u§@ªíN2©MO2¡A¿é¤J¥¿½T¡A¦ý¬O·|Åã¬O±K½X¿ù»~3¦¸¡C

TOP

¦^´_ 6# av8d
¸Õ¸Õ¬Ý
  1. Private Sub CommandButton1_Click()
  2.     Dim CB, TB As String, M As String
  3.     CB = ComboBox1.Value
  4.     TB = TextBox1.Value
  5.     Dim i As Integer
  6.     With Sheets("±K½X¤u§@ªí")
  7.         For i = 2 To 4
  8.             If CB = .Range("N" & i) And TB = .Range("O" & i) Then
  9.                 UserName = ComboBox1
  10.                 M = ""
  11.                 'Ãö³¬µøµ¡
  12.                 Unload Me
  13.             Else
  14.                 M = "±K½X¿ù»~¡I"
  15.             End If
  16.         Next
  17.     End With
  18.     If M = "±K½X¿ù»~¡I" Then MsgBox M
  19. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE


    ±K½X¿é¤J¥¿½T~¨ÌµMÅã¥Ü¿ù»~~§V¤O§ä´M¿ù»~¤¤~«D±`·PÁÂ!

TOP

¦^´_ 8# av8d
    6#ªºªþÀɵLªk¶}±Ò ½Ð´ú¸Õ¤@¤U¬O§_¥¿±`©Î­«·s¤W¶Ç
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE


    Test3.rar (26.04 KB)

¦A¦¸·PÁÂ!

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD