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

[µo°Ý] ¦p¦ó§ä¥Xºô¯¸­ì©lÀɺô§}

¦^´_ 10# blue2263
°Ñ¦Ò³o¸Ì
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁÂG¤j,´£¨Ñ¸ô®|,§Ú§ä¨ì­ì©lÀɺô§}¦ì¸m

TOP

¥i§_½ÐG¤jÀ°§Ú¬Ý¤@¤U,¥H¤Uµ{¦¡½X,§Ú³v¨B°õ¦æ(F8)¨S°ÝÃD,¦ý¬O§ï¥Î°õ¦æ¥¨¶°®É,³£·|°±¦b
(Sheets("¶×Á`").Select )¥X²{µ{¦¡½Xªº°õ¦æ¤v³Q¤¤Â_¿ù»~°T®§,¤£ª¾¨º­Ó¦a¤è¦³°ÝÃD

Sub Macro()
'
' Macro Macro
' ³øªí¾ã¦X
'

'
  Application.ScreenUpdating = False 'Åýµøµ¡¤£¸òÀH§ó·sÅÜ°Ê
  If ActiveCell.Value <> Empty Then
      Application.CutCopyMode = False
    Selection.Copy
   
                Sheets("­ì©lªí").Select
                Range("B2").Select

                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False '¶K¤W
                    
                    On Error GoTo 101 '   '·s¼W±ø¥ó¶}©l101
                Sheets("­ì©lªí").Range("E7").QueryTable.Refresh BackgroundQuery:=False
                Sheets("¶×Á`").Select
                Range("A2:K21").Select
                Selection.Copy
                Range("A1").Select
                Selection.End(xlDown).Select '¨ì³Ì©³¸ê®Æ¦C
                ActiveCell.Offset(1, 0).Range("A1").Select '¤U¤@¦C
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False '¶K¤W­È
                     
101
                Sheets("¥¨¶°¤u§@ªí").Select
                ActiveCell.Offset(1, 0).Range("A1").Select
   Call Macro
      End If
       End Sub

TOP

¥»©«³Ì«á¥Ñ blue2263 ©ó 2014-1-2 07:57 ½s¿è

G¤j§A¦n
§Ú«á¨Ó±Nµ{¦¡½X°µ¤F¤U¦Cªº§ó§ï,´N¥i°õ¦æ¨S°ÝÃD¤F
  (Application.ScreenUpdating = False 'Åýµøµ¡¤£¸òÀH§ó·sÅÜ°Ê)   ¥h°£¦¹¦æ
  Application.Wait (Now + TimeValue("0:00:001"))     '·s¼W¦¹¦æ
   Sheets("¶×Á`").Select

¦ý¬O¬°¤F°õ¦æ¤W§ó§Ö³t
§Ú±N(Åýµøµ¡¤£¸òÀH§ó·sÅÜ°Ê),¦¹¦æµ{¦¡½X¥[¤J®É,¤]¤@¼Ë·|¦³¿ù»~
½Ð±Ðµ{¦¡½X­n¦p¦ó§ó¤ñ¸û¦n?
³Â·Ð§A¤F·P®¦ÁÂÁÂ

TOP

¦^´_ 14# blue2263
§Ú±N(Åýµøµ¡¤£¸òÀH§ó·sÅÜ°Ê),¦¹¦æµ{¦¡½X¥[¤J®É,¤]¤@¼Ë·|¦³¿ù»~

§A¨SªþÀÉ,²ö®_¦Ï.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

DªÑÅv¤À´².rar (788.42 KB)
½Ðg¤j¬d¦¬¹ÏÀÉ,·P®¦ÁÂÁÂ

TOP

¦^´_ 16# blue2263
  1. Sub Macro()
  2.     Application.ScreenUpdating = False 'Åýµøµ¡¤£¸òÀH§ó·sÅÜ°Ê
  3.     If ActiveCell.Value <> Empty Then
  4.         Application.CutCopyMode = False
  5.         Selection.Copy
  6.         Sheets("­ì©lªí").Select
  7.         Range("B2").Select
  8.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  9.             :=False, Transpose:=False '¶K¤W
  10.         On Error GoTo 101 '   '·s¼W±ø¥ó¶}©l101
  11.         '*********************************************************************
  12.         'ActiveCell.ValueÀ³¬O³oSheets("­ì©lªí").Range("E7")QueryTableªºªÑ²¼¥N¸¹
  13.         '¦ýSheets("¥¨¶°¤u§@ªí").Select
  14.         'ActiveCell.Offset(1, 0).Range("A1").Select <-¨S¦³ªÑ²¼¥N¸¹
  15.         'Webªº§ó·s·|¿ù»~ ¤@ª½ªº GoTo 101
  16.         Sheets("­ì©lªí").Range("E7").QueryTable.Refresh BackgroundQuery:=True
  17.         '*********************************************************************
  18.         'Application.Wait (Now + TimeValue("0:00:02"))
  19.         Sheets("¶×Á`").Select
  20.         Range("A2:K21").Select
  21.         Selection.Copy
  22.         Range("A1").Select
  23.         Selection.End(xlDown).Select '¨ì³Ì©³¸ê®Æ¦C
  24.         ActiveCell.Offset(1, 0).Range("A1").Select '¤U¤@¦C
  25.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  26.                     :=False, Transpose:=False '¶K¤W­È
  27. 101
  28.         Sheets("¥N½X").Select   '­×§ï³o¸Ì¸Õ¸Õ¬Ý
  29.         'Sheets("¥¨¶°¤u§@ªí").Select
  30.         ActiveCell.Offset(1, 0).Range("A1").Select
  31.         Call Macro
  32.     End If
  33. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

g¤j§A¦n,
¬O±N'Sheets("¥¨¶°¤u§@ªí").Select
§ï¬°Sheets("¥N½X").Select ¶Ü?
§Ú¥¨¶°¶}©l°õ¦æ,¬O¥Ñ(¥¨¶°¤u§@ªí)¶}©lªº,
§ï¬°¥Ñ¥N½X¶}©l°õ¦æ¤@¼Ë·|¦³,·í±¼µL¦^À³ªº°ÝÃD
¤£¦n·N«äÁٽЦAÀ°§Ú¬Ý¤@¤UÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-1-4 08:57 ½s¿è

¦^´_ 18# blue2263
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range
  4.     On Error Resume Next  '°õ¦æµ{¦¡½X¦p¦³¿ù»~Ä~Äò°õ¦æ¤U¤@­Óµ{¦¡½X: ªÑ²¼Web¦³¿ù»~®É
  5.     With Sheets("¥¨¶°¤u§@ªí")
  6.         Set Rng(1) = .Range("B2")
  7.         .Activate
  8.     End With
  9.     'Sheets("¶×Á`").UsedRange.Offset(1).Clear   '¥Î¦¹µ{¦¡½X" ¦p»Ý²M°£Â¦³¸ê®Æ
  10.     Do While Rng(1) <> ""
  11.         Rng(1).Activate
  12.         With Sheets("­ì©lªí")
  13.             .Range("B2") = Rng(1)
  14.             .Range("E7").QueryTable.Refresh BackgroundQuery:=False
  15.             Set Rng(2) = .Range("A10:K29")   '§A­nªº­ì©l¸ê®Æ            
  16.         End With
  17.         If Err = 0 Then
  18.             Application.StatusBar = Rng(1) & " ¶×¤J¤¤"
  19.             With Sheets("¶×Á`").Range("A1").End(xlDown).Offset(1)  
  20.                 .Range("A1:K20").Value = Sheets("¶×Á`").Range("A2:K21").Value
  21.                 Rng(1).Parent.Hyperlinks.Add Anchor:=Rng(1).Offset(, 2), Address:="", SubAddress:=.Address(, , , 1), TextToDisplay:=.Parent.Name & "!" & .Address(0, 0)
  22.                 '­«·s³]©w¶W³sµ²
  23.             End With
  24.             
  25.             '************'¥Î¦¹µ{¦¡½X:°t¦X»Ý²M°£Â¦³¸ê®Æ ******************************
  26.             'With Sheets("¶×Á`").Range("A" & Sheets("¶×Á`").Rows.Count).End(xlUp).Offset(1)
  27.             '   .Resize(Rng(2).Rows.Count, Rng(2).Columns.Count) = Rng(2).Value
  28.             '    Rng(1).Parent.Hyperlinks.Add Anchor:=Rng(1).Offset(, 2), Address:="", SubAddress:=.Address(, , , 1), TextToDisplay:=.Parent.Name & "!" & .Address(0, 0)
  29.             'End With
  30.             '********************************************
  31.             
  32.         Else
  33.             With Rng(1).Offset(, 2)
  34.                 .Hyperlinks.Delete  'ªÑ²¼Web¿ù»~:§R°£¶W³sµ²
  35.                 .Value = ""
  36.             End With
  37.             Err.Clear
  38.         End If
  39.         Set Rng(1) = Rng(1).Offset(1)
  40.     Loop
  41.     Application.StatusBar = " ¤u§@ §¹¦¨ !!"
  42. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ blue2263 ©ó 2014-1-4 13:12 ½s¿è

·PÁÂG¤jªº¼ö¤ßÀ°¦£
G¤j§Úµo²{¦³­Ó©_©Ç²{¶H,
·í§Ú¦b°õ¦æ¥¨¶°·í¤¤¦pªG·Q­n,¼È°±¥¨¶°,«ö¤U²ÕÁäCTRL+ESC+PAUSE,°±¤î¥¨¶°«á,->µM«á¦A¦¸°õ¦æ¥¨¶°·|Åܦ¨µLªk¦Û°Ê°õ¦æ¥¨¶°,
³£·|°õ¦æ¤@¤U«á¤¤Â_,µM«á¥X²{,(µ{¦¡½Xªº°õ¦æ¤v³Q¤¤Â_),¥²¶·­«¶}¹q¸£,³o²{¶H¤~·|®ø°£
¥H¤W´ú¸Õ¥ÎG¤jªºµ{¦¡½X©Î¦Û¤vªº³£·|¬O¬Û¦P±¡ªp,

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD