- ©«¤l
- 88
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 104
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-1-3
- ³Ì«áµn¿ý
- 2017-12-31
|
[µo°Ý] (µo°Ý)¦Û°Ê§ó·s¼Æ¾Ú©¹¤U·s¼Wªº°ÝÃD¡´
excelªþÀÉ¡G
oi´ú¸Õª©.rar (330.21 KB)
½Ð±Ð¤@¤U¤j®aÃö©ó¦Û°Ê§ó·s¼Æ¾Úªº¬ÛÃö°ÝÃD¡A¥Dn¥Øªº¬On¯à¨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 |
|