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

[µo°Ý] ½Ð«ü¾É¸Ó¥Î¨º´XºØ¨ç¼Æ,¤½¦¡,»s§@©Ò»Ýªºªí®æ

[µo°Ý] ½Ð«ü¾É¸Ó¥Î¨º´XºØ¨ç¼Æ,¤½¦¡,»s§@©Ò»Ýªºªí®æ

¥»©«³Ì«á¥Ñ j592641j ©ó 2010-12-3 15:25 ½s¿è

ªþ¥ó¤º02¸Ìªí®æ¸ê®Æ,¬°¤½¥q¤ºªºEXECL¤u¨ã¦b¤½¥q¤º§ó·s¸ê®Æ«á©Ò±o¨ìªºªí®æ,¦]«¬¦WºØÃþ¸û¦h,¥u½Æ»s³¡¥÷¬°¼Ë¥»µo°Ý©Ò¨Ï¥Î
·Q½Ð°Ý,¦p02¤ºªºªí®æ,·Q¦bAÄæ²Ä13¦C¥H¤UªÅ¥Õ³¡¥÷¼W¥[¹³,¿ï¨ú©Î¨ä¥L¿ï©w¤è¦¡«á,«ö¤U°õ¦æ,¥i¥H§â©Ò¿ï©wªº¦C¸ê®Æ,¦p01¤ºªº¤è¦¡¿z¿ï§e²{¥X
,¬O¸Ó¥Î¨ººØ¨ç¼Æ·f°t¤½¦¡,¦³¬Ý¤F¤@¨Ç½d¨Ò,¦ý¬O³£¬O³æ¤@­Ó§O°õ¦æok,¦ý¬O¦U¤è¦¡¾ã¦X°_¨Ó,§Ú´N¹ê¦b¨S¿ìªk ,½Ð¦U¦ì«e½ú°ª¤â«ü¾É!!

¹ê¦b©êºp,¦]¤p§Ì³s¤W6¤Ñ12¤p®É©]¯Z,¦Ü¤µ¤Ñ¤~¦^ÂÐ,¥ý·PÁÂ2¦ì¤j¤jªº«ü¥¿,¤p§Ì¤]µoı,»¡©ú¦³°ÝÃD,©Ò¥H¤p§Ì§â¹Ï»P°ÝÃD¦A²¤Æ,¦A½Ð¤j¤j­Ì¤£§[«ü¾É!

¦p¤Uªí®æ,1A¥k¦C¦b¦WºÙ1,3,5¦ì¸m¤U¦³¥Î"Y"¼Ð°O,1B»P1C«h³£¬O¦b¦WºÙ2¦ì¸m¤U¦³"Y"¼Ð°O

¤p§Ìªº»Ý¨D¬O·Q°µ¥X¦p¤U¹Ï,§âªí®æ¤º¸ê®Æ¸g­pºâ«á,¥i¥H¹³1AÂkÃþ¦b»sµ{A,¨Ã¦C¥X¨ä¹ïÀ³¾÷¥x¸¹½X,¦pÂŦâ°é°_
¦Ó1B¤]¬O,¦pºñ¦â°é°_,
§Ú¦³¥Î¤FIF¥h¸Õ¹L,¤]¥Î¹Lor»PAND,¥u¬O¸Õ¤£¥X¨Ó,¥Î¤F¼Ï¯Ãªí¥h¸Õ°µ¹L,¦ý¥u·|§â¦³"Y"³¡¤À°µ²Î­p,»Ý­n½Ð¤j¤j«ü¾É,¸Ó¥Î¨º´XºØ·f°t­pºâ,ÁÙ¬O¥Î¨ä¥L¨ç¼Æ©Î¤½¦¡¥i¥H°µ¨ì,¥t¥~,¦p¹Ï¯»¬õ°é°_³¡¤À,¬O¥t­Ó°ÝÃD,¥ý¤£ºÞ,¦]¬°¤p§Ì·Q¥ý¸Ñ¨M¥Ø«e­pºâ°ÝÃD,¥H¤W!!
¦A½Ð¤j¤j­Ì«ü¥¿,·PÁÂ!!

01 (2).JPG (71.1 KB)

01 (2).JPG

001.JPG (54.69 KB)

