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

[µo°Ý] (µo°Ý)¦Û°Ê§ó·s¼Æ¾Ú©¹¤U·s¼Wªº°ÝÃD¡´

[µo°Ý] (µo°Ý)¦Û°Ê§ó·s¼Æ¾Ú©¹¤U·s¼Wªº°ÝÃD¡´

excelªþÀÉ¡G oi´ú¸Õª©.rar (330.21 KB)

½Ð±Ð¤@¤U¤j®aÃö©ó¦Û°Ê§ó·s¼Æ¾Úªº¬ÛÃö°ÝÃD¡A¥D­n¥Øªº¬O­n¯à¨C¤é§ó·s¼Æ¾Ú¨Ã´«ºâ¥Xµ²ªG³Ì«á²£¥Í¥X¹Ï§Î
--------------------------------------------------------------------------------------------------------------
¸ê®Æ³¯­z¦p¤U¡G
¡§Sheetºô¯¸¤W¨C¤é¤­¤j¡¨ªº¤u§@ªí¬O¤w³]©w¦n»P¡¨´Á¥æ©Ò¡¨ºô­¶¸ê®Æ°µ³sµ²¡A¤U¤È¥|ÂI¥b«ö­«·s¾ã²z´N·|§ó·s¦¨¡¨·í¤Ñªº¸ê°T¡¨

¡§Sheet´Á³f¤jÃB¥æ©öªÌ¡¨¸ÌÀY¬O¨C¤@¤Ñªº¼Æ¾Ú¾ã²z«áªºµ²ªG(±q2004/7¨ì2012/2/10)
----------------------------------------------------------------------------------------------------------------

­º¥ý³B²zªº¬O¡¨¥þ¥«³õ¥¼¨R¾P³¡¦ì¼Æªº¼Æ¾Ú¡¨
s1 ÂI¿ïSHEET¡¨ºô¯¸¤W¨C¤é¤­¤j¡¨«á¡A¥ý³B²z¤é´Á¸ê®Æ¡AÂI¿ïa1Äæ¦ì«á¡A½Æ»sa1Äæ¦ìªº­È¡CÂIsheet¡¨´Á³f¤jÃB¥æ©öªÌ¡¨«á¡A¶K¨ìa1897ªº¤U¤@®æ(a1898)¡C

s2 ÂI¿ïSHEET¡¨ºô¯¸¤W¨C¤é¤­¤j¡¨«á¡A½Æ»sk8Äæ¦ìªº­È¡AÂIsheet¡¨´Á³f¤jÃB¥æ©öªÌ¡¨«á¡A¶K¨ìb1897ªº¤U¤@®æ(b1898)¡C

s3¦AÂISHEET¡¨ºô¯¸¤W¨C¤é¤­¤j¡¨«á¡A½Æ»sk10Äæ¦ìªº­È¡AÂIsheet¡¨´Á³f¤jÃB¥æ©öªÌ¡¨«á¡A¶K¨ìc1897ªº¤U¤@®æ(c1898)¡C

s4 ¦AÂI¿ïsheet¡¨´Á³f¤jÃB¥æ©öªÌ¡¨    ­pºâD1898ªº­È=C1898-B1898

¿ýªº¸`ªG¦p¤U¡G
Sub largeOItest
  Range("A1898").Select
    ActiveCell.FormulaR1C1 = "=ºô¯¸¤W¨C¤é¤­¤j¥æ©ö¤H´Á³f!R[-1892]C"  ¡¥¶K¤W¤µ¤Ñªº¤é´Á¸ê®Æ
    Range("B1898").Select
    ActiveCell.FormulaR1C1 = "=ºô¯¸¤W¨C¤é¤­¤j¥æ©ö¤H´Á³f!R[-1885]C[9]" ¡¥¶K¤W¤µ¤Ñªº(ªñ¤ë)¥þ¥«³õ©Ò¦³¥¼¨R¾P³¡¦ì
    Range("C1898").Select
    ActiveCell.FormulaR1C1 = "=ºô¯¸¤W¨C¤é¤­¤j¥æ©ö¤H´Á³f!R[-1883]C[8]" ¡¥¶K¤W¤µ¤Ñªº(©Ò¦³¤ë)¥þ¥«³õ©Ò¦³¥¼¨R¾P³¡¦ì

    Range("D1898").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]" ¡¥±N©Ò¦³¤ëªº¥¼¨R¾P³¡¦ì»Pªñ¤ë¬Û´î¡Aºâ¥X»·¤ë¸ê®Æ

End Sub
--------------------------------------------------------------------------------------------------
s5 ³Ì«á§â¤µ¤é¾ã²z§¹²¦ªºexcel·s¼W¼Æ¾Úµ²ªG¡A§âªñ¤­¤éªº¸ê®Æ½Æ»s¡A¶K¤W¨ì¡¨sheet¤ÀªRÁ`ªí¡¨¤¤ªº¡Aa3¨ìd7Äæ
  
  Range("A1893:D1897").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("¤ÀªRÁ`ªí").Select
    Range("A3").Select
    ActiveSheet.Paste
End Sub
-----------------------------------------------------------------------------------------------------------
°ÝÃDÂI¡G
°ÝÃD1¡AÃö©ós2¨ìs4¡A¤µ¤Ñ¬O±Nºô¯¸¤W§ì¤@­ÓÁ`ªí¡A¦A±qÁ`ªí¤º§ä´X­Ó·|¥Î¨ìªº¼Æ¾Ú¡A¶K¨ìsheet´Á³f¤jÃBªº³o­Ó¤u§@ªíªºa1898©Mb1898©Mc1898³o¤T­ÓÄæ¦ì¡A¦]¬°¨C¤@¤Ñªº¤U¤@®æ³£·|ÅÜ¡A¤µ¤Ñ¬Oa1898¡A©ú¤Ñ·|Åܦ¨a1899¡C½Ð°Ý¤@¤U¤j®a¡A¦pªG»¡­n°µ¦¨¨C¤Ñ¦Û°Ê§ó·s©¹¤U·s¼W¸ê®Æªº¸Ü¡A¸Ó«ç»ò¼g¡C

°ÝÃD2¡AÃö©ós5¡A¥Øªº¬O±N¡¨sheet´Á³f¤jÃB¡¨¸Ìªº¾ã²z§¹²¦ªºªñ¤­¤é¼Æ¾Ú¡A©¹sheet¡¨¤ÀªRÁ`ªí¡¨ªºa3¨ìd7Äæ¶K¡A©Ò¥Ha3¨ìd7Äæ½d³ò¬O©T©wªº°Ñ¼Æ¡A¦ýsheet´Á³f¤jÃB¸Ìªº¸ê®Æ¡A¦]¬°¨C¤@¤Ñ¦pªG¤@ª½©¹¤U·s¼W¡AÄæ¦ì·|¤@ª½ÅܤơAµLªk¶¶§Qªº±Nªñ¤­¤éªº¸ê®Æ¶K¨ì¡¨¤ÀªRÁ`ªí¡¨¸ÌÀY
------------------------------------------------------------------------------------------------------------
¥ýÁÂÁ¦U¦ì¤F¡C

¦^´_ 2# GBKEE

¦^GBKEE¤j¡A¹ê¦b¤Ó·PÁ¤F¡A§Ú¥¿¦b¸Õ¥t¤@­Ó¨º­ÓÀɮפ¤¡C

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD