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

¦p¦ó¦bTextBox1¤¤Åã¥Ü¿é¤Jªk

¦p¦ó¦bTextBox1¤¤Åã¥Ü¿é¤Jªk

¦p¦ó¦bTextBox1¤¤Åã¥Ü¿é¤Jªk¡y­Ü¾e¡z
¦p¦ó¦bTextBox2¤¤Åã¥Ü¿é¤Jªk¡yª`­µ¡z
¨C¦¸³£­n­«·s¤Á´«...vba¥i§_°µªº¨ì©O ????

¦^´_ 1# sillykin


    ¦p¹Ï

­Ü¾e.JPG (24.78 KB)

­Ü¾e.JPG

TOP

¦^´_ 2# sillykin
½Ð°Ñ¾\vbaªº»¡©ú
  1. IMEMode ÄÝ©Ê  ³o­ÓÄÝ©Ê¥u¾A¥Î©ó»·ªF¡]Far East¡^©Ò¼gªºÀ³¥Îµ{¦¡¡A¨ä¥¦À³¥Îµ{«h©¿²¤¡C
½Æ»s¥N½X
vba»yªkµLªk¤Á´«¤¤¤åªº¿é¤Jªk
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-9-4 23:11 ½s¿è

¦^´_ 1# sillykin
ºô¸ô¤W§ä¨ìªº¤èªk, §Q¥Î SendKeys -
¨Ï¥Î«e¥²¶·¥ý³]©w¦n¿é¤Jªkªº§Ö³t¤Á´«Áä :
­Ü¾e Ctrl + Shift + 1
ª`­µ Ctrl + Shift + 3 ¦p¥k¹Ï :  

¦]¬° TextBox ¨S¦³Ãþ¦ü GotFocus ©Î¬O Activate ¤§Ãþªº¨Æ¥ó¨Ó¹ê§@­è¶i¤J®É¤Á´«¿é¤Jªkªº°Ê§@,
³o¸Ì§Ú³z¹L¦UTextBox ªº MouseUp ¨Æ¥ó¨Ó¤Á´«¿é¤Jªk,
¤£¹L, ¦¹ªk¥u¯à¥Î©ó·Æ¹«ÂIÀ»ªº¤è¦¡¨Ó°µ¤Á´« TextBox ªº°Ê§@,
­Y¬O¨Ï¥ÎªÌ¨Ï¥Î Tab Áä¨Ó¤Á´«ªº¸Ü´N¥u¯à¤Á´«¬O§_¬°¤¤¤å¿é¤Jª¬ºAÅo.
  1. Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  2.   'SendKeys ("^+0")  ' ¥i¤£¥Î¥[¦¹¦æ, ¦]¬°§Ú³Ìªì¬O³]©w¤Á´«­^¼Æªº§Ö³tÁ䬰 Ctrl + Shift + 0 , ¦Ó³o­Ó¤w¥i¥Ñ TextBox1.IMEMode = fmIMEModeOff  ¨Ó¹ê²{¤F.
  3. End Sub

  4. Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  5.   SendKeys ("^+1")
  6. End Sub

  7. Private Sub TextBox3_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  8.   SendKeys ("^+3")
  9. End Sub

  10. Private Sub UserForm_Initialize()
  11.   TextBox1.IMEMode = fmIMEModeOff ' ­^¼Æ
  12.   TextBox2.IMEMode = fmIMEModeOn  ' ­Ü¾e
  13.   TextBox3.IMEMode = fmIMEModeOn  ' ª`­µ
  14. End Sub
½Æ»s¥N½X
¦p¦ó¦bTextBox1¤¤Åã¥Ü¿é¤Jªk-a.zip (9.66 KB)
1

µû¤À¤H¼Æ

    • GBKEE: ºë«~¤å³¹ª÷¿ú + 5

TOP

¦^´_ 5# luhpro
«Øij§ï¥ÎEnter¨Æ¥ó(¶i¤JTextBox¤§«e¨Æ¥ó),¤£¥²°Ê¨ì·Æ¹«.(TabÁä¥i²¾°Ê¦bTextBox¤§¶¡)
  1. Private Sub TextBox1_Enter()
  2.     SendKeys "^ + {BS}"
  3. End Sub
  4. Private Sub ATextBox2_Enter()
  5.     SendKeys ("^+1")
  6. End Sub
  7. Private Sub ATextBox3_Enter()
  8.     SendKeys ("^+3")
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁÂluhpro ¤Îg¤jª©¥Dªº¦^ÂÐ..Åý¤p§Ì¤j°ª²´¬É..

TOP

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