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

Ãö©ó·í¦bTextBox1¤º«ö¤UEnter«á°µ©M¿ï¨úTextBox1©M(oobird ¤j¤jÁÂÁ§A~§Ú·|¦h¥ÎÂI¤ß

Ãö©ó·í¦bTextBox1¤º«ö¤UEnter«á°µ©M¿ï¨úTextBox1©M(oobird ¤j¤jÁÂÁ§A~§Ú·|¦h¥ÎÂI¤ß

¥»©«³Ì«á¥Ñ av8d ©ó 2011-8-25 15:31 ½s¿è

1.·í¦bTextBox1¤º«ö¤UEnter«á°µ
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii=13 then
'°µ
EndIf
End Sub
¬O³o¼Ë¶Ü?

2.Ãö©ó¿ï¨úTextBox1~¹³TextBox1¦A¿é¤Jªº®É­Ô·|¦³¶Â½u°{Ã{¨º¼Ë
§Ú¹Á¸Õ¤F¤@¤U    TextBox1.Select    ¦n¹³¤£¦æ

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        MsgBox "§A«ö Enter ·F¹À¡H"
    End If
End Sub
¿ï¨úTextBox1~¹³TextBox1¦A¿é¤Jªº®É­Ô·|¦³¶Â½u°{Ã{¨º¼Ë
¥»¨Ó´N·|³o¼Ëªº¡A¿ï¨ú®É´N·|¶i¤J¿é¤Jª¬ºA¡C

TOP

¦^´_ 2# oobird


    oobird ¤j¤j±z¦n~·PÁ±zªº¦^ÂÐ~²Ä¤@­Ó°ÝÃD¨S°ÝÃD¤F~

²Ä¤G­Ó¥i¯àÁÙ¬O¥X²{°ÝÃD~

Private Sub TextBox1_Change()
    If TextBox1.Value = "" Then
        Rows("3:1000").Select
        Selection.ClearContents
        TextBox1.Select
    End If
End Sub

¥L°õ¦æ§¹²¦«á~¥L¤£·|´_­ì¦¨¥¿¦b¿é¤Jªº°{Ã{±¡§Î~¤£ª¾¹D¬°¤°»ò?

TOP

§A¥u»¡¿ï¨úTextBox1
¨S»¡¬O¦bµ{¦¡¤¤¿ï¨ú
·íµM¤£¯à¤@·§¦Ó½×
©Ò¥H±Ô­z°ÝÃD­n¥ÎÂI¤ß
³o¼Ë­n¥ÎTextBox1.Activate

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD