ªð¦^¦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 : ¡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