[µo°Ý] ·í²Å¦X±ø¥ó®É¦^¶ÇSample time & ¨äÀx¦s®æ¦C¸¹

marklos

·í²Å¦Xcurrent (A) <0.1 ªº±ø¥ó®É¦^¶ÇSample time & ¨äÀx¦s®æ¦C¸¹¦b«ü©w¦ì¸m Question5.rar (9.95 KB)

¤U¸ü¦¸¼Æ: 7

2014-12-5 23:12

owen06

¦^´_ 1# marklos


    ­n¸Õ¬Ý¬Ývba¶Ü

marklos

¦^´_ 2# owen06


    ¥i§_½Ð±ÐVBA«ü¥O¬°¦ó?

owen06

¦^´_ 3# marklos


    §A¤U¸ü§ÚªºªþÀÉ¡A¶}±Ò¤§«á¡A³]©w¦ng2ªº­È¡A«ö¤U¥kÃ䪺«ö¶s¡A´N¥i¥H¤F¡C
    «ö¤Ualt+f11¡A¥i¥H¶i¤Jvba½s¿èµe­±¡A§A¥i¥H¬ã¨s¬Ý¬Ý¡C
    ¦³°ÝÃD¥i¥H¦A¤W¨Ó´£¥X°Q½×¡C

marklos

¦^´_ 4# owen06


    ¤F¸Ñ~·PÁÂ...¦³°ÝÃD¦A½Ð±Ð.

samwang

¦^´_ 1# marklos

¤U­±¬O°}¦C¤½¦¡
G5=INDEX(B:B,SMALL(IF($D$2:$D$200=MAX(IF($D$2:$D$200<$G$2,$D$2:$D$200,"")),ROW($2:$200)),ROW($1:$1)))&""
H5=SMALL(IF($D$2:$D$200=MAX(IF($D$2:$D$200<$G$2,$D$2:$D$200,"")),ROW($2:$200)),ROW($1:$1))&""

marklos

¦^´_ 4# owen06

¦pªG­n§â¨äÀx¦s¦C¸¹¥N¤J¥H¤Uºâ¦¡¥h­pºâ¨ä®É¶¡Á`¼Æ¤ÎÁ`©M¸Ó«ç»ò°µ?
  =COUNT(E2:E61)/3600
  =SUM(E2:E61)/3600

owen06

¦^´_ 6# samwang


    ¥i¬O¦^¶Ç¥X¨Óªºµª®×¬O²Ä20¦Cªº¸ê®Æ­C¡A¥¿½TªºÀ³¸Ó¬O²Ä61¦C¤£¬O¶Ü¡H

owen06

¦^´_ 7# marklos


    °²³]¦bh6¸òh7­n­pºâªº¸Ü¡A§ï¦¨³o¼Ë´N¦æ¤F

1. Private Sub CommandButton1_Click()
   
2. [g5,h5] = ""
   
3. For Each cu In Range("d2:d" & [a65536].End(3).Row)
   
4. If cu.Value < [g2] Then
   
5.   [g5] = cu.Offset(0, -2).Value
   
6.   [h5] = cu.Row
   
7.   [h6] = Application.Count(Range("e2:e" & cu.Row)) / 3600
   
8.   [h7] = Application.Sum(Range("e2:e" & cu.Row)) / 3600
   
9.   Exit Sub
   
10. End If
    
11. Next
    
12. End Sub

½Æ»s¥N½X

marklos

¦^´_ 8# owen06


°e¤Wªþ¥ó