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

¦^´_ 1# yagami12th
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar(), Ar1()
  4.     With Sheets("ºô¯¸¤W¨C¤é¤­¤j¥æ©ö¤H´Á³f")
  5.         Ar = Array(.[A1].Text, .[K8], .[K10], .[K10] - .[K8])        '¼Æ¾Ú¸m¤J°}¦C
  6.     End With
  7.     With Sheets("´Á³f¤jÃB¥æ©öªÌ(¯Sªk¡A«D¯Sªk)").Cells(Rows.Count, "A").End(xlUp) '³Ì«á¤@­Ó¦³¸ê®ÆªºÀx¦s®æ
  8.         .Offset(1).Resize(1, 4) = Ar                                             '¦ì²¾¤U¤@¦C
  9.     End With
  10.     With Sheets("¤ÀªRÁ`ªí")
  11.         Ar1 = .[A4:D8].Value   '¨ú«e4¤Ñ¼Æ¾Ú ¸m¤J¤Gºû°}¦C
  12.         Ar1(5, 1) = Ar(0)      '¥[¤J²Ä5¤Ñ¼Æ¾Ú
  13.         Ar1(5, 2) = Ar(1)
  14.         Ar1(5, 3) = Ar(2)
  15.         Ar1(5, 4) = Ar(3)
  16.         .[A3:D7] = Ar1   'ÁÙ­ì5¤Ñªº¼Æ¾Ú
  17.     End With
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

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

TOP

³o­Ó¤èªk¤]¬O§Ú·Q¾Çªº.¥i±¤Åv­­¤£°÷µLªk¤U¸ü­ì©lÀɤ@¿s¨s³º
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD