Vba တွင် အကြွင်းမဲ့တန်ဖိုးများကို တွက်ချက်နည်း (ဥပမာဖြင့်)

နံပါတ်တစ်ခု၏ ပကတိတန်ဖိုးသည် နံပါတ်နှင့် သုညအကြား အကွာအဝေးကို ကိုယ်စားပြုသည်။

VBA တွင် အကြွင်းမဲ့တန်ဖိုးများကို တွက်ချက်ရန် Abs လုပ်ဆောင်ချက်ကို သင် အသုံးပြုနိုင်သည်။

ဤလုပ်ဆောင်ချက်ကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

ဤဥပမာသည် အပိုင်းအခြား A2:A10 ရှိ ဆဲလ်တစ်ခုစီ၏ ပကတိတန်ဖိုးကို တွက်ချက်ပြီး အပိုင်းအခြား B2:B10 တွင် ၎င်းတို့ကို ပြသသည်။

အောက်ဖော်ပြပါ ဥပမာသည် လက်တွေ့တွင် VBA တွင် အကြွင်းမဲ့တန်ဖိုးများကို တွက်ချက်နည်းကို ပြသထားသည်။

ဥပမာ- VBA တွင် အကြွင်းမဲ့တန်ဖိုးများကို တွက်ချက်နည်း

Excel တွင် အောက်ပါတန်ဖိုးများစာရင်းရှိသည်ဆိုပါစို့။

ကော်လံ A တွင် ဆဲလ်တစ်ခုစီ၏ ပကတိတန်ဖိုးကို တွက်ချက်ပြီး ကော်လံ B တွင် ပြလိုသည်ဆိုပါစို့။

ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

ကော်လံ B သည် ယခု ကော်လံ A ရှိ တန်ဖိုးတစ်ခုစီ၏ ပကတိတန်ဖိုးကို ပြသသည်။

ကော်လံ A တွင် အပြုသဘောဆောင်သော တန်ဖိုးတစ်ခုစီသည် ကော်လံ B တွင် အပြုသဘောဆောင်နေသေးကြောင်း သတိပြုပါ။

ကော်လံ A ရှိ အနုတ်တန်ဖိုးများ တစ်ခုစီကို ကော်လံ B တွင် အပြုသဘောဆောင်သော တန်ဖိုးများအဖြစ်သို့ ပြောင်းလဲထားသည်ကိုလည်း သတိပြုပါ။

မှတ်ချက် – VBA Abs လုပ်ဆောင်ချက်အတွက် စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာတွေ့နိုင်ပါသည်။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

VBA- အပိုင်းအခြား၏ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်နည်း
VBA: အပိုင်းအခြားတစ်ခုတွင် တန်ဖိုးများထည့်နည်း
VBA- အပိုင်းအခြားရှိ အတန်းအရေအတွက်ကို ရေတွက်နည်း