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

[µo°Ý] Ãö©óEXCEL VBA ¥~³¡µøµ¡ ¶K¤W°ÝÃD½Ð¯q

[µo°Ý] Ãö©óEXCEL VBA ¥~³¡µøµ¡ ¶K¤W°ÝÃD½Ð¯q

¦³°µ¤@­ÓEXCEL VBA¡AÀɮצp¤U¡C
QAA.rar (13.49 KB)

§Ú¦³¶}±Ò¨â­Óµøµ¡¡A¤@­Ó¬O¤W­±´£¨ÑªºEXCELÀɮסA¸Ì­±¦³¤@­Ó«ö¶s¡A«ö¤U¥i¥H½Æ»sµM«áÁY¤pEXCELµøµ¡¡C


¥t¤@­Óµøµ¡¬O°O¨Æ¥»¡A¥Ø«e·Q­nÅýEXCEL¤ºAA¤u§@ªíªº¼Æ¾Ú¡A¶K¦b°O¨Æ¥»¤W¡AÃþ¦üCTRL+Vªº·Pı¡A½Ð°Ý¸Ó¦p¦ó¥HVBA§e²{?

¦^´_ 2# samwang

samwang¤j¤j¡A¦³¨S¦³§Oªº¤èªk©O?  ¤£­n¥t¥~·s¼W¤å¦rÀÉ¡AµM«á±N¸ê®Æ¼g¤Jªº¤è¦¡¡C

¹³¬O¦Û°ÊÀ°§Ú­Ì«ö CTRL+V ³o¼Ë?

TOP

¦^´_ 5# samwang

·PÁ samwang & quickfixer ¤j¤jªº¼ö¤ß¨ó§U³B²z°ÝÃD¡C
¥Ø«e¥»¤H¤w¸Õ¥XVBA·Q­n§e²{ªº¤è¦¡¡A¦p¤U¡õ

Sub Copy()

    [A2:A32].Copy
  
    ActiveWindow.WindowState = xlMinimized
   
    AppActivate "¥¼©R¦W - °O¨Æ¥»"

    SendKeys "^V", True


End Sub

¬õ¦r¬°°l¥[ªº³¡¥÷¡A³o­Ó´N¬Oºî¦X¨â¦ì¤j¤j´£¨Ñªº·Qªk¨Ó§ï¡A¦A¦¸·PÁÂ!

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD