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

­pºâ¨C¤Ñªº³Ñ¾lª÷ÃB

­pºâ¨C¤Ñªº³Ñ¾lª÷ÃB

¦U¦ì¤j¤j­Ó§Úªº§x´b¦pÃD¡A§Ú­n¦p¦óºâ¥X¨C¤Ñªº³Ñ¾lª÷ÃB¡Aª÷ÃB¬O¥H¨C­Ó¤ë10,000¤¸¬°°ò·Ç
¨Ò¦p
2015/7/1¡Aªá150¤¸¡A©Ò³Ñ¾lª÷ÃB¬°9,850¤¸
2015/7/2¡Aªá200¤¸¡A©Ò³Ñ¾lª÷ÃB¬°9,650¤¸
¨Ì¦¹Ãþ±À
¤@ª½­pºâ¤U¥h¡Aª½¨ì
2015/8/1¡Aªá300¤¸¡A©Ò³Ñ¾lª÷ÃB¬°9,800¤¸(¨C¤ë1¸¹¤S·|±q·s­pºâ)
¦p¹Ï¤U
·s¹Ï¤ù (1).jpg
2015-9-20 16:44

¦^´_ 1# 518587
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     With Range("A2", Range("A2").End(xlDown)).Columns(3) 'A2 ©¹¤U¤é´ÁªºÀx¦s®æ ªº²Ä3Äæ
  4.         'Àx¦s®æªº¤½¦¡=IF(DAY(A2)=1,10000-B2,C1-B2)
  5.         .Cells = "=IF(DAY(RC[-2])=1,10000-RC[-1],R[-1]C-RC[-1]) " '¦p¤u§@ªíC2¿é¤J¤½¦¡«á¤U©Ô
  6.        ' .Value = .Value '¤½¦¡Âର­È
  7.     End With
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

http://blog.xuite.net/hcm19522/twblog/344426627

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD