Vba ကို အသုံးပြု၍ လ၏ ပထမနေ့ကို မည်သို့ရှာရမည်နည်း။

ဆဲလ်တစ်ခုရှိ ရက်စွဲတစ်ခုအတွက် လ၏ပထမနေ့ကိုရှာဖွေရန် နေ့အငြင်းအခုံအတွက် 1 တန်ဖိုးဖြင့် VBA ရှိ DateSerial() လုပ်ဆောင်ချက်ကို သင်အသုံးပြုနိုင်ပါသည်။

ဥပမာအားဖြင့်၊ သင်သည် ဆဲလ် A1 ရှိ ရက်စွဲအတွက် လ၏ ပထမနေ့ကို ရှာဖွေရန်နှင့် ဆဲလ် B1 တွင် ထိုရက်စွဲကို ပြန်ပို့ပေးရန် အောက်ပါ syntax ကို အသုံးပြုနိုင်သည်။

 dateVal = DateValue(Range(" A1 "))

Range(" B1 ").Value = DateSerial(Year(dateVal), Month(dateVal), 1)

ဥပမာအားဖြင့်၊ ဆဲလ် A1 တွင် 1/5/2023 ပါရှိပါက ဆဲလ် B1 သည် 1/1/2023 သို့ ပြန်သွားပါမည်။

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

ဥပမာ- လ၏ပထမနေ့ကိုရှာရန် VBA ကိုသုံးပါ။

ကုမ္ပဏီတစ်ခုတွင် မတူညီသောရက်စွဲများဖြင့် ရောင်းချခြင်းဆိုင်ရာ အချက်အလက်များပါဝင်သော Excel တွင် ကျွန်ုပ်တို့တွင် အောက်ပါဒေတာအစုံရှိသည်ဆိုပါစို့။

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

ဒါကိုလုပ်ဖို့ အောက်ပါ syntax ကို သုံးနိုင်ပါတယ်။

 SubFirstDayOfMonth ()

Dim i As Integer

For i = 2 To 11
    dateVal = DateValue(Range(" A " & i))
    Range(" C " & i).Value = DateSerial(Year(dateVal), Month(dateVal), 1)
Next i

End Sub

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

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

မှတ်ချက် #1- ကုဒ်တွင်၊ ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့စိတ်ဝင်စားသည့်ရက်စွဲများပါ၀င်သောကြောင့် ဆဲလ် A2 မှ A11 တွင် i = 2 မှ 11 ကို အသုံးပြုခဲ့သည်။ သင်အသုံးပြုလိုသည့် ဆဲလ်အကွာအဝေးပေါ်မူတည်၍ ဤအပိုင်းအခြားကို ပြောင်းလဲနိုင်သည်။

မှတ်ချက် #2- VBA တွင် DateSerial() လုပ်ဆောင်ချက်၏ စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာတွေ့နိုင်ပါသည်။

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

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

VBA မှာ ရက်စွဲအလိုက် ဘယ်လိုစီမလဲ။
VBA တွင် ရက်စွဲနှစ်ခုကြားရှိလျှင် ထည့်နည်း
VBA တွင် ရက်စွဲထက် ကြီးသောရေတွက်နည်း