- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 107
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-5-9
|
¦^´_ 1# wl02353427 - Public NameOfThisProcedure
- Public NextTime
- Sub Stop_Update()
- Yn = MsgBox("½T©w°±¤î" & NameOfThisProcedure & "µ{§Ç" & Chr(10) & NextTime & "ªº§ó·s?", vbYesNo)
- If Yn = 6 Then Application.OnTime EarliestTime:=NextTime, Procedure:=NameOfThisProcedure, schedule:=False
- End Sub
- Sub Awesome()
- '****************************ºI¨ú¸ê®Æ¨Ã°O¿ý****************************'
- Dim SG As SparklineGroup
- Dim SL As Sparkline
- Dim WSD As Worksheet
- Dim WSL As Worksheet
- Dim WSQ As Worksheet
- Set WSQ = Worksheets("¤u§@ªí1")
-
- hiji = Now()
-
- WaitSec = 30 '©µ¿ð®É¶¡
- NameOfThisProcedure = "Awesome"
-
- NextTime = Now + TimeSerial(0, 0, WaitSec) ' ©µ¿ð
-
- Application.OnTime EarliestTime:=NextTime, Procedure:=NameOfThisProcedure ' §Q¥ÎOnTime«ü¥O±Æ©w Awesome ªº°õ¦æ®É¶¡
-
- WSQ.Range("B3").QueryTable.Refresh BackgroundQuery:=False '«·s¾ã²zweb¬d¸ß
-
- Application.Wait (Now + TimeValue("0:00:05")) ' ½T»{¸ê®Æ§ó·s
- NextRow = WSQ.Cells(Rows.Count, 2).End(xlUp).Row + 1
- WSQ.Range("B3:K3").Copy WSQ.Cells(NextRow, 2)
-
- '**********************************************************************'
- On Error Resume Next
- Application.DisplayAlerts = False
- Worksheets("¤u§@ªí2").Delete
- On Error GoTo 0
- Set WSD = Worksheets("¤u§@ªí1") ' ¸ê®ÆŪ¨ú
- Set WSL = ActiveWorkbook.Worksheets.Add ' »ö¿öªO¿é¥X
- WSL.Name = "¤u§@ªí2"
- WSL.Select
- '***»ö¿öªO¤j¤p***'
- With WSL.Range("B2")
- .ColumnWidth = 100 ' °ª«×
- .RowHeight = 100 ' ¼e«×
- End With
- '****¼ÐÃD¦WºÙ****'
- With WSL.Range("B1")
- .Value = Array("±i¼Æ")
- .HorizontalAlignment = xlCenter
- .ColumnWidth = 39
- .Offset(1, 0).RowHeight = 200
- End With
- Set SG = WSL.Range("B2").SparklineGroups.Add(Type:=xlSparkLine, SourceData:="¤u§@ªí1!G8:G" & NextRow)
- SG.SeriesColor.Color = RGB(0, 0, 255) ' ½u±øÃC¦â
- Set SL = SG.Item(1)
- '***I´ºÃC¦â***'
- With WSL.Range("B2").Interior
- .Color = RGB(255, 255, 255)
- .TintAndShade = 0
- End With
-
- Set SL = SG.Item(1)
- '***³Ì¤j³Ì¤pÈ***'
- Set AF = Application.WorksheetFunction
- AllMin = AF.Min(WSD.Range("G8:G65536")) ' «ü©w°Ï°ì¤¤¿ï¥X³Ì¤pÈ
- AllMax = AF.Max(WSD.Range("G8:G65536"))
- AllMin = Int(AllMin) - AllMin ' ¾ã¼Æ³]©w
- AllMax = Int(AllMax)
- With SG.Axes.Vertical
- .MinScaleType = xlSparkScaleCustom
- .MaxScaleType = xlSparkScaleCustom
- .CustomMinScaleValue = AllMin
- .CustomMaxScaleValue = AllMax
- End With
- '***[A2]¤W¤U¶¡¶Z***'
- With WSL.Range("A2")
- .Value = AllMax & vbLf & vbLf & vbLf & vbLf _
- & vbLf & vbLf & vbLf & vbLf & vbLf & vbLf & vbLf & vbLf & vbLf & vbLf & vbLf & vbLf & vbLf & vbLf & AllMin
- .HorizontalAlignment = xlRight
- .VerticalAlignment = xlTop
- .Font.Size = 8
- .Font.Bold = True
- .WrapText = True
- End With
- '***¨ä¥L³]©w***'
- Worksheets("¤u§@ªí2").Range("B3") = "§ó·s¤é´Á : " & hiji
- Number = WSD.Range("G8:G" & NextRow).Count
- Worksheets("¤u§@ªí1").Range("M2") = "¸ê®Æµ§¼Æ :"
- Worksheets("¤u§@ªí1").Range("N2") = Number
- Workbooks(1).Save
- Set WSQ = Nothing
- Set QSL = Nothing
- End Sub
½Æ»s¥N½X |
|