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

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

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

½Ð±Ð¦Vªþ¥ó¨º¼Ë¥´¥d¥X¨Óªº­n¦p¦ó²Î­p
¿ð¨ìªº¦¸¼Æ
¿ð¨ìªº®É¶¡²Î­p
¦­°hªº®É¶¡²Î­p
¤Î¯S¥ðªº®É¼Æ²Î­p

ÁÂÁÂ

Book5.rar (4.26 KB)

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

TOP

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

TOP

¹Á¸Õ¹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.         For Each a In Filter(Ar, .[e35], True)
  7.             i = i + Mid(a, InStr(a, "¨ì") + 1, InStr(a, "¤À") - InStr(a, "¨ì") - 1)
  8.         Next
  9.         .[f35] = i

  10.         For Each a In Filter(Ar, .[e37], True)
  11.             k = k + Mid(a, InStr(a, "¥ð") + 1, InStr(a, "¤À") - InStr(a, "¥ð") - 1)
  12.         Next
  13.         .[f37] = k
  14.                
  15.         For Each a In Filter(Ar, .[e36], True)
  16.             j = j + Mid(a, InStr(a, "°h") + 1, InStr(a, "¤À") - InStr(a, "°h") - 1)
  17.         Next
  18.         .[f36] = j
  19.         
  20.     End With
  21. End Sub
½Æ»s¥N½X

TOP

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

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

TOP

¯u¯«©_!
Hsieh ªºµ{¦¡Â²µu§ã­n  ¤p§Ì¸ûµLªk²z¸Ñ!
GBKEE  ªº Åý§Ú®e©öÀ³¥Î!!
À¸ªk¤H¤H·|ÅÜ ¤âªk¥©§®¦U¤£¦P!!
·PÁÂ

§Ú­n¦p¦óÅý©Ò¦³¤u§@ªí³£°õ¦æ³o¥¨¶°?
­ì¥H¬°¿ï¾Ü©Ò¦³¤u§@ªí¡A¦A°õ¦æ©Ò­n¥¨¶°§Y¥i!
§Ú·Qªk¤Ó³æ¯Â¤F!!

TOP

©êºp!
§Ú«üªº¬O¦p¦ó¤@¦¸°w¹ïÀɮפ¤©Ò¦³¤u§@ªí³£°õ¦æ¬Û¦Pªº¥¨¶°¡A
­ì¥»·Q»¡¿ï¾Ü©Ò¦³¤u§@ªí«á¦A°õ¦æ¥¨¶°¡A
¦ý¥u¦³²Ä¤@­Ó¤u§@ªí¦³¤ÏÀ³¡A
Åܦ¨¨C¤@­Ó­û¤u§Ú³£­n°õ¦æ¤@¦¸!

ÁÂÁÂ

TOP

¤£¦n·N«ä!
³o¼Ë°õ¦æ¤§«á¡A·|²Ö­p­C!
À³¸Ó¬O³æ¤@¤u§@ªí¦U§O­pºâ
¦p¦³5­Ó¤H¥´¥d·|¦³5±i¤u§@ªí¡A¦ý¬O¬O¦U§O­pºâªº!

ÁÂÁÂ!

´ú¸Õ.rar (12 KB)

TOP

·PÁ GBKEE  ªºÀ°¦£!!
³o¥¿¬O§Ú­nªº!!
ÁÂÁ¡C

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD