Ãö©ó·í¦bTextBox1¤º«ö¤UEnter«á°µ©M¿ï¨úTextBox1©M(oobird ¤j¤jÁÂÁ§A~§Ú·|¦h¥ÎÂI¤ß
- ©«¤l
- 703
- ¥DÃD
- 276
- ºëµØ
- 0
- ¿n¤À
- 1005
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-5-29
|
Ãö©ó·í¦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¹³¤£¦æ |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
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 |
|
|
|
|
|
|
- ©«¤l
- 703
- ¥DÃD
- 276
- ºëµØ
- 0
- ¿n¤À
- 1005
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-5-29
|
¦^´_ 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¬°¤°»ò? |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
§A¥u»¡¿ï¨úTextBox1
¨S»¡¬O¦bµ{¦¡¤¤¿ï¨ú
·íµM¤£¯à¤@·§¦Ó½×
©Ò¥H±Ôz°ÝÃDn¥ÎÂI¤ß
³o¼Ën¥ÎTextBox1.Activate |
|
|
|
|
|
|