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

[µo°Ý] ¨Ì¤é´Á»Ý¨D½Æ»s½d³ò¤½¦¡°ÝÃD

[µo°Ý] ¨Ì¤é´Á»Ý¨D½Æ»s½d³ò¤½¦¡°ÝÃD

¥»©«³Ì«á¥Ñ msmplay ©ó 2018-1-18 21:59 ½s¿è

Â^¨ú.PNG
2018-1-18 21:57


½Ð°Ý¸Ó¦p¦ó¨Ï¥Î¥¨¶°¹F¨ì¥H¤U®ÄªG:
1. «ö¤U¡i½Æ»s¤½¦¡¡j«ö¶s«á¡A¥i¦Û°Ê±N¤µ¤é½d³ò¤½¦¡½Æ»s¶K¦Ü¹j¤é¡A¨Ã±N¤µ¤é½d³ò¤½¦¡½Æ»s¶K¤W¬°­È(±N¤½¦¡¦s¬°­È)
¨Ò¦p1¡G¤µ¤é¬°1/18¡A«ö¤U¡i½Æ»s¤½¦¡¡j«ö¶s«á¡A¦Û°Ê¿ï¨úEK:ER(1/18½d³ò)¨Ã½Æ»s¤½¦¡¡A¥ý±N¤½¦¡¶K¦ÜES:EZ(1/19½d³ò)¡A¦A±NEK:ER¤½¦¡½Æ»s¶K¤W¬°­È(±N¤½¦¡¦s¬°­È)
¨Ò¦p2¡G¤µ¤é¬°1/19¡A«ö¤U¡i½Æ»s¤½¦¡¡j«ö¶s«á¡A¦Û°Ê¿ï¨úES:EZ(1/19½d³ò)¨Ã½Æ»s¤½¦¡¡A¥ý±N¤½¦¡¶K¦ÜFA:FH(1/20½d³ò)¡A¦A±NES:EZ¤½¦¡½Æ»s¶K¤W¬°­È(±N¤½¦¡¦s¬°­È)
¥H¦¹Ãþ±À

´£¿ô:
¦]½d³ò¤¤¦³³\¦h¦X¨ÖÀx¦s®æ¡A§Æ±æ¥i¥H«O«ù­ì®æ¦¡¹F¦¨¥Øªº¡A¦pªG¯uªºµLªk¦³¦X¨ÖÀx¦s®æ¡A§Æ±æ¥i´£¨ÑÅܳq¤è¦¡¡A«D±`·PÁÂ~~~~~~~


´ú¸Õ.rar (54.49 KB)
*¦v¤k¤@ªTµL»~*

¤£ª¾¹D³o¼Ë¼g¦³¨S¦³²Å¦X§Aªº»Ý¨D
  1. Sub ¶K¤½¦¡()
  2. Range("FA4:FH72").Formula = Range("ES4:EZ72").Formula
  3. End Sub

  4. Sub ¶K¤W­È()

  5. With Range("ES4:EZ72")
  6.     .Select
  7.     .Copy
  8.     Selection.PasteSpecial Paste:=xlPasteValues
  9. End With
  10. Application.CutCopyMode = False
  11. End Sub
½Æ»s¥N½X
§Æ±æ¦³À°§U¨ì§A
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD