Vba- ဆဲလ်ဗလာရှိမရှိ စစ်ဆေးနည်း (ဥပမာများနှင့်အတူ)
VBA တွင် ဆဲလ်တစ်ခု ဗလာရှိ၊ မရှိ စစ်ဆေးရန် အောက်ပါ အခြေခံ syntax ကို သင် အသုံးပြုနိုင်ပါသည်။
SubCheckBlank ()
Dim i As Integer
For i = 2 To 13
If IsEmpty(Range(" A " & i)) Then
Result = “ Cell is Empty ”
Else
Result = “ Cell is Not Empty ”
End If
Range(" B " & i) = Result
Next i
End Sub
ဤဥပမာသည် အပိုင်းအခြား A2:A13 အတွင်းရှိ ဆဲလ်တစ်ခုစီကို ဗလာရှိမရှိ စစ်ဆေးပြီး၊ ထို့နောက် B2:B13 အပိုင်းအခြားရှိ ကိုက်ညီသည့်ဆဲလ်တစ်ခုစီအား “ ဆဲလ်ဗလာ” သို့မဟုတ် “ ဆဲလ်သည် ဗလာဖြစ်နေသည်” ကို သတ်မှတ်ပေးသည်။
အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။
ဥပမာ- VBA သုံးပြီး ဆဲလ်ဗလာရှိ၊ မရှိ စစ်ဆေးနည်း
Excel တွင် အောက်ဖော်ပြပါ ဘတ်စကတ်ဘောအသင်းအမည်များ ရှိသည်ဆိုပါစို့။
A2:A13 အပိုင်းအခြားရှိ ဆဲလ်တစ်ခုစီသည် ဗလာရှိမရှိ စစ်ဆေးလိုပြီး အပိုင်းအခြား B2:B8 ရှိ သက်ဆိုင်ရာဆဲလ်များတွင် ရလဒ်များကို ပြသလိုသည်ဆိုပါစို့။
ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။
SubCheckBlank ()
Dim i As Integer
For i = 2 To 13
If IsEmpty(Range(" A " & i)) Then
Result = “ Cell is Empty ”
Else
Result = “ Cell is Not Empty ”
End If
Range(" B " & i) = Result
Next i
End Sub
ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။
ကော်လံ B သည် ကော်လံ A ရှိ ဆက်စပ်ဆဲလ်တစ်ခုစီသည် ဗလာဖြစ်၊
တန်ဖိုးသည် ကော်လံ A တွင် ဗလာမပါပါက ကော်လံ B တွင် အသင်းအမည်ကို ရိုးရိုးပြန်ပေးရန်အတွက်လည်း အောက်ပါ macro ကို အသုံးပြုနိုင်သည်။
SubCheckBlank ()
Dim i As Integer
For i = 2 To 13
If IsEmpty(Range(" A " & i)) Then
Result = “ Cell is Empty ”
Else
Result = Range(" A " & i).Value
End If
Range(" B " & i) = Result
Next i
End Sub
ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။
ကော်လံ B သည် ဆဲလ်အလွတ်မဟုတ်ပါက ကော်လံ A တွင် အသင်းအမည်ကို ယခု ပြန်ပေးသည်။
မှတ်ချက် – VBA IsEmpty နည်းလမ်းအတွက် စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာတွေ့နိုင်ပါသည်။
ထပ်လောင်းအရင်းအမြစ်များ
အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-
VBA- စာကြောင်းတစ်ခုရှိ ဇာတ်ကောင်များ၏ ဖြစ်ပေါ်မှုကို ရေတွက်နည်း
VBA- စာကြောင်းတစ်ကြောင်းတွင် အခြားစာကြောင်းပါရှိမရှိ စစ်ဆေးနည်း
VBA- ဆဲလ်တွင် “ အကယ်၍” အတွက် ဖော်မြူလာတစ်ခု