ဤဆောင်းပါးသည် ပုံမှန်ကြားကာလတွင် အလုပ်စာရွက် သို့မဟုတ် ဇယားကို မည်သို့ပြန်လည်စတင်ရမည်ကို ပြသထားသည်။ ဤလေ့ကျင့်ခန်းသည် အရင်းအမြစ်ဒေတာတွင် အပြောင်းအလဲများကို ထင်ဟပ်စေသည့် အလုပ်စာရွက်ကို တစ်မိနစ်တိုင်း ပြန်လည်ဆန်းသစ်စေသည့် အချိန်တိုင်းကိရိယာကို တည်ဆောက်ပေးပါသည်။
ဤဆောင်းပါးသည် စာဖတ်သူတွင် Developer ribbon ကိုပြသထားပြီး VBA Editor နှင့် ရင်းနှီးသည်ဟု ယူဆပါသည်။ မဟုတ်ပါက၊ ကျေးဇူးပြု၍ Google “Excel Developer Tab” သို့မဟုတ် “Excel Code Window”။
ဤလေ့ကျင့်ခန်းတွင်အသုံးပြုသော workbook ၏ဥပမာကိုတွေ့နိုင်သည်။ ဒီမှာ.
ဒိုင်းနမစ်အစီရင်ခံခြင်း၏အသုံးပြုမှုများမှာ-
- ဖုန်းခေါ်ဆိုမှုများကို ခွဲခြမ်းစိတ်ဖြာရန်အတွက် သင့်ကုမ္ပဏီ၏ တယ်လီဖုန်းစနစ်နှင့်အတူ ပါရှိသော ကိုယ်ပိုင်ဒေတာဘေ့စ်ကို ဖတ်ရှုခြင်း။
- ဆုကြေး သို့မဟုတ် ကံစမ်းမဲရည်ရွယ်ချက်အတွက် 15 မိနစ်တိုင်း ကျပန်းနံပါတ်တစ်ခု ဖန်တီးပါ။
- အချို့သောအဆင့်များ ပြည့်မီသောအခါ သင့်ဒေသခံဒေတာဘေ့စ်မှ အီးမေးလ်များကို အလိုအလျောက် ပေးပို့ပါ။ (ဤနေရာတွင် အချိန်တိုင်းကိရိယာသည် အောင်မြင်သည့်အဆင့်များအပေါ်အခြေခံ၍ လုပ်ငန်းစဉ်ကို ရပ်စဲရန်၊ မလုပ်ဆောင်ရန် ဆုံးဖြတ်ပါမည်)။
သို့မဟုတ် ကျွန်ုပ်တို့အသုံးပြုမည့်အရာ-
- အင်တာနက်မှ နောက်ဆုံးထွက် USD/EUR ငွေလဲနှုန်းကို ပြသပါ။
အချက်အလက်များကို မှ ထုတ်ယူသည်။ Yahoo Finance ဝဘ်ဆိုဒ် မိနစ်တိုင်း အောင်မြင်စွာ စမ်းသပ်ပြီးသည်နှင့်၊ ပိုရှည်သော လုပ်ဆောင်မှုကြားကာလကို အစားထိုးသင့်သည်။
အဆိုပါ Interface
အလုပ်စာအုပ်အသစ်ကိုဖွင့်ပါ။
ပထမစာရွက်ကို “Display” ဟု အမည်ပေးပါ။ ဇယား D8 မှ E11 ကို ဝဘ်မှ ဖြည့်သွင်းမည်ဖြစ်သောကြောင့် တန်ဖိုးများ သို့မဟုတ် အတန်းခေါင်းစီးများကို ထည့်သွင်းရန် မလိုအပ်ပါ။ ကျန်တာ စိတ်ကြိုက်ရွေးပါ။
အဆိုပါ Code ကို
VBA ကုဒ်ဝင်းဒိုးကိုဖွင့်ပြီး မော်ဂျူးတစ်ခုကို ထည့်သွင်းပါ။ အောက်ပါကုဒ်ကို module ထဲသို့ကူးထည့်ပါ။
Auto_Open event သည် workbook ပွင့်လာသောအခါ Timer ကိုစတင်ပြီး worbook ပိတ်သွားသောအခါ ရပ်တန့်သွားသည်၊ သို့သော် developer မှ code ကို developer မှ အနှောင့်အယှက်မပေးပါကဖြစ်သည်။
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
ရလဒ်
မိနစ်တိုင်းတွင် Sheet “Display” ရှိဇယားကို Yahoo ဝဘ်ဆိုဒ်မှ အပ်ဒိတ်လုပ်ပါမည်။ ပိုမိုရှုပ်ထွေးသောဒေတာချိတ်ဆက်မှုများအတွက် Microsoft ၏ဝဘ်ဆိုဒ်ကို ကိုးကားပါ။
ပျက်စီးနေသော အလုပ်စာအုပ်များကို ပြန်လည်ရယူခြင်း။
Excel ဟာ မမျှော်လင့်ထားတဲ့အချိန်တွေမှာ crash ဖြစ်တတ်တယ်လို့ လူသိများပြီး resource တွေ ပြတ်တောက်သွားလို့ ဖြစ်နိုင်ပါတယ်။ အဲဒီလိုအခြေအနေမျိုးမှာ source file ဟာ ပြန်လည်ပြုပြင်လို့မရအောင် ပျက်စီးသွားပြီး ပြန်ဖွင့်ဖို့ ငြင်းဆန်သွားနိုင်ပါတယ်။ backup မကြာခဏ မလုပ်တဲ့အခါ recovery tool တစ်ခု Excel ပျက်သွားသည်။ ဖိုင်များသည် အဖိုးမဖြတ်နိုင်ပေ။
စာရေးသူနိဒါန်း:
Felix Hooker သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ rar ပြင်ဆင်ချက် နှင့် sql recovery software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com