ªð¦^¦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)Áä
ÁÂÁ«ü¾É

¦^´_ 2# linyancheng

Á¤F

TOP

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

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD