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

[µo°Ý] ¯¬¤j¤j­ÌÀs¦~¦æ¤j¹B,½Ð±Ð¸Ó¦p¦ó¥Î¥¨¶°¦Û°Ê§ä¥X¤µ¤é¤é´Á¤Uªº§@Äæ¦ì­pºâ~

[µo°Ý] ¯¬¤j¤j­ÌÀs¦~¦æ¤j¹B,½Ð±Ð¸Ó¦p¦ó¥Î¥¨¶°¦Û°Ê§ä¥X¤µ¤é¤é´Á¤Uªº§@Äæ¦ì­pºâ~

¯¬¦U¦ì¤j¤j­Ì,Às¦~¦æ¤j¹B :
¦³­Ó°ÝÃD,¤p§Ì¤£ª¾¦p¦ó¥Î¥¨¶°§ä¥X¤µ¤é¤é´Á¤UªºÄæ¦ì­pºâ¤å¦r©Ò¹ïÀ³¤§¼Æ­È¬Û´î,¤p§Ì¤F¸ÑÀ³¦p¦ó¨Ï¥Îvlookup,¦ý¤p§Ì·Q¦A¦Û°Ê¤Æ¤@ÂI,­n¦p¦ó¦Û°Ê·j´Mtoday()¤Uªº«ü©wÄæ¦ì§@¥N½Xªº­pºâ


Remain counter_20120102.zip (8.46 KB)

¦^´_ 1# cmo140497
­«ÂÐ"Fresh"·|­«ÂÐÅã¥Ü
  1. Sub Fresh()
  2.   For I = 5 To Range("IV3").End(xlToLeft).Column
  3.     If Cells(3, I) = Date Then
  4.        Range("C65535").End(xlUp).Offset(1, 0) = Range("C2") - Sheet2.Range("B2:B10").Find(Cells(5, I)).Offset(0, -1)
  5.     End If
  6.   Next I
  7. End Sub
½Æ»s¥N½X
Remain counter_20120102.rar (14.01 KB)
¥t¥~¥\¯à¤W¤§­n¨D©|¤£²M·¡
1.¬P´Á¤»¤é¬O§_¤£­pºâ
2.²Ä6¦C¤W¤§gg tr...¬O§_¨S¥Î¨ì

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD