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

µ{¦¡½m²ß

¦^´_ 10# myleoyes

TEMP = Right([Q78], Len([Q78]) - 2)
[Q79] = [Q79] - TEMP

Y = Year(Now()) - 2012
If Month(Now()) = 1 Then [CF3].Offset(Y, 0) = 300
[CF3].Offset(Y, 0) = [CF3].Offset(Y, 0) - TEMP

2¬qµ{¦¡
¦ý¤£ª¾¸Ó©ñ¤J ¬d±b ©Î ¼W´î¸ê

TOP

¦^´_ 11# register313
«e½ú!2¬qµ{¦¡ ¦ý¤£ª¾¸Ó©ñ¤J ¬d±b ©Î ¼W´î¸ê
     ¤p§Ì¤]°g½kÅo!¬Ý»¡©ú(µLªkÀx¦sÀɮרì TEMP ¥Ø¿ý (¿ù»~ 735))
     ¤]µLªk§¹¥þ¤F¸Ñ«e½úªº·N«ä,¨º´N¨Ì¤p§Ìªº·Qªk»¡©ú¦p¤U
     ¥ý»¡©úªþÀɪºµ{¦¡»PÀx¦s®æ¤º®e¥u¾A¥Î¼ÒÀÀ¥Î³~
     Case "Q80"¥²¶·¦p¤Uµ{¦¡¤~¥¿½T
             X = [O78] = "¥æ©ö°Ï" And [Q78] <> "½æ¥¼¤J±b" And [Q78] <> "¶R¥¼¦©´Ú" And [Q78] <> "±b¤á" And Month(Now()) <> Month(Now() + 1)
If X Then ¬d±b
     Sub ¼W´î¸ê()
         [CF3]­ì¤è¦¡
         [CF3] = "=" & [CF3] & "-" & [Q78]
         °õ¦æ«áCF3=240-40
         °ÝÃD¬Oµ{¦¡µLªk±µ¨ü³oºØ«¬ºA
         ¤j·§¬OQ78¬O¤½¦¡«D¼Æ¦r­ì¦]½}!
         ¦A«h»Ý¨D¬OCF3=300-10-20-30-40
         ¦P®É¤]µLªk¾A¥Î¤U¤@¦~«×©Ò¥H­n­×§ï
         ¦Ü©ó¤§«eCF3=300-10-20-30´N¤£¥ÎºÞ¥¦
         ¥u­n±N¨C¤ëªº¼Æ¦r©¹«á¼g¤J§Y¥i,¦n¤ñ4¤ë~5¤ë..µ¥µ¥
         CF3=300-10-20-30-40(4¤ë)-50(5¤ë)..¤p§Ì¬O¦p¦¹·Q
         [Q79]­ì¤è¦¡
         [Q79] = [Q79] - [Q78]
         µ{¦¡µLªk±µ¨ü³oºØ«¬ºA
         ¤j·§¬OQ78¬O¤½¦¡«D¼Æ¦r­ì¦]½}!
         ¨Ì«e½úµ{¦¡¬O¥¿½T TEMP = Right([Q78], Len([Q78]) - 2)
         [Q79] = [Q79] - TEMP
       End Sub
       ¸ó¦~°ÝÃD¤p§Ì·Qªk±N¸ó¦~µ{¦¡¿W¥ß¥X¨Ó¤ñ¸û³æ¯Â
         Private Sub Workbook_Open()
            If Month(Date) = 1 And Day(Date) = 1 Then ¸ó¦~
         End Sub
         Sub ¸ó¦~()
             Y = Year(Now()) - 2012
             [CF4].Offset(Y, 0) = [CF3]
             ¤j·§³o·N«ä¥i¥H©¹¤U¼g[CF5],[CF6]...µ¥µ¥
         End Sub  
       ¹ï¤£°_!¯uªº¨¯­W§AÅo!½Ð¦A«ü¾ÉÁÂÁ¦A¤T!!

LeoV62-1-03ª©.rar (17.68 KB)

TOP

¦^´_ 12# myleoyes

LeoV62-07ª©.rar (24.29 KB)
§Ú¥Î¤W¤@¦¸ªºÀÉ®×¥h­×§ïªº,¸Õ¸Õ¬Ý
³Ì¤jªºÃöÁä¬O 1.©Ò­nªº¥\¯à¬O¤°»ò  2.ÅÞ¿è°ÝÃD 3.µ{¦¡»yªk¤£¬O°ÝÃD

¥Ø«e¥\¯à:
1¤ë³Ì«á¤@¤é,«öQ80  =>  Q78=¤ë¤J5,  CF3=300-10=290
2¤ë³Ì«á¤@¤é,«öQ80  =>  Q78=¤ë¤J10,CF3=300-10-20=270
3¤ë³Ì«á¤@¤é,«öQ80  =>  Q78=¤ë¤J15,CF3=300-10-20-30=240
...
©ú¦~1¤ë³Ì«á¤@¤é,«öQ80  => Q78=¤ë¤J5,    CF4=300-10=290
©ú¦~1¤ë³Ì«á¤@¤é,«öQ80  => Q78=¤ë¤J10,  CF4=300-10-20=270

¤£¤F¸Ñªº¬O:
300¬O¤°»ò
1¤ë³Ì«á¤@¤é,«öQ80  => Q78´NÅܦ¨"½æ¥¼¤J±b", ¨º 2¤ë³Ì«á¤@¤é,«öQ80¤£¬O¤]¨S§@¥Î

TOP

¦^´_ 13# register313
«e½ú!1¤ë³Ì«á¤@¤é,«öQ80  => Q78´NÅܦ¨"½æ¥¼¤J±b",
     ¨º 2¤ë³Ì«á¤@¤é,«öQ80¤£¬O¤]¨S§@¥Î
     ³o¤£¥Î¾á¤ß¹ê»ÚªºÀÉ®×O79»PP79ªº¤½¦¡»Pµ{¦¡·|¦Û°Ê¥­¿Å
     ¤£·|µo¥ÍQ78´NÅܦ¨"½æ¥¼¤J±b"ªº±¡ªp,¤£¯à«öQ80¶s
     ¦]¬°½d¨Ò¹ê¦bµLªk¼ÒÀÀ¯u¹êª¬ªp¤S§Ñ¤F§i¶D§A«Ü©êºp
     1,«öQ80¶s«ö¥²¶·±ø¥ó¤w½T©w,½Ð¼È¤£¥Î·Q¥¦¨S§@¥Î
     2,1¤ë³Ì«á¤@¤é,«öQ80  => Q78=¤ë¤J5,CF3=300-10=290
       ³o¸Ì¬O¤p§Ì²¨©¿,¦]¬°03ª©Q78µLªk¥Î¤½¦¡
       ©Ò¥Hª½±µ¥Î¼Æ¦r¤ß·Q1¤ë¥÷¥Î10,2¤ë¥÷¥Î20¤ñ¸û®e©ö°O
       «o§Ñ¤F­ì¥»¤½¦¡ªº¼Æ¾Ú1¤ë¥÷¬O5¹ê¦b¶Ë¸£µ¬¤ï¶Õ°Õ!
       ¤£ºÞ¬O¤ë¤J10©Î¤ë¤J5,CF3=300-10©ÎCF3=300-5¬O¤½¦¡«¬ºA
       ¦Ó«D«e½úªºCF3=300-10=290­È«¬ºA³o¬O­«ÂI
     3,300¬O¤°»ò?300¬O°²³]101/1/1§ë¤Jªº¸êª÷,²{¦b¬O4¤ë¥÷
       ¶}©l°O¿ý©Ò¥H¥²¥]§t1~3¤ë¥÷ªº¼Æ¦r¦]¦¹
       CF3=300-10-20-30-40(03ª©)©ÎCF3=300-5-10-15-20(07ª©)
     ¦AªþÀÉ»¡©ú
     1,½Ð¥ý¬Ý°ÊµeÀÉ,¦A¶}Àɮפñ¸û®e©ö©ú¥Õ
     2,Leov62-07BÀɤºªºP79ªº¼Æ¦r¤£¥Î²z·|¥¦ªº¦s¦b
       ¨º¬O°t¦X¼ÒÀÀ¥Îªº
       ¹ï¤£°_!¯uªº¨¯­W§AÅo!½Ð¦A«ü¾ÉÁÂÁ¦A¤T!!

