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

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

နည်းလမ်း 1- အခြားစာရွက်မှ ဆဲလ်တစ်ခု၏တန်ဖိုးကို ရယူပါ။

 Sub GetCellAnotherSheet()
ActiveCell.Value = Worksheets(" Sheet2 ").Range(" A2 ") 
End Sub

ဤအထူးမက်ခရိုသည် Sheet2 ရှိ ဆဲလ် A2 မှ တန်ဖိုးကို ရရှိပြီး ၎င်းကို လက်ရှိအသုံးပြုနေသောဆဲလ်သို့ ပြန်ပေးမည်ဖြစ်သည်။

နည်းလမ်း 2- အခြားစာရွက်မှ ဆဲလ်တန်ဖိုးများ လည်ပတ်မှုရလဒ်ကို ရယူပါ။

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

ဥပမာအားဖြင့်၊ Sheet2 တွင် B2:B10 အပိုင်းအခြားရှိတန်ဖိုးများကိုထည့်ရန်နှင့် လက်ရှိအသုံးပြုနေသောဆဲလ်ရှိ ပေါင်းလဒ်ကို ပြန်ပေးရန်အတွက် အောက်ပါ syntax ကို သင်အသုံးပြုနိုင်သည်-

 Sub GetCellAnotherSheet()
ActiveCell.Value = WorksheetFunction.Sum(Worksheets(" Sheet2 ").Range(" B2:B10 "))
End Sub

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

ဥပမာ 1- အခြားစာရွက်မှ ဆဲလ်တစ်ခု၏တန်ဖိုးကို ရယူပါ။

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

Sheet1 ရှိ ဆဲလ် A2 ကို လက်ရှိတွင် တက်ကြွသောဆဲလ်အဖြစ် ရွေးချယ်ထားသည်။

Sheet2 ၏ဆဲလ် A2 တွင်တန်ဖိုးကိုရယူရန် အောက်ဖော်ပြပါ မက်ခရိုကို ဖန်တီးနိုင်ပြီး ၎င်းကို လက်ရှိအသုံးပြုနေသောဆဲလ်သို့ ပြန်ပို့ပေးနိုင်သည်-

 Sub GetCellAnotherSheet()
ActiveCell.Value = Worksheets(" Sheet2 ").Range(" A2 ") 
End Sub

ဤမက်ခရိုကို ကျွန်ုပ်တို့လုပ်ဆောင်သောအခါ၊ Sheet1 ၏ဆဲလ် A2 ၏တန်ဖိုးကို ယခု Sheet2 ၏ဆဲလ် A2 ၏တန်ဖိုးနှင့်ကိုက်ညီသည့် “ Mavs” ဟုသတ်မှတ်ထားသည်ကို ကျွန်ုပ်တို့တွေ့မြင်နိုင်သည်-

ဥပမာ 2: အခြားစာရွက်မှ ဆဲလ်တန်ဖိုးများ လည်ပတ်မှုရလဒ်ကို ရယူပါ။

အမျိုးမျိုးသော ဘတ်စကတ်ဘောကစားသမားများအကြောင်း အချက်အလက်ပါ၀င်သော Sheet2 ဟုခေါ်သော အောက်ဖော်ပြပါစာရွက်တွင် ကျွန်ုပ်တို့တွင် ရှိနေသည်ဟု ထပ်မံယူဆကြပါစို့။

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

 Sub GetCellAnotherSheet()
ActiveCell.Value = WorksheetFunction.Sum(Worksheets(" Sheet2 ").Range(" A2 "))
End Sub

ဤမက်ခရိုကို ကျွန်ုပ်တို့လုပ်ဆောင်သောအခါ၊ Sheet2 ၏ A2:A10 အပိုင်းအခြားရှိ တန်ဖိုးများပေါင်းလဒ်များကို Sheet1 ၏ဆဲလ် A2 တွင် ပြသနေပြီဖြစ်သည်

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

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

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