Vba- အပိုင်းအခြားရှိ အမြင့်ဆုံးတန်ဖိုးကို ဘယ်လိုရှာမလဲ။

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

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

ဤဥပမာသည် အပိုင်းအခြား B2:B11 ရှိ အမြင့်ဆုံးတန်ဖိုးကို တွက်ချက်ပြီး ရလဒ်ကို ဆဲလ် D2 သို့ သတ်မှတ်ပေးသည်။

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

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

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

ဥပမာ 1- VBA သုံးပြီး အပိုင်းအခြား၏ အမြင့်ဆုံးတန်ဖိုးကို တွက်ချက်ပြီး ဆဲလ်အတွင်း ရလဒ်များကို ပြသပါ။

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

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

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

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

ဆဲလ် D2 တွင် တန်ဖိုး 43 ပါဝင်ကြောင်း သတိပြုပါ။

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

ဥပမာ 2- VBA သုံးပြီး အပိုင်းအခြား၏ အမြင့်ဆုံးတန်ဖိုးကို တွက်ချက်ပြီး ရလဒ်များကို မက်ဆေ့ဘောက်စ်တွင် ပြသပါ။

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

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

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

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

အကွာအဝေး B2:B11 တွင် အများဆုံးတန်ဖိုးသည် 43 ဖြစ်ကြောင်း မက်ဆေ့ဘောက်စ်တွင် ဖော်ပြထားသည်။

ဤဥပမာတွင် ကျွန်ုပ်တို့သည် အကွာအဝေး B2:B11 တွင် အများဆုံးတန်ဖိုးကို တွက်ချက်ခဲ့ကြောင်း သတိပြုပါ။

သို့သော်၊ သင်သည် ကော်လံတစ်ခုလုံးရှိ အမြင့်ဆုံးတန်ဖိုးကို တွက်ချက်လိုပါက၊ ၎င်းအစား B:B ဟု ရိုက်ထည့်နိုင်သည်။

၎င်းသည် ကော်လံ B အားလုံးတွင် အများဆုံးတန်ဖိုးကို တွက်ချက်မည်ဖြစ်သည်။

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

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

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