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

·sª©ªÑ¥«¤½¶}¸ê°TÆ[´ú¯¸ªº¸ê®Æ§ì¨ìEXECL?

¦^´_ 29# chang0833
¦^´_ 28# GBKEE

GBKEE ª©¤j¨S¯d·N±z¦b 34. ~ 46. ¶¡¥[¤J¤F        If ~ Then ªº§PÂ_»y¥y¡C¤ï¶Õ¡I
  1.     If .ResultRange.Rows.Count = 2 Then 'µL¸ê®Æ
  2.         D_Name = .Name      'WEB¬d¸ßªº¦WºÙ
  3.         .Delete             '§R°£:WEB¬d¸ß
  4.         With Rng.Parent
  5.             For Each E In .Names
  6.         If InStr(E.Name, D_Name) Then E.Delete '§R°£:¤u§@ªí¤Wªº¦WºÙ->WEB¬d¸ßªº¦WºÙ
  7.             Next
  8.         End With
  9.     Else
  10.         With .ResultRange      ''WEB¬d¸ß¸ê®Æªº½d³ò
  11.             Set Rng = .Cells(.Rows.Count + 2, 1)     ' ¤U¤@WEB¬d¸ßªº¦ì¸m
  12.         End With
  13.     End If
½Æ»s¥N½X

TOP

¦^´_ 31# c_c_lai
³oºô­¶¦³ÂI©_©Ç,¦~«×ªº¿ï¶µ¬°¦ó¦³¤U¤@¦~«×(¥¼¨Óªº¦~«×).
¦³¤H¥i¤À¨É¶Ü?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-11-13 07:55 ½s¿è
¦^´_  c_c_lai
³oºô­¶¦³ÂI©_©Ç,¦~«×ªº¿ï¶µ¬°¦ó¦³¤U¤@¦~«×(¥¼¨Óªº¦~«×).
¦³¤H¥i¤À¨É¶Ü?
GBKEE µoªí©ó 2015-11-13 06:00

¤U¤@¦~«×(¥¼¨Óªº¦~«×)  ¥Á°ê 105 ¦~©|¥¼¨ì¹F¡A²z½×¤W¥¦¬O¤@­Ó¥¼ª¾¼Æ¡A
·|­p¦~«×¤]¥u¨ì¤µ¦~«×¦Ó¤w¡A¥B©|¥¼¦~«×µ²Âà­þ¨Óªº¸ê®Æ¡H

TOP

ª©¤j¡A¥i¥H¦b½Ð±Ð¤@¤UÃö©ó³o­Ó°]³øºô­¶¤U¸ü¤U¨Óªº¸ê®Æ°ÝÃD¶Ü¡H
§Ú¥Îvlookup ¨Ó¤ñ¹ï¸ê®Æ¡A«oµo²{¤U¦C¸ê®Æ¦³­«½Æ¡Avlookup ¥u¯à®»¨ì²Ä¤@µ§¸ê®Æ¡A
¦ý¬O²Ä¤@µ§¸ê®Æ¬OªÅ¥Õªº¡A­n¦p¦ó®»¨ì­«½Æ¸ê®Æ¦ý¤S¥i¥H¿ï¾Ü¨ä«á¦³¸ê®ÆªºÄæ¦ì®»¨ú
¦A³Â·Ðª©¤j½ç±Ð¤F^^

     À³¦¬²¼¾Ú²bÃB       
     À³¦¬²¼¾Ú²bÃB        72,036
     À³¦¬±b´Ú²bÃB       
     À³¦¬±b´Ú²bÃB        19,452,028
     À³¦¬±b´Ú¡ÐÃö«Y¤H²bÃB       
     À³¦¬±b´Ú¡ÐÃö«Y¤H²bÃB        231,367

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-11-15 07:04 ½s¿è

¦^´_ 34# chang0833
²Ä¤@­Ó¡yÀ³¦¬²¼¾Ú²bÃB¡z¬O¡y¶µ¥Ø¡z(¼ÐÃD)¡A
²Ä¤G­Ó¡yÀ³¦¬²¼¾Ú²bÃB¡z¬O·|­p¡y¬ì¥Ø¡z¡A
¨âªÌ¦bÄ_ªí¤W¬O¦³«e«á¦ì¸m®t²§ªº¡A
Âà¤J«á¦p¤£¥J²ÓÆ[¹î¡A«K¥H¬°¬O
­«ÂСy¬ì¥Ø¡z¤F¡C
¦Ü©ó VLOOKUP ªºÀ³¥Î´N¦³³Ò GBKEE ª©¤j¤F¡C

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-11-16 05:28 ½s¿è

¦^´_ 34# chang0833
©Î¬OªþÀÉ »Ý­n­þ¨Ç¸ê®Æ
  1. Next
  2.     '''¥[¤W³o¬q¸Õ¸Õ¬Ý
  3.     With Rng.Parent
  4.          .Range("A:A").SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
  5.          '§R°£:¤u§@ªí¤WªºªÅ¥Õ¦C
  6.     End With
  7.     ''''''''''''''''
  8.     MsgBox "Ok"
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 35# c_c_lai
·PÁ¤j¤jªº¦^´_¡A§ÚÀ´¤F¡A­ì¨Ó®t²§´N¦b«e­±ªÅ®æªº±Æ¦C¶¶§Ç¤F¡A¤£¥J²Ó¬Ý¯uªº¬Ý¤£¥X¨Ó^^
¥t¥~·PÁÂGBKEEª©¤jªº¥Î¤ß¦^´_ÁÂÁÂ^^

TOP

¦^´_ 36# GBKEE
ª©¤j¡A§Ú±N§Aªºµ{¦¡¡A§ï¦¨¦U©u°]³ø¾î©ñ¡A¦ý­n¦p¦ó½Æ»s¦U©u°]³ø¨ì¨ä¥L¤u§@­¶®É¡A¥i¥H"«ü©w"Àx¦s®æ¦s©ñ
¤ñ¦p²Ä¤@©u°]³ø½Æ»s¨ä¥L¤u§@ªí¨ìa¨ìdÄæ¡A²Ä¤G©u½Æ»s¨ìgÄæ¨ìjÄæ¦s©ñ      -----(   ±Ä©T©w4Ä檺®æ¦¡¦s©ñ)
§Ú¥»¨Ó·Q»¡¥ÎIF¶]°j°éªºµ{¦¡¦pŪ¨ú¨ì²Ä¤@¦C¦³"·|­p¶µ¥Ø"®É¡A«h¿ï¨ú²Ä1¨ì²Ä4Äæ½Æ»s¨ì¨ä¥¦¤u§@ªíªº«ü©w¦ì¸m
Ū¨ú¨ì²Ä¤G­Ó"·|­p¶µ¥Ø"®É¡A½Æ»s¨ì¤Uªº­Ó«ü©wªº¤u§@ªí¤W...
¤£¹L¹ï·s¤âªº§Ú¨Ó»¡ÁÙ¬O«ÜÃø°µ¨ì¡A¦A·Ð½Ðª©¤j½ç±Ð¤F¡AÁÂÁÂ^^

Dim URL As String, xCo_Id As String, x As Integer, Rng As Range
    Dim E As Variant, xSyear As Integer, xSseason As Integer, D_Name As String
    Dim Ia As Integer
    With ActiveSheet
        For Each E In .QueryTables 'WEB¬d¸ßª«¥ó¶°¦X
            E.Delete
        Next
        For Each E In .Names       'Name ª«¥óªº¶°¦X
            .Names(E.Name).Delete
        Next
        .UsedRange.Clear
        Set Rng = .Range("a1") '«ü©w¤u§@ªí¤W WEB¬d¸ßªº¦ì¸m
    End With
    xCo_Id = Application.InputBox("½Ð¿é¤JªÑ²¼¥N¸¹", , 2303)         '¹w³]¬° 2303
    x = Year(Date) - 1910                  '¤¤µØ¥Á°êªº¦~«×
    For xSyear = x To x - 3 Step -1        '°j°é:¦~«×    '105->102
    'For xSyear = X - 3 To X               '°j°é:¦~«×    '102->105
        For xSseason = 4 To 1 Step -1 '             '°j°é:©u§O    '1,2,3,4
            URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
            With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Rng)
                .Name = xCo_Id & "_" & xSyear & "_²Ä" & xSseason & "©u" 'WEB¬d¸ßªº¦WºÙ
                .AdjustColumnWidth = True                  '¦Û°Ê½Õ¾ãÄæ¼e
                .WebSelectionType = xlSpecifiedTables
                .WebFormatting = xlWebFormattingNone
                .WebTables = "2,3,4"                  '¸ê²£­t¶Åªí,ºî¦X·l¯qªí,²{ª÷¬y¶qªí
                .WebPreFormattedTextToColumns = True
                .WebConsecutiveDelimitersAsOne = True
                .WebSingleBlockTextImport = False
                .WebDisableDateRecognition = False
                .WebDisableRedirections = False
                .Refresh BackgroundQuery:=False
                If .ResultRange.Rows.Count = 2 Then 'µL¸ê®Æ
                    D_Name = .Name                  'WEB¬d¸ßªº¦WºÙ
                    .Delete                         '§R°£:WEB¬d¸ß
                    With Rng.Parent
                        For Each E In .Names
                            If InStr(E.Name, D_Name) Then E.Delete '§R°£:¤u§@ªí¤Wªº¦WºÙ->WEB¬d¸ßªº¦WºÙ
                        Next
                    End With
                Else
                    With .ResultRange      'WEB¬d¸ß¸ê®Æªº½d³ò
                        Set Rng = .Cells(1, .Columns.Count + 2) '¤U¤@WEB¬d¸ßªº¦ì¸m
                    End With
                End If
            End With
        Next
    Next
   
Dim Ba As Integer                                '¦]Ū¨ú¨ìÁÙ¥¼µo§Gªº°]³ø¡A·|¯dªÅ¥ÕÄæ
                                                 '§PÂ_«e50Äæ¬O§_¦³ªÅ¥ÕÄæ¡A¦³«h§R°£
For Ba = 1 To 50
   If Range("A" & Ba).Value = "" Then
      Selection.EntireColumn.Delete
      Else
   End If
Next
   
End Sub

TOP

¦^´_ 38# chang0833
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim URL As String, xCo_Id As String, X As Integer
  4.     Dim xSyear As Integer, xSseason As Integer, Ar(1 To 4)
  5.     Dim Sh(1 To 2) As Worksheet, AY, Rng As Range, E As Variant
  6.     Dim Wb As Workbook
  7.     For X = 0 To 3
  8.         Ar(X + 1) = 1 + (6 * X)  '²Ä¤@©u¨ì²Ä¥|©uªºÄæ¦ì
  9.     Next
  10.     xCo_Id = Application.InputBox("½Ð¿é¤JªÑ²¼¥N¸¹", , 2303)         '¹w³]¬° 2303
  11.     X = Year(Date) - 1910                 '¤¤µØ¥Á°êªº¦~«×
  12.     Application.ScreenUpdating = False
  13.     Set Wb = Workbooks("book1.xls")           '«ü©w¬¡­¶Ã¯
  14.     With Wb
  15.         Set Sh(1) = .Sheets.Add               '·s¼W¤u§@ªí: ½Æ»s©u°]³ø¨ì«ü©w¤u§@­¶
  16.         Set Sh(2) = .Sheets.Add               '·s¼W¤u§@ªí:  WEB¬d¸ß¥Î
  17.     End With
  18.     On Error GoTo Er                        '³B²zµ{¦¡¤Wªº¿ù»~
  19.     Sh(1).Name = xCo_Id & "©u³øªí"          '³o¦WºÙ¤u§@ªí¦p¤w¦s¦bµ{¦¡·|¦³¿ù»~
  20.     On Error GoTo 0                         '¤£¦b³B²zµ{¦¡¤Wªº¿ù»~
  21.    
  22.     For xSyear = X To X - 3 Step -1        '°j°é:¦~«×    '105->102
  23.     'For xSyear = X - 3 To X               '°j°é:¦~«×    '102->105
  24.         For xSseason = 1 To 4 '             '°j°é:©u§O    '1,2,3,4
  25.             URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
  26.             With Sh(2).QueryTables.Add(Connection:=URL, Destination:=Sh(2).[A1])
  27.                 .Name = xCo_Id & "_" & xSyear & "_²Ä" & xSseason & "©u" 'WEB¬d¸ßªº¦WºÙ
  28.                 .AdjustColumnWidth = True                  '¦Û°Ê½Õ¾ãÄæ¼e
  29.                 .WebSelectionType = xlSpecifiedTables
  30.                 .WebFormatting = xlWebFormattingNone
  31.                 .WebTables = "2,3,4"                  '¸ê²£­t¶Åªí,ºî¦X·l¯qªí,²{ª÷¬y¶qªí
  32.                 .WebPreFormattedTextToColumns = True
  33.                 .WebConsecutiveDelimitersAsOne = True
  34.                 .WebSingleBlockTextImport = False
  35.                 .WebDisableDateRecognition = False
  36.                 .WebDisableRedirections = False
  37.                 .Refresh BackgroundQuery:=False
  38.                 If .ResultRange.Rows.Count > 2 Then '¦³¸ê®Æ
  39.                     Set Rng = Sh(1).Cells(1, Ar(xSseason)).Cells(Rows.Count).End(xlUp)
  40.                     If Rng.Row > 1 Then Set Rng = Rng.Offset(2)
  41.                     .ResultRange.Copy Rng
  42.                 Else
  43.                     .Delete
  44.                 End If
  45.                
  46.             End With
  47.         Next
  48.     Next
  49.     Application.DisplayAlerts = False
  50.     Sh(2).Delete
  51.     Application.DisplayAlerts = True
  52.     Application.ScreenUpdating = True
  53.     Sh(1).Parent.Save
  54.     MsgBox "Ok"
  55.     Exit Sub
  56. Er:     '³B²z xCo_Id &©u³øªí ¤u§@ªí¤w¦s¦b
  57.     Application.DisplayAlerts = False
  58.     Sheets(xCo_Id & "©u³øªí").Delete
  59.     Application.DisplayAlerts = True
  60.    Resume Next  '¦^¨ì¿ù»~ªºµ{¦¡½X
  61. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 39# GBKEE


    ·PÁª©¤jªº¼ö¤ß¦^´_^^
    ª©¤j³o¦¸¼gªºµ{¦¡¡A¹ï·s¤âªº§Ú¦³ÂI....§xÃø
    §Ú¸ÕµÛ¶]µ{¦¡....¦ý¶]¥X"°}¦C¯Á¤Þ¶W¥X½d³ò"...³o¬O¤°»ò±¡§Î

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD