Vba- ကိန်းရှင်တစ်ခုရှိ ဆဲလ်တစ်ခု၏တန်ဖိုးကို မည်သို့ဖတ်ရမည်နည်း။

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

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

ဤထူးခြားသော macro သည် CellVal ဟုခေါ်သော လိုင်းပြောင်းကိန်းတစ်ခုကို ဖန်တီးပြီး လက်ရှိအသုံးပြုနေသောစာရွက်၏ ဆဲလ် A1 ၏တန်ဖိုးကို ကိန်းရှင်သို့ဖတ်သည်။

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

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

ဥပမာ- VBA ရှိ ကိန်းရှင်တစ်ခုရှိ ဆဲလ်တစ်ခု၏တန်ဖိုးကို မည်သို့ဖတ်ရမည်နည်း။

ဆဲလ် A1 တွင် 500 တန်ဖိုးရှိသော Excel စာရွက်တစ်ခုရှိသည်ဆိုပါစို့။

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

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

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

မက်ခရိုသည် ဆဲလ် A1 မှ တန်ဖိုး 500 ပါရှိသော ကိန်းရှင်၏တန်ဖိုးကို ပြသသည်။

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

ဥပမာအားဖြင့်၊ ကျွန်ုပ်တို့သည် ဆဲလ် A1 ၏တန်ဖိုးကို variable အဖြစ်ဖတ်ရန် အောက်ပါ macro ကိုဖန်တီးနိုင်ပြီး၊ ထို့နောက် ထိုတန်ဖိုးကို 5 ဖြင့်မြှောက်သည့် မက်ဆေ့ချ်ဘောက်စ်တစ်ခုကို ဖန်တီးနိုင်သည်-

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal * 5

End Sub

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

မက်ခရိုသည် 5 နှင့် မြှောက်ထားသော variable ၏တန်ဖိုးကိုပြသသည်၊ 500 * 5 = 2500 ဖြစ်သွားသည်။

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

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

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