Vba (ဥပမာဖြင့်) ကိုအသုံးပြု၍ ဇယားတစ်ခုတွင် အတန်းများရေတွက်နည်း

VBA ကို အသုံးပြု၍ Excel တွင် ဇယားတစ်ခုရှိ အတန်းအရေအတွက်ကို ရေတွက်ရန် အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

ဤဥပမာသည် Table1 ဟုခေါ်သော လက်ရှိစာရွက်ရှိ ဇယားအတွက် အောက်ပါ အတန်းအရေအတွက်ကို ရေတွက်သည်-

• စုစုပေါင်းလိုင်းအရေအတွက်
• ခေါင်းစီးစာကြောင်း စုစုပေါင်း အရေအတွက်
• စုစုပေါင်း ကိုယ်ထည်လိုင်းများ

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

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

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

ဥပမာ- VBA ကို အသုံးပြု၍ ဇယားတစ်ခုရှိ အတန်းများကို ရေတွက်နည်း

အမျိုးမျိုးသော ဘတ်စကတ်ဘောကစားသမားများအကြောင်း အချက်အလက်ပါရှိသော Table1 ဟုခေါ်သော အောက်ပါဇယားကို ကျွန်ုပ်တို့တွင်ရှိသည်ဆိုပါစို့။

ဤဇယားရှိ အတန်းအရေအတွက်ကို ရေတွက်ရန် အောက်ပါ မက်ခရိုကို ဖန်တီးနိုင်သည်။

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

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

ဇယားကွက်တွင် စုစုပေါင်း 10 တန်းရှိကြောင်း မက်ဆေ့ဘောက်စ်တွင် ဖော်ပြထားသည်။

၎င်းသည် ခေါင်းစီးအတန်း 1 ခု နှင့် စာကိုယ်အတန်း 9 ခုရှိကြောင်းကိုလည်း ပြောပြသည်။

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

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

VBA ကို အသုံးပြု၍ အကွာအဝေးရှိ ထူးခြားသောတန်ဖိုးများကို ရေတွက်နည်း
VBA ကို အသုံးပြု၍ အပိုင်းအခြားတစ်ခုအတွင်းရှိ အတန်းအရေအတွက်ကို ရေတွက်နည်း
VBA ကို အသုံးပြု၍ သီးခြားစာသားဖြင့် ဆဲလ်များကို ရေတွက်နည်း