[µo°Ý] ³s±µºô¸ô§ì¨ú¸ê®Æ¶×¤J¤u§@ªí³t«×ºC?¦³µL¿ìªk§ïµ½?

t8899

¦^´_  t8899
GBKEE µoªí©ó 2013-9-3 07:59

¦³µL¿ìªk¤@ª½³B©ó³s½uª¬ºA?(¹³DDE)

GBKEE

¦^´_ 21# t8899

1. Option Explicit
   
2. Private Sub Ex()
   
3.     Dim xlVbTable As Object, Ar, R As Integer, C As Integer, i As Variant, Y As Integer
   
4.     Dim t As Date, Msg As Boolean
   
5.    ' Application.OnTime Time + #12:01:00 AM#, "Ex"   '¤@¤ÀÄÁ«á°õ¦æ Ex µ{¦¡
   
6.     Application.OnTime Time + #12:01:00 AM#, "SHEET5.Ex"   '¤@¤ÀÄÁ«á°õ¦æ Ex µ{¦¡
   
7.     'µ{¦¡¦bª«¥ó¼Ò²Õ¤¤­n«ü©ú¼Ò²Õ¦WºÙ , Private Sub(¨p¥Îµ{¦¡)¦b¤@¯ë¼Ò²Õ¤¤¤]­n«ü©ú ¤@¯ë¼Ò²Õ¦WºÙ
   
8.     Application.DisplayStatusBar = True                     'Åã¥Üª¬ºA¦C
   
9.     t = Time
   
10.     With CreateObject("InternetExplorer.Application")
    
11.       '  .Visible = True
    
12.        .Navigate "http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v"
    
13.         Do While (.Busy Or .ReadyState <> 4) And Msg = False
    
14.              DoEvents
    
15.              If Time > t + #12:00:05 AM# Then Msg = True
    
16.         Loop
    
17.         If Msg = True Then
    
18.             .Quit
    
19.             'MsgBox "³s½uªº®É¶¡¶W¹L5¬í"
    
20.             Application.StatusBar = "³s½u¥¢±Ñ   ³s½uªº®É¶¡¶W¹L5¬í"
    
21.         Else
    
22.             Set xlVbTable = .document.getelementsbytagname("table")
    
23.              On Error Resume Next
    
24.             With Sheets("Sheet5")
    
25.                 .Cells = ""
    
26.                 .Cells(1, 1) = "º¦°±ÂꦺªÑ"
    
27.                 For Each i In Array(20, 24)
    
28.                     If i = 24 Then .Cells(1, "J") = "¶^°±ÂꦺªÑ"
    
29.                     Y = 2
    
30.                     For R = 0 To xlVbTable(i).Rows.Length - 1
    
31.                         For C = 0 To xlVbTable(i).Rows(1).ALL.Length - 1
    
32.                             .Cells(Y, C + IIf(i = 20, 1, 10)) = xlVbTable(i).Rows(R).Cells(C).innerText
    
33.                             'IIf(i = 20, 1, 10) ->  1:="A", 10:="J"
    
34.                         Next
    
35.                         Y = Y + 1
    
36.                     Next
    
37.                     If i = 20 Then .Rows(13).Delete   '¶K¤W³sµ²ªºÀx¦s®æ¤´µM¬O#REF!->Àx¦s®æ³Q§R°£±¼
    
38.                 Next
    
39.             End With
    
40.             .Quit
    
41.             Sheets("Sheet3").[I4:I22] = "=SHEET5!RC[-6]" '¶K¤W³sµ²ªºÀx¦s®æ¤´
    
42.             'MsgBox Application.Text(Time - t, "¶O®É [ss] ¬í")
    
43.             Application.StatusBar = "³s½u¦¨¥\   §ó·s®É¶¡ " & Format(Time, "HH:MM:SS")
    
44.         End If
    
45.     End With
    
46. End Sub

½Æ»s¥N½X

t8899

¦^´_  t8899
GBKEE µoªí©ó 2013-9-7 06:44

½Ð°Ý¦b³oºØª¬ºA¤U¡Aºô¯¸¼Æ¾Ú§ó·s¡A¤u§@ªí¤]§Y®É§ó·s??¬O§_·|¤Ó®øÏäexcel¸ê·½ (¹«¼Ð¤@ª½¥X²{º|¤æª¬)

GBKEE

¦^´_ 23# t8899
µL¨¥

t8899

§â¨â­Ó³s±µ¹ï¥~ºô¸ô§ì¸ê®Æ¥¨¶°®³±¼¡A¥¨¶°°õ¦æ§¹¶O®É¤£¨ì1¬í


Sub zzzzz()

'Application.Interactive = False
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayStatusBar = False
ActiveSheet.DisplayPageBreaks = False
Dim sh As Worksheet
Set sh = ActiveSheet
timestock '==============>³s±µºô¸ô§ì¨ú¸ê®Æ¶×¤J¤u§@ªí, ®øÏä3¬í,¹«¼Ð¥X²{º|¤æª¬
º¦¶^°±  '================>³s±µºô¸ô§ì¨ú¸ê®Æ¶×¤J¤u§@ªí ,®øÏä2¬í,¹«¼Ð¥X²{º|¤æª¬

Sheets("sheet6").Select

  If Range("H16").Value = 0 Then Run "Aclear"

With Sheets("sheet6")
'A1 ®É¶¡-------------------------------------------------------------------

Sheets("sheet6").Unprotect

      [A1] = Now
t = [TEXT(A1,"hh:mm")+LOOKUP(--TEXT(A1,"s"),{0,15,30,45})/86400]

Range("a65536").End(xlUp).Offset(1).Value = Format(t, "hh:mm:ss")
      
  Sheets("sheet6").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
      

.Range("Z8").Value = .Range("H16").Value
.Range("Z9").Value = .Range("I16").Value
.Range("B65536").End(xlUp).Offset(1) = .Range("D16").Value   'Á`©e¶R¼Æ¶q-©e½æ¼Æ¶q
.Range("O65536").End(xlUp).Offset(1) = .Range("C16").Value   '¨Cµ§¶R
.Range("P65536").End(xlUp).Offset(1) = .Range("C18").Value   '¨Cµ§½æ
.Range("Q65536").End(xlUp).Offset(1) = .Range("B16").Value   '¶R¶i±i¼Æ
.Range("R65536").End(xlUp).Offset(1) = .Range("B18").Value   '½æ¥X±i¼Æ
.Range("C65536").End(xlUp).Offset(1) = .Range("H2").Value    '«ü¼Æº¦¶^
.Range("W65536").End(xlUp).Offset(1) = .Range("I2").Value    '¦¨¥æª÷ÃB
.Range("X65536").End(xlUp).Offset(1) = .Range("B15").Value   '¦¨¥æ±i¼Æ OK
.Range("S65536").End(xlUp).Offset(1) = .Range("B17").Value   'Á`¶Rµ§
.Range("T65536").End(xlUp).Offset(1) = .Range("B19").Value   'Á`½æµ§ OK
.Range("AH65536").End(xlUp).Offset(1) = .Range("AE16").Value 'º¦°±¶R¶i
.Range("AI65536").End(xlUp).Offset(1) = .Range("AF16").Value '¶^°±½æ¥X
.Range("Z65536").End(xlUp).Offset(1) = .Range("M2").Value    'ÁúªÑ
.Range("E65536").End(xlUp).Offset(1) = .Range("H18").Value   '¥x«ü»ù¦ì
.Range("AF65536").End(xlUp).Offset(1) = .Range("U10").Value  '¤Wº¦¤ñ¨Ò
  .Range("AE65536").End(xlUp).Offset(1) = .Range("H12").Value '5ÀÉ®t
.Range("D65536").End(xlUp).Offset(1) = .Range("I4").Value    '¨Cµ§¶R´î½æ(²Ö)
.Range("AC65536").End(xlUp).Offset(1) = .Range("B14").Value  '¦¨¥æµ§¼Æ
.Range("G65536").End(xlUp).Offset(1) = .Range("G15").Value   '«e20ÀɧY®Éºâ¥X»P¤W¤@½LªºÂI¼Æ
.Range("s10:t10").Value = .Range("J2:K2").Value              ' º¦¶^¤ñ¨Ò (¼È¦s)
'--------------------------------------------------------------------------
End With

'---------------------------------------------------------------------
     
Application.EnableEvents = False
Sheets("Sheet3").Range("Z2:Z111").Value = Sheets("Sheet3").Range("C2:C111").Value
Application.EnableEvents = True
   
'--------------------------------------------------------------
If Sheets("Sheet3").Range("R26").Value = 1 Then
price
end if
     sh.Activate

Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
' Application.Interactive = True
      
End Sub

GBKEE

¦^´_ 1# t8899
¤W¶Ç¾ã­ÓÀɮ׬ݬÝ

t8899

¦^´_ 2# GBKEE
Book1.rar (60.37 KB)

¤U¸ü¦¸¼Æ: 11

2013-9-9 10:51

GBKEE

¦^´_ 27# t8899

1. Sub zzzzz()
   
2. 'Application.Interactive = False
   
3. Application.ScreenUpdating = False
   
4. Application.EnableEvents = False
   
5. Application.DisplayStatusBar = False
   
6. ActiveSheet.DisplayPageBreaks = False
   
7. Dim sh As Worksheet
   
8. Set sh = ActiveSheet
   
9. 'timestock   ¤£­n°õ¦æ
   
10. 'º¦¶^°±    ¤£­n°õ¦æ

½Æ»s¥N½X

½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡

Dee.rar (60.17 KB)

¤U¸ü¦¸¼Æ: 11

2013-9-10 15:55

t8899

¦^´_  t8899 ½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡
GBKEE µoªí©ó 2013-9-10 15:12

ªþÀɸ̨S¦³ BOOK2 .XLS ?

t8899

¦^´_  t8899 ½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡
GBKEE µoªí©ó 2013-9-10 15:12

¤£ª¾§Ú°µªº¹ï¤£¹ï??
¤T­Óexcel ¿W¥ßµøµ¡¦U¦Û¦b¶]??¥t¥~¨â­Óµøµ¡¥i§_ÁôÂÃ?