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

½Ð±Ð¥´¥d²Î­p°ÝÃD

¦^´_ 3# tony0318

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

TOP

¦^´_ 9# tony0318
  1. Sub ex()
  2. [F34:F37] = ""
  3. For Each c In [E35:E37]
  4.    For Each a In [G2:G32]
  5.    k = InStr(a, c)
  6.       If k > 0 Then c.Offset(, 1) = c.Offset(, 1) + Val(Mid(a, k + Len(c))) / IIf(c = "¯S¥ð", 60, 1): If c = "¿ð¨ì" Then [F34] = [F34] + 1
  7.    Next
  8. Next
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD