သင်ဟာ Excel ကို Macro အသုံးပြုခြင်းစဉ်းစားပါကဘာလဲသင့်ရဲ့စစ်မှန်တဲ့ချစ်ခြင်းမေတ္တာသည်ကိုပြောပြပါလုပ်နည်း – Valentine Day ကိုအဘို့အ Excel ကို
ဒီ Valentine Day ကိုသငျသညျသူ့ကိုကိုချစ်ကြောင်းကိုသင်၏ချစ်ရသူ / သူမ၏ပြောပြရန်တစ်ခုမူရင်းလမ်းစေချင်သလား? အဘယ်ကြောင့်သူတို့ကိုတဲ့ pop-up စာတမ်းကိုနှင့်အတူတစ်ဦးစာအုပ်ပုံနှိပ်အီးမေးလ်ပို့ပါ! သင့်ရဲ့ရည်းစားပုစာအုပ်ပုံနှိပ်ဖွင့်လှစ်တဲ့အခါသူတို့ကသူတို့ကိုသင့်ရဲ့စစ်မှန်တဲ့ခံစားချက်တွေကိုပြောပြမယ့်မက်ဆေ့ခ်ျကိုမြင်လိမ့်မည်။
ဒီနေရာတွင်ကဘယ်လိုအလုပ်လုပ်တယ်ဆိုတာကိုင်:
1) အနေနဲ့ Excel ကိုစာအုပ်ပုံနှိပ်ဖန်တီးပါ။
အဆိုပါ Visual Basic ကုဒ်အယ်ဒီတာသို့သွားကြဖို့ 2) Alt + F11 ။
သင်ဤမမြင်နိုင်လျှင် 3) ကုဒ်အယ်ဒီတာရဲ့ဘယ်ဘက်ခြမ်းတွင်သင်သည်) ကဖွင့်လှစ်ရန်, (Ctrl + R ကိုစီမံကိန်း Explorer ကိုတွေ့ရမည်။
4) သင်ဟာနှင့်တကွ, လက်ဝဲဘက်အပေါ်စာအုပ်ပုံနှိပ် name ကိုမြင်ရပါလိမ့်မယ် Sheet1, Sheet2, Sheet3 နှင့် ThisWorkbook ကအောက်။ အပေါ်ကို Double-click နှိပ်ပြီး ThisWorkbook အဆိုပါစာအုပ်ပုံနှိပ်ရဲ့အသက်တာ၌ထိုအဖြစ်အပျက်ရဲ့ (သင်ကဖွင့်လှစ်သည့်အခါဤအမှု၌အဘယျအဖြစ်ပျက်) ၏တဦးတည်းမှကုဒ် attach ဖြစ်သည်။
5) သင်က code ကို window ၏ထိပ်မှာနှစ်ခု Drop-down မြှားကိုကြည့်ပါ။ လက်ရှိတွင်ပြောပါတယ်ရသောလက်ဝဲတဦးတည်း (ပေါ်တွင်ကလစ်နှိပ်ပါ ယေဘုယျ) နှင့်ရှေးခယျြ စာအုပ်ပုံနှိပ် အစား (ကသာသည်အခြားဖြစ်နိုင်ခြေ option ကို) ။
6) သင်ကယခုအောက်ပါကုဒ်ကိုတွေ့နိုင်ပါသည်:
ပုဂ္ဂလိက Sub Workbook_Open ()
အဆုံး Sub
ကုဒ်ဤနှစ်ခုလိုင်းများအကြားတစ်ဦးမက်ဆေ့ခ်ျကိုဖော်ပြရန် command တစ်ခုအတွက်အမျိုးအစား။ ဤကဲ့သို့သောတစ်ခုခုလုပ်လိမ့်မယ်:
MsgBox "ငါသည်သင်တို့ကိုချစ်!"
အနည်းငယ်ပိုပြီးအထင်ကြီး system အတွက်, သူတို့ကသင့်ရဲ့ချစ်သူများနေ့ဖြစ်လိမ့်မယ်ရှိမရှိသင်ချစ်တဦးတည်းကိုမေး:
ပုဂ္ဂလိက Sub Workbook_Open ()
Long ကကဲ့သို့ပင်မှေးမှိန်ဖြေ
အဖြေ = MsgBox ( "သင်သည်ငါ၏ချစ်သူများနေ့တော်မူမည်လော" vbQuestion + vbYesNo "Valentine Day ကို")
ထိုအခါအဖြေ = vbYes အကယ်.
MsgBox "ထိုအခါငါဥစ္စာဖြစ်ရလိမ့်မယ်!", vbExclamation + vbOKOnly
အခြားသူ
MsgBox "အိုး … ", vbExclamation + vbOKOnly
အကယ်. ရပ်တန့်
အဆုံး Sub
ကံကောင်းပါစေ!
Comments are closed, but trackbacks and pingbacks are open.