fbpx

သင်ဟာ 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

ကံကောင်းပါစေ!



Source by Andy J Brown

Comments are closed, but trackbacks and pingbacks are open.