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

[µo°Ý] EXCEL ¥¨¶° ¨ç¼Æ À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~

[µo°Ý] EXCEL ¥¨¶° ¨ç¼Æ À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~

  1.     Range("B4:B5").Select
  2.     ActiveCell.FormulaR1C1 = _
  3.         "=SUM(RC[3]:R[1]C[3],RC[6]:R[1]C[6],RC[9]:R[1]C[9],RC[12]:R[1]C[12],RC[15]:R[1]C[15],RC[18]:R[1]C[18],RC[21]:R[1]C[21],RC[24]:R[1]C[24],RC[27]:R[1]C[27],RC[30]:R[1]C[30],RC[33]:R[1]C[33],RC[36]:R[1]C[36],RC[39],R[1]C[39],RC[42]:R[1]C[42],RC[45]:R[1]C[45],RC[48]:R[1]C[48],RC[51]:R[1]C[51],RC[54]:R[1]C[54],RC[57]:R[1]C[57],RC[60]:R[1]C[60],RC[63]:R[1]C[63],RC[66]:R[2]C" & _
  4.         "]C[66],RC[69]:R[1]C[69],RC[72]:R[1]C[72],RC[75]:R[1]C[75],RC[78]:R[1]C[78],RC[81]:R[1]C[81],RC[84]:R[1]C[84],RC[87]:R[1]C[87],RC[90]:R[1]C[90],RC[93]:R[1]C[93])"
  5.     Range("B4:B21").Select
  6.     Selection.FillDown
  7.    
  8.     Range("E4").Select
  9.     ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
  10.     Range("E4:E21").Select
  11.     Selection.FillDown
½Æ»s¥N½X
½Ð±Ð¦U¦ì¦Ñ®v¡A¸U¤À·P¿E¡I

§ä¨ì°ÝÃD¤F¡A­ì¨Ó¬O¨ì¹F¤@©w¨ç¼Æ·|Åý¤½¦¡¥X¿ùªºBUG¡A¤w¸Ñ¨M¡A¸U¤À·PÁ¡I

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD