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

[µo°Ý] ¥i§_¥Î°j°é©ÎÅܼƶפJ¤j¶q¸ê®Æ¡H

¦^´_ 19# smart3135
§A¥Îªº¬O https://djinfo.cathaysec.com.tw/z/zc/zcq/zcqa/zcqa.djhtm
¥i­×§ï¦p¤U
  1. End With
  2.                
  3.                 If InStr(.[A3], "¬dµL") And Msg = True Then GoTo xlNext
  4.                 If InStr(.[A3], "¬dµL") Then Msg = True: GoTo ER
  5.                 If InStr(.[A3], "­ÓªÑ¥N½X¿ù»~") = False Then '³oºô­¶¦pªÑ²¼¥N½X¿ù»~·|¶Ç¦^­t¸¹.
  6.                     xFile = xPath & "\" & E & "\IS.txt"
  7.                     MkDir_Sub xFile       '10#ªºµ{¦¡ 'C¼Ñ¤Uªº©u·l¯qªí¸ê®Æ§¨¤£»Ý¥ý«Ø¥ß
  8.                     Maketxt xFile, .QueryTables(1)
  9.                 End If
  10. xlNext:
  11.                 Msg = False
  12.             Next
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ smart3135 ©ó 2014-4-25 10:46 ½s¿è

¦^´_ 21# GBKEE

1420¤ëÀ禬




GBKEEª©¥D±z¦n¡A½Ð¨£¥H¤W³sµ²¡A¥Ø«e¤wµL1420³o¤ä­ÓªÑ¡A¦]¬°1420¼í®õ¯¼Â´¤w¨Ö¤J2915¼í®õ¥þ¡A¦ý¸Óºô¯¸¤´±N1420ª½±µÅã¥Ü2915¼í®õ¥þªº¦X¨Ö¤ë㪦¬
¦bVBA¦bÂ^¨ú¦X¨Ö¤ëÀ禬®É¤´·|Â^¨ú¨ì¸ê®Æ¡A§Ú¸Õ¤F«Ü¤[¡Atry¤F«Ü¦h±ø¥ó¤´µLªkÁקK¡A¤£ª¾¯à§_§Q¥ÎVBA¼g¥XÃþ¦ü¹³±z¦b21#¦^ÂЪºµ{¦¡½XÁקKÂ^¨ú¨ì³oºØ¤wµL­ÓªÑ¥N¸¹ªº¸ê®Æ©O¡HÁÂÁ¡I
1420.jpg
2014-4-25 10:43

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-25 12:47 ½s¿è

¦^´_ 22# smart3135
  1. End With               
  2.                 If E = 1420 Then GoTo xlNext   '¥[¤W¸Õ¸Õ¬Ý
  3.             'If InStr(.[A3], "¬dµL") And Msg = True Or E = 1420 Then GoTo xlNext  '©ÎªÌ¥i³o¼Ë¼g
  4.             If InStr(.[A3], "¬dµL") Then Msg = True: GoTo ER
  5.                 If InStr(.[A3], "­ÓªÑ¥N½X¿ù»~") = False Then '³oºô­¶¦pªÑ²¼¥N½X¿ù»~·|¶Ç¦^­t¸¹.
  6.                     xFile = XPath & "\" & E & "\IS.txt"
  7.                     MkDir_Sub xFile       '10#ªºµ{¦¡ 'C¼Ñ¤Uªº©u·l¯qªí¸ê®Æ§¨¤£»Ý¥ý«Ø¥ß
  8.                     Maketxt xFile, .QueryTables(1)
  9.                 End If
  10. xlNext:
  11.                 Msg = False
  12.             Next
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 23# GBKEE
GBKEEª©¥D±z¦n¡A±N±zªºµ{¦¡½X®M¤J¤§«á¬O¥i¥H±N1420¸õ¹L¤£§ì¸ê®Æ¤F¡A¤£¹L¦]¬°1420¤]¬O¦b°j°éÅܼÆEªº¨ä¤¤¤@½X¡A¬O¤£¬OµLªk¥Î°j°é¤è¦¡¥hÁקK§ì¨ú¸ê®Æ
¥u¯à¤@­Ó¤@­Ó¹³³o¼Ë[If E = 1420 Then GoTo xlNext]³]©wÅý¥¦¸õ¹L©O¡H¦]¬°¹³³oºØªÑ²¼ÁÙ¯u¤£¤Ö¡A­n¤@­Ó¤@­Ó§ä¥X¨Ó¥i¯à­nªá¨Ç¥\¤Ò
¥t¥~¹³³o¬q[If InStr(.[A3], "¬dµL") And Msg = True Or E = 2149 Then GoTo xlNext]·í¤¤ªº2149¬O¥Nªí¤°»ò©O¡H§Ú§âOr E = 2149®³±¼¦ü¥G¤£¼vÅTÂ^¨ú¸ê®Æ
³o­Óºô¯¸ªº¸ê®Æ¥X²{"¬dµL"¬O¦bA2Àx¦s®æ¡A©Ò¥H§Ú§âA3§ï¦¨A2¡Aªþ¤Wµ{¦¡½X¡AÁÂÁ¡I
  1. Option Explicit
  2. Sub §ì©u¤ëÀ禬¸ê®Æ()
  3.     Dim E As Integer, URL As String, xPath As String, xFile As String
  4.     Dim Msg As Boolean
  5.     URL = "URL;https://djinfo.cathaysec.com.tw/Z/ZC/ZCH/ZCH.DJHTM?A="
  6.     xPath = "G:\°]³ø¸ê®Æ"
  7.     With ThisWorkbook
  8.         With .Sheets(1)      '¬¡­¶Ã¯ªº²Ä 1 ±i¤u§@ªí
  9.             If .QueryTables.Count = 0 Then
  10.                 With .QueryTables.Add(Connection:=URL, Destination:=.Range("$A$1"))
  11.                     .Refresh BackgroundQuery:=False
  12.                 End With
  13.             End If
  14.                 Rows(1).Delete
  15.                 Columns(1).Delete
  16.             For E = 1101 To 3000
  17. ER:
  18.                 With .QueryTables(1)
  19.                     .Connection = URL & E
  20.                     .PreserveFormatting = True
  21.                     .BackgroundQuery = True
  22.                     .RefreshStyle = xlInsertDeleteCells
  23.                     .SaveData = True
  24.                     .AdjustColumnWidth = True
  25.                     .RefreshPeriod = 0
  26.                     .WebSelectionType = xlSpecifiedTables
  27.                     .WebFormatting = xlWebFormattingNone
  28.                     .WebTables = "3"
  29.                     .WebPreFormattedTextToColumns = True
  30.                     .WebConsecutiveDelimitersAsOne = True
  31.                     .Refresh BackgroundQuery:=False
  32.                 End With
  33.                 If E = 1420 Then GoTo xlNext   '¥[¤W¸Õ¸Õ¬Ý
  34.                 If InStr(.[A2], "¬dµL") And Msg = True Then GoTo xlNext
  35.                 If InStr(.[A2], "¬dµL") Then Msg = True: GoTo ER
  36.                 If InStr(.[A3], "­ÓªÑ¥N½X¿ù»~") = False Then '³oºô­¶¦pªÑ²¼¥N½X¿ù»~·|¶Ç¦^­t¸¹.
  37.                      xFile = xPath & "\" & E & "\REVENUE.txt"
  38.                     MkDir_Sub xFile       '10#ªºµ{¦¡ 'C¼Ñ¤Uªº©u·l¯qªí¸ê®Æ§¨¤£»Ý¥ý«Ø¥ß
  39.                     Maketxt xFile, .QueryTables(1)
  40.                 End If
  41. xlNext:
  42.              Msg = False
  43.             Next
  44.         End With
  45.     End With
  46. End Sub
½Æ»s¥N½X

TOP

¦^´_ 24# smart3135
1420 key¿ù¦¨ 2149 ¥i²¤Æ¤£»Ý If E = 1420 Then GoTo xlNext
  1. Rows(1).Delete
  2.                 Columns(1).Delete
  3.             AR = Array(1420, 1580, 2000)  '§A¬O­n¤@­Ó¤@­Ó§ä¥Xªº
  4.             For E = 1101 To 3000
  5.                 X = Application.Match(E, AR, 0)
  6.                 If IsNumeric(X) Then GoTo xlNext  'ª½±µ¨ì xlNext¦æ
  7.                                                  ' 'If E = 1420 Then GoTo xlNext   '¤£»Ý­n
  8. ER:
  9.                 With .QueryTables(1)
  10.                
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 25# GBKEE
·PÁª©¥Dªº¦^ÂСA¬Ý¨Ó§Ú¥u¯à¤@­Ó¤@­Ó§â¦³°ÝÃDªº§ä¥X¨Ó¤F¡A¤£¹L·Ó±z25#¦^ÂЪºµ{¦¡½X¡A¥i¥H²¤Æ¤@¨Ç¡A·PÁÂÀ°¦£
¥t¥~§Úµo²{³o­ÓÂ^¨ú¸ê®ÆªºVBA³Ìªá®É¶¡ªº¦a¤è´N¬O¦b±NEXCEL¸ê®Æ¤@¦C¤@¦C¶×¤J¨ìtxt¡A¤§«e¦³¦V±z´£¤Î§Ú­n¦Û¤vtry¬Ý¬Ý¯à¤£¯à¥Î¤@¦¸¶K¤Wªº¤è¦¡
¦ýtry¤F«Ü¦h¦¸¤´¬OµLªk¹F¦¨¡A¥D­n¦b©ó¹ïµ{¦¡½X¸û¤£¤F¸Ñ¡A¤ñ¸û¤£²M·¡«ç»ò°µÅܤơA¦]¬°¶×¤Jªº¸ê®Æ­n±q1101~9962¡A¸ê®ÆÆZÃe¤jªº¡A­Y¶]§¹¾ã­ÓVBA
¤j¬ù­n¯Ó®É40¤ÀÄÁ¥H¤W¡A©Ò¥H¤~§Æ±æ¯à°÷Åýµ{¦¡ªº°Ê§@¦A²¤Æ¤@¨Ç¡A³oÀ³¸Ó¬O³Ì«á¤@¦¸»Ý­n°µ­×¥¿¤F¡A¦pªG¥i¥Hªº¸Ü¦A½Ðª©¥D¦h«üÂI¤@¤UÅo¡I¸U¤À·PÁ¡I
ªþ¤W±z¥ý«e´£¨Ñªºµ{¦¡½X
  1. Sub Maketxt(xF As String, Q As QueryTable)   '±N¶×¤J¸ê®Æ¦s¤J«ü©wªºtxt
  2.     Dim fs As Object, E As Range, C As Variant
  3.     Set fs = CreateObject("Scripting.FileSystemObject")
  4.     Set fs = fs.CreateTextFile(xF, True)  '³Ð¨£¤@­ÓÀÉ®×,¦pÀɮצs¦b¥iÂл\±¼
  5.     For Each E In Q.ResultRange.Rows
  6.         C = Application.Transpose(Application.Transpose(E.Value))
  7.         C = Join(C, vbTab)
  8.         fs.WriteLine C
  9.     Next
  10.     fs.Close
  11. End Sub
½Æ»s¥N½X
¥t¥~25#¤¤ªºAR¤ÎX¥¼©w¸q¡A§Úª½±µ±N¨â­Ó³£©w¸q¦¨Variant¡A´N¥i¥H¶¶§Q°õ¦æµ{¦¡¤F

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-26 15:42 ½s¿è

¦^´_ 26# smart3135
¤j¬ù­n¯Ó®É40¤ÀÄÁ¥H¤W,¬O¦³ÂI¤[,¹q¸£­n´îªÎ¤F
«Øij´îªÎ¤è¦¡¦p¤U
1±N¤U­±¤å¦r½Æ»s¨ì°O¨Æ¥»  ¦sÀɬ°ªþÀɦW ".BAT",¶Ç°e¨ì®à­±¤W ,¤£©w®Éªº²M²z©U§£ÀÉ®×
2¤£©w®Éªº²MªÅ¸ê·½¦^¦¬µ©
3 ¤£©w®É²MªÅIEªºÂsÄý°O¿ý
4 ©w®Éªº²M²zºÏºÐ
5ÂX¥R°O¾ÐÅé

4203¤Ñ¤¯(«á§ì¨ú)¬O¿ù»~ªºªÑ²¼¸¹½X,³o¨ÇªÑ²¼¦WºÙ(¥N¸¹) ³sÄò¤@°_¿é¤J¦bSheets(2)ªºAÄæ
  1. Option Explicit
  2. Sub §ì©u¤ëÀ禬¸ê®Æ()
  3.     Dim E As Integer, URL As String, xPath As String, xFile As String
  4.     Dim i As Integer, ii As Integer, Rng As Range, S1 As String, S2 As String, t As Date
  5.     Dim AR()
  6.     t = Time
  7.     AR = Array(4203) '¿é¤J 4203¤Ñ¤¯(«á§ì¨ú)¬O¿ù»~ªºªÑ²¼¸¹½X
  8.     URL = "URL;https://djinfo.cathaysec.com.tw/Z/ZC/ZCH/ZCH.DJHTM?A="
  9.     xPath = "D:\°]³ø¸ê®Æ"
  10.     With ThisWorkbook
  11.         .Sheets(2).UsedRange.Offset(, 1).Clear
  12.         '4203¤Ñ¤¯(«á§ì¨ú)¬O¿ù»~ªºªÑ²¼¸¹½X ³o¨Ç ªÑ²¼¦WºÙ(¥N¸¹) ³sÄò¤@°_¿é¤J¦bSheets(2)ªºAÄæ
  13.         Set Rng = .Sheets(2).Range("A:A").SpecialCells(xlCellTypeConstants)
  14.         If Rng Is Nothing Then
  15.             AR = Array()
  16.         ElseIf Rng.Count = 1 Then
  17.             AR = Array(Rng.Value)
  18.         Else
  19.             AR = Application.Transpose(Application.Transpose(Rng))
  20.         End If        '***************************************************
  21.         Application.ScreenUpdating = False
  22.         Application.StatusBar = " "
  23.         With .Sheets(1)      '¬¡­¶Ã¯ªº²Ä 1 ±i¤u§@ªí
  24.             If .QueryTables.Count = 0 Then
  25.                 With .QueryTables.Add(Connection:=URL, Destination:=.Range("$A$1"))
  26.                     .Refresh BackgroundQuery:=False
  27.                 End With
  28.             End If
  29.                 .Rows(1).Delete
  30.                 .Columns(1).Delete
  31.             For E = 1101 To 5000
  32.                 With .QueryTables(1)
  33.                     .Connection = URL & E
  34.                     .PreserveFormatting = True
  35.                     .BackgroundQuery = True
  36.                     .RefreshStyle = xlInsertDeleteCells
  37.                     .SaveData = True
  38.                     .AdjustColumnWidth = True
  39.                     .RefreshPeriod = 0
  40.                     .WebSelectionType = xlSpecifiedTables
  41.                     .WebFormatting = xlWebFormattingNone
  42.                     .WebTables = "3"
  43.                     .WebPreFormattedTextToColumns = True
  44.                     .WebConsecutiveDelimitersAsOne = True
  45.                     .Refresh BackgroundQuery:=False
  46.                     If .ResultRange(1) < 0 Or InStr(.ResultRange(2, 1), "¬dµL") Then GoTo xLnext
  47.                     '¶×¤J¸ê®Æªº A1 < 0  OR  ¶×¤J¸ê®Æªº A2 "¬dµL"
  48.                     S1 = .ResultRange(1)
  49.                     S2 = Mid(S1, 1, InStr(S1, "(") - 1) 'ªÑ²¼¦WºÙ
  50.                 End With
  51.                 With ThisWorkbook.Sheets(2).Range("B:B")
  52.                     Set Rng = .Find(S2, lookat:=xlPart) '·j´M:ªÑ²¼¦WºÙ
  53.                     If Rng Is Nothing Then
  54.                         i = i + 1
  55.                         .Range("A" & i) = S1  'ªÑ²¼¦WºÙ¥N½X
  56.                     Else
  57.                         Rng.Cells(1, 2) = S1   '­«½ÆªºªÑ²¼
  58.                         If UBound(Filter(AR, E)) > -1 And UBound(AR) > -1 Then
  59.                         'Filter(AR, E) > -1   '¤ñ¹ï¨ì¦p4203¤Ñ¤¯(«á§ì¨ú)¬O¿ù»~
  60.                             Rng.Cells(1, 2) = Rng.Cells(1, 2) & "***" '«á§ì¨ú¬O¿ù»~
  61.                             GoTo xLnext:
  62.                         End If
  63.                         S2 = Mid(Trim(Rng), InStr(Trim(Rng), "(") + 1)
  64.                         S2 = Mid(S2, 1, Len(S2) - 1)    'ªºªÑ²¼[¥N½X]
  65.                         xFile = xPath & "\" & S2 & "\*.*" '±þ±¼©Ò¦³ÀÉ®×
  66.                         If Dir(xFile) <> "" Then
  67.                             ii = ii - 1
  68.                             Kill xFile
  69.                             xFile = xPath & "\" & S2
  70.                             If Dir(xFile, vbDirectory) <> "" Then RmDir xFile '¸ê®Æ§¨¤]§R°£¤F
  71.                         End If
  72.                     End If
  73.                 End With
  74.                 ii = ii + 1
  75.                 xFile = xPath & "\" & E & "\REVENUE.txt"
  76.                 MkDir_Sub xFile
  77.                 Maketxt xFile, .QueryTables(1)
  78. xLnext:
  79.                 S1 = " " & Sheets(1).QueryTables(1).ResultRange(1)
  80.                 If Val(S1) < 0 Then S1 = " ¬dµL"
  81.                 Application.StatusBar = Application.Text(Time - t, ["MM¤ÀSS¬í"]) & "  " & E & S1
  82.             Next
  83.         End With
  84.     End With
  85.     Application.ScreenUpdating = True
  86.     Application.StatusBar = Application.Text(Time - t, ["MM¤ÀSS¬í"]) & " Ok "
  87.     MsgBox "¶×¤J ¤å¦rÀÉ" & ii & " ¶O®É " & Application.Text(Time - t, ["MM¤ÀSS¬í"])
  88. End Sub
  89. Private Sub Maketxt(xF As String, Q As QueryTable)   '±N¶×¤J¸ê®Æ¦s¤J«ü©wªºtxt
  90.     Dim fs As Object, E As Range, C As Variant
  91.     Set fs = CreateObject("Scripting.FileSystemObject")
  92.     Set fs = fs.CreateTextFile(xF, True)  '³Ð¨£¤@­ÓÀÉ®×,¦pÀɮצs¦b¥iÂл\±¼
  93.     For Each E In Q.ResultRange.Rows
  94.         C = Application.Transpose(Application.Transpose(E.Value))
  95.         C = Join(C, vbTab)
  96.         fs.WriteLine C
  97.     Next
  98.     fs.Close
  99. End Sub
½Æ»s¥N½X
EX.JPG
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 27# GBKEE
GBKEEª©¥D±z¦n¡A¤µ¦­¤U¯Z«á´N¶}©l¦bTry±z¦b27#¦^ÂЪºµ{¦¡½X¡Aµ²ªGªº½T·|±N¤@¨Ç­«ÂЪº­ÓªÑtxt§R°£¡A¦ý¤£ª¾¦³¨S¦³¿ìªk±N¤@°_«Ø¥ßªº¸ê®Æ§¨¤]§R°£©O¡H
Á|¨Ò¨Ó»¡¡A1202©M2913¨â­Ó³£¬O¹AªL¡A©Ò¥Hµ{¦¡°õ¦æ§¹·|±N1202ªºtxt§R°£¡A¦ý1202ªº¸ê®Æ§¨¤´¬O¦s¦bªº¡A¤£ª¾¨S¦³¨S¿ìªk³s¸ê®Æ§¨¤@°_§R°£©O¡H
¥t¥~ÁÙ¦³¤@­Ó°ÝÃD¡A´N¬O³o­Óµ{¦¡½X«O¯dªº¸ê®Æ³£¬Osheet(2)ªº²Ä¤GÄæ­ÓªÑ¥N¸¹¸ê®Æ¡A­Y§Ú¨S¸ÑŪ¿ù»~ªº¸Ü¡Aµ{¦¡À³¸Ó¬O±N­ÓªÑ¥N½X¬Û¦P¡A¥ý§ì¨úªºtxt§R°£¡A«O¯d«á§ì¨úªºtxt
¦ý´N·|¹J¨ì1233¤Ñ¤¯(¥ý§ì¨ú)¬O¥¿½Tªº¡A4203¤Ñ¤¯(«á§ì¨ú)¬O¿ù»~ªº°ÝÃD¡Aµ²ªG´N¬O¥¿½Tªº1233¤Ñ¤¯txt³Q§R°£¡A³o³¡¤À§Ú·QÀ³¸Ó¤£¤Ó¦n¸Ñ¨M
©Ò¥H¡A¦pªG¥i¥Hªº¸Ü¡A§ÚÁÙ¬O¶É¦V¦b±z24#¦^ÂЪºµ{¦¡½X¡A¥Î¤@­Ó¤@­Ó¬D¥Xªº¤è¦¡¡A³o¨Ç¤£»Ý­nªº¥N¸¹§Ú³£¦³¤F¡A¥u­n¿é¤JAR=Array()¤¤´N¥i¥H¤F¡A¥u¬O§Ú­n¿é¤Jªº¥N¸¹
¤j·§¦³200­Ó¥ª¥k¡A¦pªG¥þ³¡¿é¤J¡A¦pAR=Array(1202,1433,1502,1610.....................)³o¼Ë­n§â200­Ó¥N½X¥þ³¡¿é¤J·|¸õ¨ì²Ä¤G¦æ¡AµM«á´N·|¥X¿ù¡A¤£ª¾¹D¦³¨S¦³¿ìªk
¸Ñ¨M³o­Ó°ÝÃD©O¡H¥ý·PÁ±zªº«ü¾É¡I
¥X¿ù.jpg
2014-4-26 11:22

TOP

¦^´_ 27# GBKEE
ª©¥D¡A¤£¦n·N«ä¡A¦A½Ð±Ð¤@­Ó°ÝÃD¡A²{¦b§Ú­n³]©w°j°é¬°for E = 1101  9962¡A¦ý§Ú¤w¸gª¾¹D¬Y¨Ç¼Æ¦r°Ï¶¡¬O¤£»Ý­n¥hÂ^¨úªº¡A¦pªG·Q¸õ¹L¸Ó¨Ï¥Î«ç¼Ëªº»yªk©O¡H¥ýÁÂÁ±z¡I
¤j·§ªººc·Q¦p¤U:
  1. Dim E As Integer
  2.                          For E = 1101 To 2000
  3.                          IF E = 3800¨ì4100 then goto xlNext '·Q³]©w¬Y­Ó°Ï¶¡,½Ð±Ð»yªk¸Ó«ç»ò³]
  4.                          IF E = 6850¨ì8000 then goto xlNext '·Q³]©w¬Y­Ó°Ï¶¡,½Ð±Ð»yªk¸Ó«ç»ò³]
  5.                          IF E = 8550¨ì9000 then goto xlNext '·Q³]©w¬Y­Ó°Ï¶¡,½Ð±Ð»yªk¸Ó«ç»ò³]
  6.                          IF E = 9000¨ì9800 then goto xlNext '·Q³]©w¬Y­Ó°Ï¶¡,½Ð±Ð»yªk¸Ó«ç»ò³],¦@¥|­Ó°Ï¶¡

  7. xlNext:         
  8.                          next
  9. End sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-26 15:52 ½s¿è

¦^´_ 29# smart3135
1233¤Ñ¤¯(¥ý§ì¨ú)¬O¥¿½Tªº¡A4203¤Ñ¤¯(«á§ì¨ú)¬O¿ù»~ªº°ÝÃD
³o¤@¨Ç¿ù»~ªÑ²¼¦WºÙ(¥N¸¹) ¤Ñ¤¯(4203) ³sÄò¤@°_¿é¤J¦bSheets(2)ªºAÄæ,«áµ{¦¡¥i¸Ñ¨M.

28# ªº©Ò¦³°ÝÃD.27#µ{¦¡½X¤w§ó·s¤F,¥i¦A¬Ý¤@¦¸,´îªÎ¦³¸Õ¤@¤U¶Ü?

¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     Dim E As Integer
  3.     For E = 500 To 5000
  4.         Select Case E
  5.             Case 500 To 1000
  6.                 GoTo xNext
  7.             Case 1500 To 2000
  8.                 GoTo xNext
  9.             Case 2500 To 3000
  10.                 GoTo xNext
  11.         End Select
  12.         MsgBox E
  13. xNext:
  14.     Next
  15. End Sub
  16. Sub Ex1()
  17.     Dim E As Integer
  18.     For E = 500 To 5000
  19.         If E >= 500 And E <= 1000 Or E >= 1500 And E <= 2000 Or E >= 2500 And E <= 3000 Then
  20.                 GoTo xNext
  21.         End If
  22.         MsgBox E
  23. xNext:
  24.     Next
  25. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD