Vba- ကော်လံတွင် ပထမဆုံး n တန်ဖိုးများကို မီးမောင်းထိုးပြနည်း

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

 SubHighlightTopN ()

    Dim rng As Range
    Dim EntireRange As Range
    
    'specify range to use
    Set EntireRange = Range(" A2:A11 ")
    
    'highlight top 3 values in range
    For Each rng In EntireRange
        
        For i = 1 To 3
        
        If rng.Value = WorksheetFunction.Large(EntireRange, i) Then
        rng.Interior.Color = vbYellow
        End If
        Next
    
    Next rng

End Sub

ဤအထူးမက်ခရိုသည် A2:A11 အကွာအဝေးရှိ အမြင့်ဆုံးတန်ဖိုး 3 ခုကို မီးမောင်းထိုးပြပါမည်။

မတူညီသော အထက်တန်ဖိုးများ၏ အရေအတွက်ကို မီးမောင်းထိုးပြရန်၊ မတူညီသော အထက်ကန့်သတ်ချက်ရှိရန် For i = 1 မှ 3 စာကြောင်းကို ပြင်ပါ။

အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။

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

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

A2:A11 အကွာအဝေးရှိ ပထမအကြီးဆုံးတန်ဖိုး ၃ ခုကို မီးမောင်းထိုးပြရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်။

 SubHighlightTopN ()

    Dim rng As Range
    Dim EntireRange As Range
    
    'specify range to use
    Set EntireRange = Range(" A2:A11 ")
    
    'highlight top 3 values in range
    For Each rng In EntireRange
        
        For i = 1 To 3
        
        If rng.Value = WorksheetFunction.Large(EntireRange, i) Then
        rng.Interior.Color = vbYellow
        End If
        Next
    
    Next rng

End Sub

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

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

မီးမောင်းထိုးပြရန်အတွက် အသုံးပြုရန် အရောင်အပြင် မီးမောင်းထိုးပြရန် အဓိကတန်ဖိုးများ အရေအတွက်ကိုလည်း ပြောင်းလဲနိုင်သည်ကို သတိပြုပါ။

ဥပမာအားဖြင့်၊ ကော်လံ A တွင် အစိမ်းရောင်ရှိသော ပထမတန်ဖိုး 5 ခုကို မီးမောင်းထိုးပြရန် အောက်ပါ macro ကို အသုံးပြုနိုင်သည်။

 SubHighlightTopN ()

    Dim rng As Range
    Dim EntireRange As Range
    
    'specify range to use
    Set EntireRange = Range(" A2:A11 ")
    
    'highlight top 5 values in range
    For Each rng In EntireRange
        
        For i = 1 To 5
        
        If rng.Value = WorksheetFunction.Large(EntireRange, i) Then
        rng.Interior.Color = vbGreen
        End If
        Next
    
    Next rng

End Sub

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

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

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

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

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