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

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

¦^´_ 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

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD