tony0318

±z¦n:
§Ú¤]¤@ª½Ä±±o«Ü©_©Ç¡A¬°¦ó¦­°h¤£¦æ?

ªþÀɦp¤U :
´ú¸Õ.rar (11.97 KB)

¤U¸ü¦¸¼Æ: 12

2011-8-11 09:06

GBKEE

¦^´_ 7# tony0318
§Aªº¦­°hªº¦r¦ê¬O«ç¼Ë¼gªº  ¦AªþÀɬݬÝ

tony0318

¹Á¸Õ¹L¦h¦¸¡A
¿ð¨ì³¡¤À¬O²Ö­p¤F¡A
¦ý¦­°h¥X¤£¨Ó¡A
ÁÙ¦³¯S¥ð·|Åܦ¨480480¡A

¥H¤U¬O§Úªºµ{¦¡¥N½X¡A¤£ª¾¹D¿ù»~¦b­þ?ÁÂÁ¡C

1. Sub Ex()
   
2.     Dim Ar(), a, i As Integer
   
3.     With Sheets("sheet1")
   
4.         Ar = Application.Transpose(.Range("g2", .Range("g2").End(xlDown)))
   
5.         .[f34] = UBound(Filter(Ar, .[e34], True)) + 1
   
6. 
   
7.         For Each a In Filter(Ar, .[e35], True)
   
8.             i = i + Mid(a, InStr(a, "¨ì") + 1, InStr(a, "¤À") - InStr(a, "¨ì") - 1)
   
9.         Next
   
10.         .[f35] = i
    
11. 
    
12.         For Each a In Filter(Ar, .[e37], True)
    
13.             k = k + Mid(a, InStr(a, "¥ð") + 1, InStr(a, "¤À") - InStr(a, "¥ð") - 1)
    
14.         Next
    
15.         .[f37] = k
    
16.                
    
17.         For Each a In Filter(Ar, .[e36], True)
    
18.             j = j + Mid(a, InStr(a, "°h") + 1, InStr(a, "¤À") - InStr(a, "°h") - 1)
    
19.         Next
    
20.         .[f36] = j
    
21.         
    
22.     End With
    
23. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# tony0318
§A¹ïµ{¦¡¤£¬O«ÜÀ´,¥i¥H½m²ß¬Ý¬Ý
For Each a In Filter(Ar, .[e37], True)
            i = i + Mid(a, InStr(a, "¥ð") + 1, InStr(a, "¤À") - InStr(a, "¥ð") - 1)
Next
i=²Ö­p¯S¥ðªº¤ÀÄÁ  ,InStr(a, "¥ð")=§ä¥X"¥ð"¦ì©ó¦r¦êªº¦ì¸m¼Æ  
F35©MF36 ­n§e²{ªº¬O¤ÀÄÁªº²Ö­p¡A¦Ó«D¦¸¼Æ¡A§A¸ÕµÛ§ï¥X¨Ó,¤£·|«ÜÃøªº

tony0318

Hsieh ±z¦n :

¹ïµ{¦¡¤£¬O«ÜÀ´¡A¦ýGBKEE ªº µ{¦¡À³¸Ó¬O¥i¦æªº¡A¦]¬°¦³¬Ý¨ì¯S¥ð³¡¤À¬O¥i¥H²Ö¥[ªº¨Ã¥B´«ºâ¦¨¤p®É¡C
¦Ó¿ð¨ì©M¦­°h¡A°£­n¦³­pºâ¦¸¼ÆÁÙ­n¦³¿ð¨ì²Ö­p¤ÀÄÁ¼Æ¡B¦­°h¤ÀÄÁ¼Æ¡C

ÁÂÁ¡C

Hsieh

¦^´_ 3# tony0318

³o­Ó°ÝÃDÂI¦b©ó¤W¡B¤U¯Zªº¿ð¨ì¦­°h¼Ð·Ç¬°¦ó?
°Ñ¦Ò¤@¤U³o­Ó°Q½×
http://forum.twbts.com/thread-3811-4-2.html

tony0318

«D±`·PÁ±zªºÀ°¦£!
¥i¯à§Ú¼gªº¤£²M·¡!
F35©MF36 ­n§e²{ªº¬O¤ÀÄÁªº²Ö­p¡A¦Ó«D¦¸¼Æ¡A
½Ð±z¦A¦¸À°¦£¡AÁÂÁ¡C

GBKEE

¦^´_ 1# tony0318

¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim Ar(), a, i  As Integer
   
3.     With Sheets("sheet1")
   
4.         Ar = Application.Transpose(.Range("g2", .Range("g2").End(xlDown)))
   
5.         .[f34] = UBound(Filter(Ar, .[e34], True)) + 1  
   
6.         .[f35] = UBound(Filter(Ar, .[e35], True)) + 1
   
7.         .[f36] = UBound(Filter(Ar, .[e36], True)) + 1
   
8.         For Each a In Filter(Ar, .[e37], True)
   
9.             i = i + Mid(a, InStr(a, "¥ð") + 1, InStr(a, "¤À") - InStr(a, "¥ð") - 1)
   
10.         Next
    
11.         .[f37] = i / 60
    
12.     End With
    
13. End Sub

½Æ»s¥N½X