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

[µo°Ý] ¥i¥H¤U¸ü,Ū¨ú¦³°ÝÃD

¦^´_ 20# devidlin


    ¥D­n¬O¾Ç¬Ý¥¨¶°½s¿è¤è¦¡,¤£¬O¾ã°¦©^°e,¦³ÂI©êºp!
¾Ç²ß¤§¸ô~~¤@°_¥[ªoÅo!

TOP

¦^´_ 20# devidlin
½Ð¥´¶}¶}µo¤H­û->Visaul Basic §A´N¬Ý±o¨ìµ{¦¡°õ¦æ¤º®e¤F¡I

TOP

»¡¯uªº~W¤j«Ü§Æ±æ¨ë¿E§Ú¥X¨Ó»¡©ú
¥u¦n¸õ¥X¨ÓPO¤@¤U¦Û¤vªº²Î­p---->¥H¥Ü²M¥Õ
¤£¬O¨ÓÄv§Þ,¤]¤£¬O½ð(W¤jªº©«);§ó¤£§Æ±æ¦³¤H¦b¦¹«÷©R½ðÀ]--->(¶Ë²´)
²`ª¾¦Û¤vªº¤U¸ü¦³ªÅ¶¡§ï¶i;©Ò¥H«÷©R¾Ç²ß§ï¶i
¦Ó¤£¬O¬°¤F¬D¤ò¯f or ªí²{¦Û¤v

¬°§K³ã³ã¤£¥ð
PO¦b¦Û¤vªºµo°Ý¸Ì¦n¤F
§Æ±æ´N¦¹¥´¦í!

TOP

¤£¦n·N«ä! ~~¾Ç²ß³£¦bºô¸ô¤W±o¨Óªº
©Ò¥H,±`«O·P®¦¤ß & Á¾¨õªº¤ß±¡
¤@¤Á³£¦b¾Ç²ß¤¤

TOP

¦^´_ 24# HSIEN6001

«x ³o¬O§A¤U¸ü¤U¨Óªº¥æ©ö©ú²Ó¶Ü
­ì¨Ó0050¤§Ãþªº¤]¦³ ¨Sª`·N¨ì
§Ú¤]¨Ó¸Õ¹L¥Îhtm¤U¸ü
¥u¬O¤£ª¾¹D«ç»ò³B²z¥L...

TOP

¦^´_ 24# HSIEN6001

§A¦n~
½Ð°Ý§A#24 poªº¨º­Ó(¨é¥«°Óxxx)ªº¸ê®Æ¤º®e¸ê®Æ¤º®e´N¬O#23ªº¶K¹Ï¶Ü
©Ò¥H¬O®Ú¾Ú¨C¤Ñ¤U¸ü¤U¨Óªº¥æ©ö©ú²Ó¶i¦æ¾ã²z?
¥i¥H»¡¤@¤U¬O«ç»ò°µªº¶Ü?
¦pªG¹ï¨C¤@¤äªÑ²¼¥þ³¡¾ã²zªº¸Ü·|¯Ó®É«Ü¤[§a?
§Ú¥Ø«e¥u¯à°w¹ï¦³¿³½ìªºªÑ²¼¾ã²z ¦]¬°¤Óªá®É¶¡...©Ò¥H·Q½Ð°Ý¤@¤U°µªk

TOP

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-8-5 17:10 ½s¿è

¦^´_ 26# lalalada


µL½×¬Oxls ©Î htm ,®æ¦¡ÁöµM¨S¦³¦b¬Û¦PÂI
¦P¼Ë¥i³B²z,´N¬O«ü©wµ¹¥¦²Î­pªºÄæ¦ì¦Ó¤w
¥þ³¡¾ã²z²Î­p¨S¥¿½T¬Ý®É¶¡®º! (30¤À?!)
­YÀ³¥ÎVBA,¬Û«H·|§ó§Ö

¥ý«e°Q½×¦ì¸m¡A¯dµ¹¬Ý­¾­Ì¦Û¦æ°Ñ¦Ò¡G
http://forum.twbts.com/thread-6451-1-1.html
http://forum.twbts.com/thread-6349-1-1.html

TOP

¤À¨É«e,­º¥ýÁÂÁ diabo ¤j¸Ñ´b,¤~¯àÄ~Äò³o¤£¦Pªº«ä¸ô

¦p¥ý«e [¨é°Ó¶R½æ¤é³ø©ú²Ó] ¤U¸ü¤§©µ¦ùÃD:

­Y¤U¸ü¦^¨Óªº¬Ohtm®æ¦¡
¥i¥H¸Õ¸Õ³o­ÓÂàÀÉxls
¤pªº¤@ª½¦b¾Ç²ß¤¤,©å¦HªºªF¦è ©Î ¨õ·Lªº«ä¸ô
´N¶È¨Ñ¤j®a~~°Ñ¦Ò!°Ñ¦Ò!
~§O¨£¯º^_^!!

¦]¬°¤W¸ü¦³1MB­­¨î
¬G¬D¿ï´X®a¯S§OªºªÑ²¼¥N¸¹,¥H¨Ñ´ú¸Õ
htmÂàxls.rar (81.17 KB)

TOP

¦^´_ 28# HSIEN6001

¦p¤W
'¥N¸¹»P¦WºÙ©î¸Ñ,µø­Ó¤H»Ý¨D;¦¹¬q¥i¬Ù
Dim i%, strn$, Rng As Range
    Application.ScreenUpdating = False
    Set Rng = Range("F3")
            For i = 1 To Len(Rng)
                strn = Mid(Rng, i, 1)
                If Not IsNumeric(strn) Then
                    Rng.Offset(0, 1) = "'" & Mid(Rng, 1, i - 1)
                    Rng.Offset(0, 2) = Mid(Rng, i)
                    Exit For
                End If
            Next i
    Application.ScreenUpdating = True
   
'¥N¸¹»P¦WºÙ©î¸Ñ¡A³o¬q»yªk¤]¥i°Ñ¦ÒGBKEEªºCode
    Dim i%, Rng As Range
    Application.ScreenUpdating = False
    Set Rng = Range("F3")
    Do
        For i = 1 To Len(Rng)
            If Not IsNumeric(Mid(Rng, i, 1)) Then
                Rng.Offset(0, 1) = "'" & Mid(Rng, 1, i - 1)
                Rng.Offset(0, 2) = Mid(Rng, i)
                Exit For
            End If
        Next i
            Set Rng = Rng.Offset(1)
    Loop Until Rng = ""
    Application.ScreenUpdating = True

TOP

¦^´_ 29# HSIEN6001

·P®¦!
¥Ø«e¥¿¦b­×§ïµ{¦¡½X¤¤
µ¥µ¥´N¥i¥H¹êÅç¤F^_^

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD