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

[µo°Ý] ·s¦~¤§«áµLªk¦Û°Ê§ó·sªÑ»ùªº°ÝÃD

[µo°Ý] ·s¦~¤§«áµLªk¦Û°Ê§ó·sªÑ»ùªº°ÝÃD

³o¬O§Ú§âºô¸ô°ª¤â¤À¨ÉªºEXCEL«÷´ê°_¨Ó¡A¬ö¿ý°tªÑ°t®§ªºEXCEL
­ì¥»«ö"¤@Äýªí"¤W¤è«ö¶s¥i¤@Áä¦Û°Ê§ó·sªÑ»ù¡A
¥i¬O¤¸¥¹¤§«á·|¥X²{¿ù»~°T®§¦Ó¥u¯à§ó·s²Ä¤@ÀɪѲ¼¡A
Àµ½Ð¦U¦ì«e½úÀ°§Ú¬Ý¬Ý­n¦p¦ó§ó¥¿¦n¶Ü?«D±`·PÁÂ

©w¦sªÑ.rar (175.45 KB)

¦^´_ 2# f3202

¥i¥H¤F¡A§Ú¹ïVBA¥u¦³²¤À´¥Ö¤ò¡A¹ê¦b¬O¬Ý¤£À´­þ¸Ì¥X¿ù
«D±`·P®¦«e½úÀ°¦£

TOP

Sub Â^¨ú¸ê®Æ()
Dim ReTxt, i&, ARR, BRR(9), V As Currency, GetTime$
uTxtStr = ""
Call ¨ú±oºô­¶­ì©l½X: If uTxtStr = "" Then Exit Sub
'-----------------------------------------------------
GetStr = ""
ST1 = "href=""/q/bc?s=" & uRng & """>"
ST2 = "<a href=""/q/ts?s=" & uRng & """>¦¨¥æ©ú²Ó</a>"
GetStr = Â^¨ú¤å¦r½X(uTxtStr, ST1, ST2):  If GetStr = "" Then Exit Sub
ReTxt = Array("</td>", "", "</b>", "", "¡µ", "", "¡¾", "-", "¡¶", "", "¡¿", "-", ",", "", ">", String(20, " "))
For i = 0 To UBound(ReTxt) Step 2
    GetStr = Replace(GetStr, ReTxt(i), ReTxt(i + 1))
Next i
'-----------------------------------------------------
ARR = Split(GetStr, Chr(10))
For i = 0 To UBound(ARR)
    If i = 0 Then BRR(i) = Trim(Mid(Replace(ARR(i), "<", String(10, " ")), Len(uRng) + 1, 10))
    If i > 1 And i < 11 Then BRR(i - 1) = Trim(Right(ARR(i), 20))
Next
Range(uRng(1, 2), uRng(1, 11)).Value = BRR
'-----------------------------------------------------
ST1 = "<span class=""ssbodyw"">"
ST2 = "</span></div></td>"
GetTime = Â^¨ú¤å¦r½X(uTxtStr, ST1, ST2)
uRng(1, 12) = Time ' CDate(Mid(Left(GetTime, 16), 12))
End Sub
¸Õ¸Õ

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD