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

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

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

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell value in Sheet2 equal to cell value in Sheet1
    wks2.Range(" A2 ").Value = wks1.Range(" A2 ").Value
    
End Sub

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

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

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell range in Sheet2 equal to cell range in Sheet1
    wks2.Range(" A2:A11 ").Value = wks1.Range(" A2:A11 ").Value
    
End Sub

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

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

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

မတူညီသော ဘတ်စကတ်ဘောအသင်းများ၏ အမည်များပါရှိသော Sheet1 ဟုခေါ်သော အောက်ပါစာရွက်ရှိသည်ဆိုပါစို့။

ကျွန်ုပ်တို့တွင် ခေါင်းစီးအတန်းတစ်ခုသာပါရှိသော Sheet2 ရှိသည်ဆိုပါစို့။

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

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell value in Sheet2 equal to cell value in Sheet1
    wks2.Range(" A2 ").Value = wks1.Range(" A2 ").Value
    
End Sub

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

ဥပမာ 2- အခြားစာရွက်တွင် ဆဲလ်များစွာတန်ဖိုးများကို သတ်မှတ်ပါ။

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

ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell range in Sheet2 equal to cell range in Sheet1
    wks2.Range(" A2:A11 ").Value = wks1.Range(" A2:A11 ").Value
    
End Sub

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

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

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

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