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

­pºâ¥Í²£¹Lµ{¤¤ªº°²¤é

­pºâ¥Í²£¹Lµ{¤¤ªº°²¤é

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-1-5 17:53 ½s¿è

Dear ¤j¤j
        ¤p§Ì¤S¹J¨ì¦Û¤vµLªk§JªAªº°ÝÃD,¥D­nªº°ÝÃD¬O§Ú¤£·|¼g¦p¦ó­«ÂйBºâ¨ì¥¿½Tªºµ²ªG
        »¡©ú:
            1.¸ê®Æ·|¦³¦æ¨Æ¾ä[¤é´Á,©ñ°²¤Ñ¼Æ],¥Í²£¸ê°T[¹w­p¤W½u¤é.¥Í²£¤Ñ¼Æ(­q³æ¶q/²£¯à),¹w­p¤U½u¤é]
            2.¹w­p¤U½u¤é=(¹w­p¤W½u¤é+¥Í²£¤Ñ¼Æ)-1+©ñ°²¤é(¥Í²£¹Lµ{¤¤¹J¨ì°²¤éªº¤Ñ¼Æ,»Ý­n±Æ°£,¦]¦¹­n¥[¤W©ñ°²¤é)
               * -1¬°¹w­p¤W½u¤é¨º¤Ñ¤]ºâ¬O¤@­Ó¥Í²£¤Ñ¼Æ©Ò¥H­n±q¹w­p¤W½u¤éºâ°_,¦]¦¹»Ý­n-1
            °ÝÃD:
            1.¦bªþ¥ó¤¤§Ú¬O¨Ï¥ÎSUMIF¨Ó­pºâ©ñ°²¤é,¦ý¬O¦bSUMIFªº±ø¥óµLªk¨Ï¥ÎÀx¦s®æ·í±ø¥ó,©Ò¥H§Ú´N±N¤é´Á´«ºâ¦¨­È,
               ¥ÎKEY INªº¤è¦¡,¦ý§Ú»Ý­n³B²zªº¸ê®Æ¨Ã¤£¬O¥u¦³¤@µ§,½Ð±Ð¤j¤j¸Ó¥Î¦óºØ¤è¦¡³B²z¸û¦n
        2.­Y¶È­pºâ¤@¦¸ {¹w­p¤U½u¤é(A)=(¹w­p¤W½u¤é+¥Í²£¤Ñ¼Æ)-1+©ñ°²¤é(B)} ·|²£¥Í¹w­p¤U½u¤é­Y¥[§¹©ñ°²¤é«á,¤S¹J¨ì°²¤é®É,«h¸Ó¸ê®Æ¬O¤£¥¿½Tªº
          §Ú¦³·Q¹L­pºâ§¹²Ä¤@¦¸¹w­p¤U½u¤é«á,¦A­«ÂйBºâ¤@¦¸¬Ý©ñ°²¤Ñ¼Æ(C)¬O§_¤@­P,­Y¤@­Pªº¸Ü³o¸õ¥Xµ{¦¡,ªí¥Ü¸Ó¹w­p¤U½u¤é¬O¥¿½Tªº
          ­Y¤£¤@­Pªº¸Ü,¨ä­pºâ¤è¦¡¬° ¥¿½Tªº¹w­p¤U½u¤é=²Ä¤@¦¸¹w­p¤U½u¤é(A)+(²Ä¤@¦¸¤U½u¤éªº©ñ°²¤é(C)-©ñ°²¤é(B))

           ½Ð¤j¤j­Ì«ü±Ð¤@¤U
          °ÝÃD¦pªþ¥ó ­pºâ¥Í²£¹Lµ{¤¤ªº°²¤é.rar (9.9 KB)
¾Ç²ß¤~¯à´£¤É¦Û¤v

¦^´_ 1# hugh0620

¼W¥[°²¤éªí»²§UÄæ
µM«á¥ýºâ¥X¤U½u¤é
¦A¤Ï±À°²¤é¼Æ
¦pªþ¥ó ­pºâ¥Í²£¹Lµ{¤¤ªº°²¤é.zip (23.94 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    Dear ¤j¤j
        «ÜÁÂÁ±zªº¦^ÂÐ,¦ý¬O¤£¬O§Úªº»Ý¨D,°®¯Ü§Ú§â¨Æ±¡Â²¤Æ¦n¤F
        §Ú·Q­n¼´¦æ¨Æ¾ä¤¤°Ï¶¡ªºªº©ñ°²¤Ñ¼Æ,§Ú¥ý§JªA³o­Ó°ÝÃD«á,
           ¬Ý¼g¨ì­þ­Ó¦a¤è¤S¥d¦í,¦A½Ð¤j¤jÀ°¦£¸Ñ¨M
        ¤]¥i¥HÅý§Ú¦³½m²ßªº¾÷·|

        °ÝÃD¦pªþ¥ó½d¥» ©ñ°²¤Ñ¼Æ_20110106.rar (12.5 KB)

            ¥i§_¥Îµ{¦¡½Xªº¤è¦¡¼¶¼g,¦]¬°«áÄò§Ú·|±N¨ä­pºâªº¤è¦¡¼g¦bµ{¦¡½X¤¤,ª½±µ¦bSHEET¤¤¦³§ïÅܮɴN¦Û¦æ¹Bºâ
        ­Y¬O¼g¨ç¼Æ´N»Ý­n¥h³]©w«OÅ@
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-1-6 14:11 ½s¿è

¦^´_ 3# hugh0620
  1. Private Sub CommandButton1_Click()
  2. Dim st As Date, ed As Date
  3. st = InputBox("½Ð¿é¤J°_©l¤é´Á", , Date)
  4. ed = InputBox("½Ð¿é¤Jµ²§ô¤é´Á", , Date + 30)
  5. Set a = Columns("A").Find(st, LookIn:=xlValues)
  6. Set b = Columns("A").Find(ed, LookIn:=xlValues)
  7. If a Is Nothing Or b Is Nothing Then MsgBox "The day is not found": Exit Sub
  8. [E2] = Application.Sum(Range(a.Offset(, 4), b.Offset(, 4)))
  9. MsgBox Application.Sum(Range(a.Offset(, 4), b.Offset(, 4)))
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    Dear ¤j¤j

        ¹ê¦b«D±`·PÁ§A~ À°§Ú§JªA¤F¥d«Ü¤[ªº°ÝÃD~ §Ú¤]²×©ó§â¥¦­×§ï¦¨§Ú©Ò»Ý­nªº¤u¨ã~ ¤]Åý§Ú¦h¾Ç²ß¨ìVBA¼¶¼gªº¤èªk
           ¤]½Ð¤j¤j«ü±Ð¬ÝÁÙ¦³¨S¦³¨ä¥L»Ý­n­×§ïªº¦a¤è

       ¤]¶¶«K´£¨Ñ§Ú§¹¦¨ªºÀÉ®×µ¹¨ä¥L¦³»Ý­n³o¤è­±À°§Uªº¤H

       ½Ð¬d¾\ªþ¥ó ­pºâ¥Í²£¹Lµ{ªº°²¤é¤Ñ¼Æ(ºâ¥X¤U½u¤é)_20110106_§¹¦¨«~.rar (18.58 KB)
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 5# hugh0620
¤£¥²¦A¼g¤@¦¸µ{¦¡½X
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1_Click
End Sub

TOP

¦^´_ 6# GBKEE


    Dear ¤j¤j
        ÁÂÁ´£¿ô  ¥u¬O§Ñ°O§â«ö¶s¤¤ªºµ{¦¡½X®³±¼ ¦]¬°¤w¸g¦³¼g¦b·íSHEET¦³§ïÅܮɴN·|¸òµÛÅÜ°Ê:loveliness:
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD