VBA ဖြင့်ရေးသားထားသော Excel Macros နမူနာများ

အောက်ဖော်ပြပါ ရိုးရှင်းသော Excel မက်ခရိုနမူနာများကို VBA အသုံးပြု၍ ရေးသားထားပါသည်။ 

ခန့်မှန်းခြေ စာဖတ်ချိန်- 3 minuti

VBA ဥပမာ Array ကိုအသုံးပြုသည်။

အောက်ဖော်ပြပါ လုပ်ငန်းစဉ်ခွဲများသည် အလုပ်စာရွက်၏ကော်လံ A ရှိ ဆဲလ်များမှ တန်ဖိုးများကို ၎င်းသည် ကွက်လပ်တစ်ခုနှင့် မတွေ့မချင်း၊ တန်ဖိုးများကို array တစ်ခုတွင် သိမ်းဆည်းထားသည်။ ဤရိုးရှင်းသော Excel မက်ခရိုနမူနာသည် အသုံးပြုမှုကို ဖော်ပြသည်-

• ပြောင်းလဲနိုင်သော ကြေငြာချက်များ၊
• ဒိုင်းနမစ် အခင်းအကျင်းများ
• သံသရာ Do Until;
• လက်ရှိ Excel အလုပ်စာရွက်ရှိ ဆဲလ်များကို ကိုးကားပါ။
• VBA လုပ်ဆောင်ချက် Ubound builtin ( array တစ်ခု၏အမြင့်ဆုံးအညွှန်းကိုပြန်ပေးသည် ) ။

' Sub procedure store values in Column A of the active Worksheet
' into an array
Sub GetCellValues()
Dim iRow As Integer            ' stores the current row number
Dim dCellValues() As Double  ' array to store the cell values
iRow = 1
ReDim dCellValues(1 To 10)
' Do Until loop to extract the value of each cell in column A
' of the active Worksheet, as long as the cell is not blank
Do Until IsEmpty(Cells(iRow, 1))
   ' Check that the dCellValues array is big enough
   ' If not, use ReDim to increase the size of the array by 10
   If UBound(dCellValues) < iRow Then
      ReDim Preserve dCellValues(1 To iRow + 9)
   End If
   ' Store the current cell in the CellValues array
   dCellValues(iRow) = Cells(iRow, 1).Value
   iRow = iRow + 1
Loop
End Sub

လုပ်ထုံးလုပ်နည်းသည် ကော်လံ A တွင် အသက်ဝင်နေသော အလုပ်စာရွက်၏ တန်ဖိုးများကို array တစ်ခုတွင် သိမ်းဆည်းသည်၊ သတိပြုပါ။

• သံသရာ Do Until လုပ်ဆောင်နေသော အလုပ်စာရွက်၏ ကော်လံ A ရှိ ဆဲလ်တစ်ခုစီ၏ တန်ဖိုးများကို ထုတ်ယူပြီး၊ ဆဲလ်အလွတ်များကို လျစ်လျူရှုခြင်း၊
• အခြေအနေ"If UBound(dCellValues) < iRow” dCellValues ​​array သည် အချက်အလက်များကို ထိန်းထားနိုင်လောက်အောင် ကြီးမားကြောင်း စစ်ဆေးသည်၊ မဟုတ်ပါက၊ array ၏အရွယ်အစားကို 10 ဖြင့်တိုးရန် ReDim ကိုအသုံးပြုပါ။
• နောက်ဆုံးတော့ ပညာရေးပေါ့။​​dCellValues(iRow) = Cells(iRow, 1).Value” လက်ရှိဆဲလ်ကို CellValues ​​ခင်းကျင်းတွင် သိမ်းဆည်းသည်။

သင်္ချာဆိုင်ရာလုပ်ဆောင်မှုများနှင့်အတူ VBA ဥပမာ

အောက်ဖော်ပြပါ လုပ်ငန်းစဉ်ခွဲများသည် “Sheet2” ဟု အမည်ပေးထားသည့် အလုပ်စာရွက်ကော်လံ A မှ တန်ဖိုးများကို ဖတ်ပြီး တန်ဖိုးများပေါ်တွင် ဂဏန်းသင်္ချာလုပ်ဆောင်မှုများကို လုပ်ဆောင်သည်။ ရရှိလာသောတန်ဖိုးများကို လက်ရှိအသုံးပြုနေသော အလုပ်စာရွက်၏ကော်လံ A တွင် ရိုက်နှိပ်ထားသည်။

ဤ macro သည်-

• ပြောင်းလဲနိုင်သော ကြေငြာချက်များ၊
• Excel အရာဝတ္ထုများ (အထူးသဖြင့်၊ သတ်မှတ်သော့ချက်စာလုံးကိုအသုံးပြုခြင်းနှင့် 'စာရွက်များ' အရာဝတ္တုမှ 'ကော်လံများ' အရာဝတ္တုကို မည်သို့ဝင်ရောက်နိုင်ပုံ);
• သံသရာ Do Until;
• လက်ရှိ Excel အလုပ်စာအုပ်တွင် အလုပ်စာရွက်များနှင့် ဆဲလ်အပိုင်းအခြားများကို ဝင်ရောက်ကြည့်ရှုပါ။

' Sub procedure to loop through the values in Column A of the Worksheet
' "Sheet2", perform arithmetic operations on each value, and write the
' result into Column A of the current Active Worksheet ("Sheet1")
Sub Transfer_ColA()
Dim i As Integer
Dim Col As Range
Dim dVal As Double
' Set the variable 'Col' to be Column A of Sheet 2
Set Col = Sheets("Sheet2").Columns("A")
i = 1
' Loop through each cell of the column 'Col' until
' a blank cell is encountered
Do Until IsEmpty(Col.Cells(i))
   ' Apply arithmetic operations to the value of the current cell
   dVal = Col.Cells(i).Value * 2 + 1
   ' The command below copies the result into Column A
   ' of the current Active Worksheet - no need to specify
   ' the Worksheet name as it is the active Worksheet.
   Cells(i, 1) = dVal
   i = i + 1
Loop
End Sub

ပြုပြင်မွမ်းမံသည့်ရက်စွဲဖြင့် မှတ်တမ်းတင်ထားသော VBA နမူနာ

ကျွန်ုပ်တို့၏စာရွက်၏ သီးခြားအကွာအဝေးတစ်ခုရှိ ဆဲလ်တစ်ခုကို အပ်ဒိတ်လုပ်သည့်အခါ ရိုးရှင်းသော VBA macro တစ်ခုကို ရေးကြပါစို့။ ကော်လံ B (B4 မှ B11) တွင် အပြောင်းအလဲများကို ခြေရာခံပြီး ကော်လံ A တွင် အပြောင်းအလဲ၏ ရက်စွဲနှင့် အချိန်ကို မှတ်တမ်းတင်လိုသည်ဆိုပါစို့။
ဤကဲ့သို့ ဆက်လုပ်ကြပါစို့။

• tab ကို Developer option ကိုနှိပ်ပါ"Visual Basic"VBA တည်းဖြတ်သူကိုဖွင့်ရန်။
• VBA တည်းဖြတ်မှုတွင် Sheet2 နှင့်ဆက်စပ်သော ကုဒ်တည်းဖြတ်သူကို နှစ်ချက်နှိပ်ပါ။
• ညာဘက် (သို့မဟုတ်) ဘယ်ဘက်) tab မှ Worksheet ကိုရွေးချယ်ပြီး Change option ကိုရွေးချယ်ပါ။
• VBA ကုဒ်ကို ထည့်ပါ

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Target.Range("A1:A1").Value = Now
    End If
End Sub

မက်ခရိုဖွင့်ထားခြင်းဖြင့် အလုပ်စာအုပ်ကို သိမ်းဆည်းပါ (ဥပမာ၊ .xlsm ဖိုင်တစ်ခုအနေဖြင့်)။

ယခု၊ ကျွန်ုပ်တို့သည် ကော်လံ B (အတန်း 1 မှ အတန်း 10 အထိ) တွင် ဆဲလ်တစ်ခုကို အပ်ဒိတ်လုပ်တိုင်း၊ ကော်လံ A ရှိ ဆဲလ်သည် လက်ရှိ ရက်စွဲနှင့် အချိန်ကို အလိုအလျောက် ပြသမည်ဖြစ်သည်။

Ercole Palmeri