LeoV62-07ª©b.rar (25.35 KB)

Leov62-07B.part1.rar (878.91 KB)

Leov62-07B.part2.rar (789.91 KB)

LeoV62-07ª©b.rar (25.35 KB)

TOP

¦^´_ 14# myleoyes

­n±q2012¦~1¤ë¶}©l´ú¸Õ,¦³¤£¦X»Ý¨Dªº¦a¤è­n§i¶D§Ú
  1. Sub ¼W´î¸ê()
  2.     Money = 300                                           '2012¦~¤@¶}©lªº¼W´î¸ê
  3.     XX = Right([Q78], Len([Q78]) - 2)                     '¨ú¥X¨C­Ó¤ë¤ë©³ªºQ78ªº¤ë¤JXX¤¤ªºXX(¼Æ¦r)
  4.     [Q79] = [Q79] - XX                                    '¨C­Ó¤ë¤ë©³ªºQ79=Q79-XX
  5.     Y = Year(Now()) - 2012                                '­pºâ¥Ø«e¦~¥÷»P2012¦~¬Û®tY
  6.     '=================================================
  7.     If Month(Now()) = 1 Then                              '¦pªG¤ë¥÷¬°1¤ë¤ë©³
  8.       If Year(Now()) = 2012 Then                          '¦pªG¦~¥÷¬°2012¦~³]©wCF3=Money=300
  9.         [CF3] = Money
  10.       Else: [CF3].Offset(Y, 0) = [CF3].Offset(Y - 1, 0)   '¦pªG¦~¥÷¬°2013¦~³]©wCF4=CF3,¦~¥÷¬°2014¦~³]©wCF5=CF4
  11.       End If
  12.     End If
  13.     '=================================================
  14.     [CF3].Offset(Y, 0) = [CF3].Offset(Y, 0) - XX          '2012¦~¨C­Ó¤ë¤ë©³CF3=CF3-XX,2013¦~¨C­Ó¤ë¤ë©³CF4=CF4-XX
  15. End Sub
½Æ»s¥N½X
LeoV62-07ª©.rar (25.06 KB)

TOP

¦^´_ 14# myleoyes

       myleoyes §AªºªF¦è~ ¤§«e¦³¼g¹L~ ³£ÆZ½ÆÂøªº~
       «Ü·Q¬ã¨s¤@¤U§A­nªºªF¦è~ ¥i±¤~ ²{¦b¤u§@¸û¦£~
       ¨S¦³®É¶¡¨Ó¬ã¨s~ ¯u¬O´Ý©À~
       ¤£¹L¤]µ¹§A¥´®ð~  §Æ±æ§Aªº°ÝÃD¯à°÷³Q¸Ñ¨M~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 15# register313
«e½ú!µ{¦¡ªº¬yµ{»P¼Æ¦r§¹¦¨¥¿½T
     »Ý­×§ïªº¦p¤U!
     1,«e½ú!§Ñ¤F¤p§Ì¤@¦A±j½ÕªºCFÄæ­nªº
     CF3=300-5-10-15-20 ¬O¤½¦¡ªº«¬ºA
     ¦Ó«DCF3=300-5=295 ¬O­Èªº«¬ºA
     CFÄ欰¦ó­n¤½¦¡ªº«¬ºA©O?
     ¦]¬°¤@µ§ªº¤@µ§ªº°O¿ý¬yµ{¸U¤@¼Æ¦r¿ù»~
     ´N«Ü®e©ö¸Ñ°£°ÝÃD
     2,·í¸ó¦~®É«e½úªºµ{¦¡­n¦b¤ë©³°õ¦æ
     ¬d±b¤~²£¥Í102¦~ªº¤é´Á³o¼Ë¤l
     Àɮתº¨ä¥Lµ{¦¡³£±o°±Â\
     ¦]¬°ÀÉ®×°_©lÂI´N¬OBYÄ檺¤é´ÁµM¦Ó
     BY4=IF(CF4="","",IF(BY4<>"",BY4,EDATE(BY3,12)))
     ©Ò¥HCF4¬O¥D¾ÉªÌ«ç¯à¦b¤ë©³¤~¥X²{©O?
     ¥H¤W¨â°ÝÃD½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!

TOP

¦^´_ 16# hugh0620
«e½ú!ÁÂÁ§Aªº¹ªÀy...¨ä¹ê°ÝÃD¨Ã«D½ÆÂø
¥u¬O¦Û¤v¯à¤O®t¤S¤£µ½ªí¹F±`±`²ÖÃa¦U¦ì
¤j¤j¹ê¦b·P¨ì¬p¶Õ¸U¤À!!ÁÂÁ¤j®a!!

TOP

¦^´_ 17# myleoyes
­ÉCGÄæ¤@¥Î
½Ð±q101¦~¦~ªì¶}©l¾Þ§@
LeoV62-07ª©.rar (25.53 KB)

TOP

¦^´_ 19# register313
«e½ú!
     ½Ð¬Ý§Aªº´¼¼z....¬O§_¤]¬°¦Û¤v·P¨ìź¶Æ©O?«¢«¢!!
     ¥¼¨Óªº¹Ú·Q±N·|¦b¼u«ü¤§¶¡¹ê²{
     ³o´N¬OÄ@´º...Àɮצ۰ʤÆ,¥Í¬¡¤Æ¬O¥²µMªºÁͶÕ
     §A¶W¼F®`!¯uªº¤Ó·P®¦¤]¤Ó¨¯­W§AÅo!
     °£¤FÁÂÁÂ...ÁÙ¬OÁÂÁ¦A¤T!!

¹Ú·Q¦¨¯u.gif (216.39 KB)

¹Ú·Q¦¨¯u.gif

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD