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

[µo°Ý] ¦Û°Ê«ö¤U(Enter)Áä

[µo°Ý] ¦Û°Ê«ö¤U(Enter)Áä

¥»©«³Ì«á¥Ñ yangjie ©ó 2017-11-10 14:56 ½s¿è

½Ð±Ð½Ñ¦ì¤j¤j:
¦pªG TextBox1 ¿é¤J§¹²¦(¹F¨ìMaxLength)
±µµÛ»Ý «ö(Enter)Áä
VBA »yªk¦p¦óÅý ¹³sendkey §Ï©»¦Û°Ê«ö¤U(Enter)Áä
ÁÂÁ«ü¾É

Private Sub TextBox1_Change()

If Len(CStr(TextBox1.Value)) = X Then
    SendKeys "{Enter}"
End If

End Sub

«Øij§âEnterªº¥\¯àª½±µ¥Î§Oªº¤è¦¡¨ú¥N¡A¦]¬°SendKeys¦³³\¦h³Â·Ð¡C

WIN7¨t²Î¤U¡AVB¤¤ªºsendkeys©R¥OµLªk¨Ï¥Î¡A´£¥Ü¡§¹ê®É¿ù»~70 ©Ú絶ªºÅv­­¡¨

¸Ñ¨M¤èªk¡GWindows 7 UACº|¬}¡AÃö³¬Windows 7 UACªºVBS

TOP

¦^´_ 2# linyancheng

Á¤F

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD