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

Hsieh

¦^´_ 10# av8d

¸ê®Æ«¬ºA°ÝÃD
            If CB = CStr(.Range("N" & i)) And TB = CStr(.Range("O" & i)) Then

av8d

¦^´_ 11# Hsieh


    ¨Ï¥Î¤F¤j¤jµ¹ªº~¥i¥H¤F~¥i¯à¿é¤J¿ù»~µLªkÅý¥LÅã¥Ü¤F!

av8d

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then CommandButton1_Click
End Sub

¥H¤W¬O·í¦bTextBox1«ö¤UEnterÁä«á¡A°õ¦æCommandButton1

Private Sub CommandButton1_Click()
                With TextBox1
                    .SetFocus
                    .SelStart = 0
                    .SelLength = Len(.Text)
                End With
End Sub

§Ú­Ì¤@¯ë«ö¤U«ö¶sCommandButton1¡ATextBox1¤ºªº¦r·|³Q¥þ¿ï¡C
¦ý¬O·í¦bTextBox1«ö¤UEnterÁä«á¡A°õ¦æCommandButton1¡ATextBox1¤ºªº¦r«o¤£·|³Q¥þ¿ï¡C

¦pªþ¥ó¡G
Test5.rar (27.78 KB)

¤U¸ü¦¸¼Æ: 14

2013-3-21 09:12

av8d

¦^´_ 1# av8d


    µo²{¦ü¥G©M"­q¬°¶¶§Ç"¦³Ãö~©Ò¥H¥²¶·¨ú®ø­q¬°¶¶§Ç~´M§ä¤¤!

mark15jill

¦^´_  Hsieh


    ¨Ï¥Î¤F¤j¤jµ¹ªº~¥i¥H¤F~¥i¯à¿é¤J¿ù»~µLªkÅý¥LÅã¥Ü¤F!
av8d µoªí©ó 2013-3-20 16:55

³o­Ó¬O§Ú¤§«e½s¼g¸ê®Æ¬d¾\¥\¯àªº³q¦æÃÒ
¦ý¥u¦³¤@¹ï¤@
¥i±N·í¤¤ªº
    realpsd = ¤u§@ªí1.Cells(2, "N")
    realpsm = ¤u§@ªí1.Cells(2, "O")
ÂX¥R§Y¥i..

¥Îªk
¶}±Òµ{¦¡½s¿èµe­±¡A§âÀɮ׶פJ
°Ñ¦Ò¦¹ªþ¥ó
    PWControl.zip (1.73 KB)

¤U¸ü¦¸¼Æ: 7

2013-3-21 11:45

mickeymiles

¦^´_ 1# av8d
¤U¦C¦A¥[¤J  .HideSelection = False¡A¦n¹³´N¥i¥H¤F
¦Ü©ó¬°¤°»ò¤@¶}©lªº¤£¦æ¡A¥i¯à­n½Ðª©¤W«e½ú«ü±Ð¤@¤U¤F

                 With TextBox1
                     .SetFocus
                     .SelStart = 0
                     .SelLength = Len(.Text)
                      .HideSelection = False
                 End With

GBKEE

¦^´_ 10# av8d
¸ê®Æ«¬ºA°ÝÃD
Dim CB As String, TB As String

1. Private Sub CommandButton1_Click()
   
2.     Dim CB As String, TB As String, ER As String, i As Integer
   
3.     CB = ComboBox1.Value
   
4.     TB = TextBox1.Value
   
5.     With Sheets("»\´Ö³Q¯Â²á¤Ñ¨t²Î")
   
6.         For i = 2 To 4
   
7.             If CB = .Range("N" & i) And TB = .Range("O" & i) Then
   
8.                 ER = ""
   
9.                 Username = ComboBox1
   
10.                 'Ãö³¬µøµ¡
    
11.            Unload Me             'ÁÙ¬O­n°õ¦æµ{¦¡ªºForªº°j°é
    
12.            'ÁôÂÃUserForm1µøµ¡
    
13.            'UserForm1.Hide    'ÁÙ¬O­n°õ¦æµ{¦¡ªºForªº°j°é
    
14.            GoTo MS
    
15.             Else
    
16.                 ER = "±K½X¿ù»~¡I"
    
17.             End If
    
18.         Next
    
19.     End With
    
20. MS:
    
21.     If ER = "±K½X¿ù»~¡I" Then MsgBox ER   
    
22. End Sub

½Æ»s¥N½X

av8d

¦^´_ 16# mickeymiles


    ÁÂÁ¤j¤j~¬O¥þ¿ïª¬ºA~¦ý¬O¤£¯à¥´¦r~¤£ª¾¹D¬°¤°»ò~@

mickeymiles

¦^´_ 18# av8d

¦n¹³¬Otabªº°ÝÃD¡A§A±qtextbox«öenter«á¡A·|¸õ¨ì¤U¤@­Ó¶¶§Çªºª«¥ó¥h
­n«ç»ò§ï¡AÁÙ­n¬ã¨s¤@¤U¡A§Ú¤]¦bºCºC§V¤O¼W¶i¦Û¤vªºª¾ÃÑ
¤]½Ð±z¦h¦h«ü±Ð

av8d

¦^´_ 17# GBKEE


    G¤j~½Ð°Ý¦pªG§Ú­n§ï¼g¦¨InputBox~¸Ó¦p¦ó§ï¼g©O?
¦pªþ¥ó
Test6.rar (29.36 KB)

¤U¸ü¦¸¼Æ: 2

2013-3-22 11:56