001.JPG

¸Õºâ.rar (10.07 KB)

ªí®æ

ªá¤F¤j¬ù 10 ¤ÀÄÁ¬Ý§AªºÀɮסA¦³¬Ý¨S¦³À´
«Øij§A²³æ§ã­n»¡§A­þ­Ó¨ç¼Æ©ÎVB¤£·|
¦pªG§A­n»¡§A§¹¥þ¤£À´¡A¨º»ò§Aµo¿ù¦a¤è¤F
³o¸Ì¬O°Q½×°Ï¡A§AÀ³¸Óµo¦b¤å¥ó©Îµ{¦¡µo¥]°Ï¡C
¤@§Z¤T¥|¡BÅå¨ìåF¥N»x

TOP

¥»©«³Ì«á¥Ñ ©P¤j°¶ ©ó 2010-11-29 19:03 ½s¿è

²M¦âªºªí¹F, ¤~¯à¥O¤H¬Ý©ú,
¬J¨S¦³Äæ¦ì¼ÐÅÒ, ¤]¨S¦³«ü¥X¹ê½èªº­n¨D, ¥u¦³¤@°ï·í¨Æ¤H¤~©úªºµù¸Ñ....

TOP

¤p§Ì§â°ÝÃD»P¹Ï¤ù²¤Æ,¦A¥[¤W°ÝÃD»¡©ú,¦A½Ð¤j¤j­Ì«ü¾É!!

TOP

·s¤â§Ú¨Ó»~¤H¤l§Ì~~
¬Ý°_¨ÓÀ³¸Ó­n¦Û©w¸q¨ç¼Æ+OFFSET~
¦Û©w¸q¨ç¼Æ "½¼¦Ì"
Public Function ½¼¦Ì(½d³ò, ¹ï·Ó, ¸ê®Æ)
Application.Volatile
Dim I As Variant, S As Integer
For Each I In ¹ï·Ó
S = S + 1
If I.Value = ¸ê®Æ Then
TESTS = TESTS & ½d³ò(S) & ","
End If
Next
½¼¦Ì = Left(TESTS, Len(TESTS) - 1)
End Function

¨S¨Æ´N¨Ó³}³}

TOP

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

¥ý·PÁ¤j¤j,¤p§Ì¬Ý¨£¤j¤j´£¨Ñªº±Ð¾Ç«á,¦^¥h¦Û¦æ´ú¸Õ(¥t«Ø¥ß¼Ò²Õ¦WºÙ¬°±¾¸ü),µ²ªG¬O¤£¦æ,«á¨Ó¥Î¸ò¤j¤j¤@¼Ëªº¤è¦¡,
¥Î½¼¦Ì,¦ýÁÙ¬O¥X²{#NAME?<<<ªþ¹Ï¤¤D3¦ì¸m,½Ð¤j¤j«ü¾É,·P¿E¤£ºÉ!!

TOP

¦^´_ 6# j592641j
§â§Aªº¦Û©w¸q¨ç¼Æ¶K¤W¨Ó§a~
§Ú´ú¸Õ¥Î±¾¸ü©R¦W¤]¬OOKºw~
¨S¨Æ´N¨Ó³}³}

TOP

¥ý·PÁ¤j¤jªº«üÂI,¤p§Ì¤§«á¤S¦A¥J²Ó¬d¬Ý»P¤ñ¹ï¤j¤j©Ò¥´¥Xªº«ü¥O
µo²{¤p§Ì¦A¬õ¦â¦rÅ餤"±¾¸ü"«e¤Ö¤F¤@­ÓªÅ®æ,¥[¤W«á,¦A¹ï·Ó¤j¤j©Ò±Ðªº«ü¥O«á,´N¥i¥H¥¿±`Åã¥Ü¤F!!
·PÁ¤j¤jªº«ü¾É!!!
Public Function±¾¸ü(½d³ò, ¹ï·Ó, ¸ê®Æ)
Application.Volatile
Dim I As Variant, S As Integer
For Each I In ¹ï·Ó
S = S + 1
If I.Value = ¸ê®Æ Then
TESTS = TESTS & ½d³ò(S) & ","
End If
Next
±¾¸ü = Left(TESTS, Len(TESTS) - 1)
End Function

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD