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

[µo°Ý] ¥æ©ö©Òºô¯¸ªº¦¬½L»ù¤wÅܧó?¥Î°ÊºA¬d¸ß¤w¥¢®Ä?

¦^´_ 10# t8899

µ{¦¡µ²§ô«e °õ¦æEx_°Æµ{¦¡
  1. Private Sub Ex_°Æµ{¦¡()
  2.     Dim Rng As Range, r As Integer
  3.     With ActiveSheet    '¥i«ü©w¤u§@ªí
  4.         Set Rng = .[A:A].Find("11*", LOOKAT:=xlWhole)
  5.         If Not Rng Is Nothing Then
  6.             r = 4
  7.             Do
  8.                 If IsNumeric(.Cells(r, "A")) Then
  9.                     .Cells(r, "A").Select
  10.                     .Cells(r, "A") = "'00" & .Cells(r, "A")
  11.                 End If
  12.                 r = r + 1
  13.             Loop Until r = Rng.Row
  14.         End If
  15.     End With
  16. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2014-12-28 09:58 ½s¿è
¦^´_  t8899

µ{¦¡µ²§ô«e °õ¦æEx_°Æµ{¦¡
GBKEE µoªí©ó 2014-12-28 08:54


«Ü©_©Ç¡A¦pªG§Ú¥Î f8 ³æ¨B°õ¦æ A4¥H«á³£·|³Q·|·í¦¨¼Æ¦r IsNumeric(²Å¦X±ø¥ó) ,«e­±³£·|¥['00 ???
f5 °õ¦æ¬O¥¿±`ªº

TOP

¦^´_ 12# t8899
  1.         r = r + 1
  2.             Loop Until r = Rng.Row  '¤£·|ªº³o¸Ì¦³­­¨î°Ú
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁ «ü¾É !!

TOP

¶¶«K¸É¥R2¼ÓcsvÀÉ ¸òhtml ¸ü¤J¤u§@ªíªº»yªk
CSV Àɸü¤J
sub goDKDKD()
Dim srWk As Workbook
    Dim srPth
    srPth = "R:\TEMP\1.CSV"
    If srPth = False Then Exit Sub
     Application.ScreenUpdating = False
    Set srWk = GetObject(srPth)
    srWk.ActiveSheet.Cells.Copy ThisWorkbook.Worksheets(1).Cells(1)
    srWk.Close False
    Set srWk = Nothing
    Cells(2, 1).Select
END SUB
--------------------------------------------
html Àɸü¤J
sub goDKDKD()
Dim srWk As Workbook
    Dim srPth
    srPth = "R:\TEMP\1.html"
    If srPth = False Then Exit Sub
     Application.ScreenUpdating = False
    Set srWk = Workbooks.OpenXML(srPth)
    srWk.ActiveSheet.Cells.Copy ThisWorkbook.Worksheets(1).Cells(1)
    srWk.Close False
    Set srWk = Nothing
    Cells(2, 1).Select
END SUB
---------------------------------------

TOP

¦^´_ 4# GBKEE


    ½Ð°Ý¦pªG­n±N±zªºµ{¦¡½X¡A®M¥Î¨ìÂd¶R¥«³õ¡A§Ú¥u§ó§ï³sµ²¨ì
http://www.gretai.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430.php?l=zh-tw

«o¥X²{¿ù»~°T®§¡A½Ð°Ý­þ¸ÌÁٻݭn­×§ï?ÁÂÁ¤j¤j
Henry

TOP

¤~¤£¨ì¤@­Ó¤ë
ÃÒ¥æ©Ò¤S§ï¤F
¦A¦¸¥¢®Ä......§ì¤£¨ì¸ê®Æ¤F

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-1-22 06:34 ½s¿è
¤~¤£¨ì¤@­Ó¤ë
ÃÒ¥æ©Ò¤S§ï¤F
¦A¦¸¥¢®Ä......§ì¤£¨ì¸ê®Æ¤F
chwqk µoªí©ó 2015-1-21 23:37


±N  '  .BODY.innerHTML = .getElementsByTagName("table")(?).outerHTML
§ï¬°            .BODY.innerHTML = .getElementsByTagName("table")(4).outerHTML
´N¥i¥H¤F

TOP

ª½±µ§ìcsvÀ³¸Ó´N¦æ¤F¡I¨º­Ó¤£·|¦³tableªº°ÝÃD

TOP

¤u§@ªí¤ºA¤ÎBÄ椺¤§¦r¤¸¦³ªºÀx¦s®æ³Ì«á³£·|¦h¤@­ÓªÅ¥Õ
¦p¦ó¥ÎVBA §R°£A¡BBÄæ©Ò¦³Àx¦s®æ¤º¦r¤¸³Ì«á¦³ªÅ¥Õ ªº³¡¥÷
¦p:
¥ý¿ïAÄæ
¥O¨ä©Ò¦³¦r¤¸
" "=""

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD