Энэ нийтлэлд ажлын хуудас эсвэл графикийг тодорхой хугацаанд хэрхэн шинэчлэхийг харуулсан болно. Энэ дасгал нь мэдээллийн эх хуудасны өөрчлөлтийг тусгасан ажлын хуудсыг нэг минут тутамд шинэчилдэг таймер бүтээдэг.
Энэ нийтлэл нь уншигчдад Developer туузыг харуулсан бөгөөд VBA редакторыг сайн мэддэг гэж үзнэ. Хэрэв үгүй бол Google-ийн “Excel Developer Tab” эсвэл “Excel Code Window” -ийг ашиглана уу.
Энэ дасгалд ашигласан ажлын номны жишээг олж болно энд.
Динамик тайлангийн хэрэглээ нь дараахь байж болно.
- Дуудлагыг шинжлэхийн тулд танай компанийн утасны системтэй хамт ирсэн өмчийн мэдээллийн санг унших.
- Шагнал эсвэл сугалааны зорилгоор 15 минут тутамд санамсаргүй тоог гарга.
- Тодорхой түвшинг хангаж байх үед локал мэдээллийн сангаас имэйлийг автоматаар илгээх. (энд хүрсэн түвшинг үндэслэн процессыг халах эсэхийг таймер шийднэ).
эсвэл бидний ашиглах болно:
- Интернетээс хамгийн сүүлийн USD / EUR валютын ханшийг харуулах.
Өгөгдлийг Yahoo Finance вэбсайт нэг минут тутамд. Амжилттай туршсаны дараа илүү урт боловсруулалтын интервалыг орлуулах хэрэгтэй.
Интерфэйс
Шинэ ажлын дэвтэр нээх;
Эхний хуудсыг "Дэлгэц" гэж нэрлэнэ үү. D8-ээс E11 хүснэгтийг вэбээс оруулах тул утга эсвэл мөрийн гарчгийг оруулах шаардлагагүй болно. Бусад нь заавал байх албагүй.
Дүрэм
VBA кодын цонхыг нээгээд модулийг оруулна уу. Доорх кодыг модульд хуулж ав.
Хөгжүүлэлтийн явцад хөгжүүлэгч кодыг тасалдуулаагүй л бол Auto_Open үйл явдал нь ажлын ном нээгдэх үед Таймерыг эхлүүлж, ажлын ном хаагдахад зогсдог.
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
Үр дүн
"Display" хуудасны хүснэгтийг n минут тутамд Yahoo вэбсайтаас шинэчлэх болно. Илүү төвөгтэй өгөгдлийн холболтыг Microsoft-ийн вэбсайтаас авна уу.
Гэмтсэн ажлын номыг сэргээх
Excel нь нөөц дутагдалтай холбоотойгоор гэнэтийн мөчид гацдаг нь мэдэгдэж байна. Ийм тохиолдолд эх файл эргэлт буцалтгүй гэмтэж, дахин нээхээс татгалзаж болно. Байнга нөөцлөлт хийгдэхгүй бол сэргээх хэрэгсэл эвдэрсэн Excel файлууд нь үнэлж баршгүй байх болно.
Зохиогчийн танилцуулга:
Феликс Хүүкер бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. rar засвар болон sql сэргээх програм хангамжийн бүтээгдэхүүнүүд. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com