Այս հոդվածը ցույց է տալիս, թե ինչպես թարմացնել աշխատանքային թերթիկը կամ գծապատկերը պարբերական պարբերականությամբ: Այս վարժությունը կառուցում է ժամանակաչափ, որը թարմացնում է աշխատանքային թերթը յուրաքանչյուր մեկ րոպեն ՝ արտացոլելով աղբյուրի տվյալների փոփոխությունները:
Այս հոդվածը ենթադրում է, որ ընթերցողը ցուցադրում է erրագրավորողի ժապավենը և ծանոթ է VBA խմբագրին: Եթե ոչ, խնդրում ենք Google- ի «Excel Developer Tab» կամ «Excel Code Window»:
Այս վարժությունում օգտագործված աշխատանքային գրքի օրինակ կարելի է գտնել այստեղ.
Դինամիկ հաշվետվությունների օգտագործումը կարող է լինել.
- Կարդալով proprietary տվյալների բազա, որը մատակարարվում է ձեր ընկերության հեռախոսային համակարգով `զանգերը վերլուծելու համար:
- Մրցանակային կամ խաղարկության նպատակներով յուրաքանչյուր 15 րոպեն մեկ ստեղծեք պատահական թիվ:
- Որոշակի մակարդակների բավարարման դեպքում ձեր տեղական տվյալների բազայից ավտոմատ ուղարկեք նամակներ: (այստեղ ժամաչափը կորոշի ՝ աշխատանքից հեռացնել, թե ոչ ՝ ելնելով ձեռք բերված մակարդակներից):
կամ մեկը, որը մենք կօգտագործենք.
- Displayուցադրեք USD / EUR- ի վերջին փոխարժեքը ինտերնետից:
Տվյալները արդյունահանվում են Yahoo Finance կայք յուրաքանչյուր մեկ րոպեն: Հաջող փորձարկումից հետո մշակման ավելի երկար միջակայքը պետք է փոխարինվի:
Ինտերֆեյսը
Բացել նոր աշխատանքային գրքույկ;
Առաջին թերթը անվանել «Displayուցադրել»: Քանի որ D8- ից E11 աղյուսակը լրացված է ոստայնից, անհրաժեշտ չէ մուտքագրել արժեքներ կամ տողերի վերնագրեր: Մնացածը ընտրովի է:
Կոդ
Բացեք VBA կոդի պատուհանը և տեղադրեք մոդուլ: Պատճենեք ներքևի կոդը մոդուլի մեջ:
Auto_Open իրադարձությունըtartheամանակաչափը, երբ աշխատանքային գիրքը բացվում է և դադարում է, երբ տետրը փակվում է, եթե մշակման ընթացքում մշակողը չի ընդհատել կոդը:
Sub Auto_Open()
AlertTime = Now + TimeValue("00:01:00") 'interval in minutes
Application.OnTime AlertTime, "Ticker" 'call Sub Ticker, below
End Sub
Sub Ticker()
Dim currBuy As String
Dim currSell As String
Range("D8:F11").ClearContents 'prepare the destination for the web data
currBuy = "USD"
currSell = "EUR"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/q?s=" & currBuy & currSell & "=X", Destination:=Range("$D$8"))
.Name = "q?s=" & currSell & currBuy & "=X"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """table1"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
AlertTime = Now + TimeValue("00:01:00") ‘move trigger on a minute
Application.OnTime AlertTime, "Ticker"
End Sub
Արդյունքը
Յուրաքանչյուր n րոպեում «Displayուցադրել» թերթի աղյուսակը թարմացվելու է Yahoo կայքից: Տվյալների ավելի բարդ կապերի համար դիմեք Microsoft- ի կայքին:
Վերականգնել կոռումպացված աշխատանքային գրքերը
Հայտնի է, որ Excel- ը անսպասելի պահերին վթարի է ենթարկվում, հավանաբար կապված է այն ժամանակ ռեսուրսների պակասի հետ: Նման դեպքերում աղբյուրի ֆայլը կարող է անկանոն լինելcabվնասված է և հրաժարվում է նորից բացելուց: Հաճախակի կրկնօրինակի բացակայության դեպքում `վերականգնելու գործիք կոռումպացված Excel- ը ֆայլերը անգնահատելի կլինեին:
Հեղինակի ներածություն.
Ֆելիքս Հուքերը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում rar ուղղել և sql վերականգնման ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com