Bu məqalə iş vərəqini və ya diaqramı müntəzəm olaraq necə yeniləməyi göstərir. Bu məşq mənbə məlumatlarında dəyişiklikləri əks etdirən hər dəqiqədə iş vərəqini yeniləyən taymer qurur.
Bu məqalə oxucunun Tərtibatçı lentinin göstərildiyini və VBA Redaktoru ilə tanış olduğunu güman edir. Əgər belə deyilsə, lütfən Google “Excel Developer Tab” və ya “Excel Code Window”.
Bu məşqdə istifadə olunan iş dəftərinin nümunəsini tapa bilərsiniz burada.
Dinamik hesabatların istifadəsi aşağıdakılar ola bilər:
- Zəngləri təhlil etmək üçün şirkətinizin telefon sistemi ilə birlikdə təqdim olunan xüsusi verilənlər bazasını oxumaq.
- Mükafat və ya lotereya məqsədləri üçün hər 15 dəqiqədən bir təsadüfi nömrə yaradın.
- Müəyyən səviyyələr yerinə yetirildikdə yerli verilənlər bazanızdan e-poçtları avtomatik göndərin. (burada taymer əldə edilmiş səviyyələrə əsasən prosesi yandırıb-qaldırmayacağına qərar verəcək).
və ya istifadə edəcəyimiz:
- İnternetdən ən son USD/EUR məzənnəsini göstərin.
Məlumatlar buradan çıxarılır Yahoo Finance saytı hər dəqiqə. Uğurla sınaqdan keçirildikdən sonra, daha uzun bir emal intervalı əvəz edilməlidir.
İnterface
Yeni bir iş dəftəri açın;
İlk vərəqi “Ekran” adlandırın. Cədvəl D8-dən E11-ə qədər internetdən doldurulacağından, dəyərlərin və ya sətir başlıqlarının daxil edilməsinə ehtiyac yoxdur. Qalanları isteğe bağlıdır.
Kod
VBA kodu pəncərəsini açın və modul daxil edin. Aşağıdakı kodu modula köçürün.
Auto_Open hadisəsi, iş kitabı açıldıqda Taymeri işə salır və iş kitabı bağlandıqda dayanır, əgər kod inkişaf zamanı geliştirici tərəfindən kəsilməsə.
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əticə
Hər n dəqiqədən bir “Ekran” vərəqindəki cədvəl Yahoo saytından yenilənəcək. Daha mürəkkəb məlumat bağlantıları üçün Microsoft veb saytına baxın.
Zədələnmiş iş dəftərlərinin bərpası
Excel-in gözlənilməz anlar əsnasında sıradan çıxdığı məlumdur ki, bu da, ehtimal ki, resursların çatışmazlığı ilə əlaqədardır. Belə hallarda mənbə faylı geri dönməz şəkildə zədələnə və yenidən açılmaqdan imtina edə bilər. Tez-tez ehtiyat nüsxələmə olmadıqda, bərpa etmək üçün bir vasitə zədələnmiş Excel faylları əvəzsiz olardı.
Müəllif Giriş:
Feliks Hooker məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc rar düzəlişi və sql bərpa proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com