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

[µo°Ý] ¦Û°Ê¿z¿ï«á,¦p¦ó§Q¥Îvba­pºâ²Å¦X¿z¿ï¤§®É¶¡¥[Á`

[µo°Ý] ¦Û°Ê¿z¿ï«á,¦p¦ó§Q¥Îvba­pºâ²Å¦X¿z¿ï¤§®É¶¡¥[Á`

®É¶¡(hh:mm):©ñ¦bA1¸ê®Æ~A10¸ê®Æ
          TYPE   TIME
A1    YES    00:30
A2    YES    10:20
A3    YES    05:30
A4    YES    12:20
A5    YES    03:50
A6    NO     00:20
A7    YES    00:30
A8    YES    02:20
A9    YES    00:30
A10  NO     02:20

¦p¦ó§Q¥Î¦Û°Ê¿z¿ï¥\¯à,TYPE¥u¿ï¾ÜYESªº¸ê®Æ,
¦A§Q¥Îvba­pºâ²Å¦XYESªºTIME¥[Á`®É¶¡(hh:mm)

ÁÂÁÂ

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-10-26 12:02 ½s¿è

¦^´_ 1# app4000
VBA
Format(Application.SumIf(Range("A1:A10"), "YES", Range("B2")), "HH:MM:SS")
¤u§@ªí
TEXT(SUMIF(A1:A10,"YES",B2),"HH:MM:SS")

TOP

¦^´_ 2# GBKEE


·PÁ GBKEE ªº¸Ñµª

¥t½Ð°Ý¤@¤U¦pªG²Ö­p¤j©ó24¤p®É ­n¦p¦ó Åܦ¨ XX¤ë XX¤é XX®É XX¤À

TOP

¦^´_ 3# app4000
VBA
Format(Application.SumIf(Range("A1:A10"), "YES", Range("B2")), "M/D HH:MM:SS")
¤u§@ªí
TEXT(SUMIF(A1:A10,"YES",B2),"M/D HH:MM:SS")

TOP

¦^´_ 4# GBKEE

EX:
TIME
11:00
22:30
11:00

Á`­p 44¤p®É 30¤À

D HH:MM:SS §Ú­n±oµª®×À³¸Ó¦p¤U
1 20:30:00  --->µª®×

¦Ó¤£¬O
24 20:30:00  --->©Ç©Çªº

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-10-26 23:09 ½s¿è


¼Ï¯Ã¤ÀªR¡A³]©wÀx¦s®æ®æ¦¡
VBA½Ð¸Õ¸Õ
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For Each a In Range([A1], [A65536].End(xlUp))
  4.    d(a & "") = d(a & "") + a.Offset(, 1)
  5. Next
  6. For Each ky In d.keys
  7. MsgBox Format(Int(d(ky)), "0") & Format(d(ky) - Int(d(ky)), "¤Ñ h:mm:ss")
  8. Next
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# app4000
¨S¿ù£«¬O 1:20:30:00

TOP

«x¡A«ç»ò¼Ï¯Ãªºµ²ªG¤£¤@¼Ë¡H

TOP

¦^´_ 4# GBKEE


    ª©¥D
½Ð°Ý¥N¤J¤u§@ªíªºµ{¦¡¸ò¼Ï¯Ã°µ¥Xªºµª®×¤£¤@¼Ë...
½Ð°Ý­þ¸Ì¿é¤J¿ù»~??
ÁÂÁ±z..




¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¦^´_ 9# PD961A
¤@¼Ë°Ú,¨º¸Ì¤£¤@¼Ë?? §Ú¨S¬Ý¥X¨Ó!

TOP

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