Microsoft Word yog qhov cuab yeej muaj zog rau kev tsim cov ntawv sau. Nrog nws cov kev pab, koj tuaj yeem tsim ib daim ntawv qhia hnub nyoog yooj yim, uas tuaj yeem hu tau los ntawm txhaj nrog lub pob kom tsim nyog hauv lub txheej txheem. Txhawm rau ua qhov no, koj yuav tsum tau siv Microsoft Visual Basic vam, uas yog nruab nrog nrog rau Microsoft Office pob.
Cov Lus Qhia
Kauj ruam 1
Tsim lo lus ntawv thiab khaws nws ua qauv. Txhawm rau ua qhov no, siv cov ntawv qhia zaub mov tsim nyog "Cov Ntaub Ntawv" (rau Chaw Ua Haujlwm 2007 thiab siab dua - Microsoft Office khawm nyob rau sab saud) - "Tshiab" - "Daim Ntawv Tsis Txaus", thiab tom qab ntawd "Txuag Raws Li" - "Lo Lus Template" Cov.
Kauj ruam 2
Qhib Visual Basic programming ib puag ncig los ntawm nias qhov tseem ceeb ua ke alt="Duab" thiab F11. Lub khoos phis tawm ntawm lub qhov rais yuav qhib, uas nias tus yuam sij "F7".
Kauj ruam 3
Rau sab saum toj ntawm lub qhov rais, xaiv "Ntxig" - "Tus Neeg Siv Daim Ntawv". Xaiv lub "Cuab Yeej" - "Ntxiv Tswj" zaub mov. Hauv cov ntawv qhia pop-up, xaiv lub thawv tom ntej no "Calendar Tswj" (lossis "Cov Ntawv Tswj Xyuas). Nyem "Ok".
Kauj ruam 4
Nyem rau "Icon" icon uas tshwm nyob rau hauv "Toolbox" control panel. Txav mus rau lub pointer nas hla lub duab thiab kos duab plaub fab raws li qhov koj xav tau rau daim calendar.
Kauj ruam 5
Koj tuaj yeem hloov cov kev xaiv zaub rau lub caij nyoog. Txhawm rau ua qhov no, nyob rau sab laug ntawm lub qhov rais, hauv cov ntawv qhia zaub mov "Properties", xaiv "Nchuav" thiab nyem rau ntawm lub pob nrog lub ellipsis hauv sab xis ntawm kab. Hauv pop-up qhov rais, xaiv cov chaw uas yuav tsum tau ua. Hauv seem "Font" thiab "Xim", koj tuaj yeem xaiv qhov tsis txwv ntawm daim phiaj cuab tam nws tus kheej. Tom qab ua tag nrho cov kev teeb tsa, nyem "OK".
Kauj Ruam 6
Nyem rau ntawm lub npe ntawm daim ntawv, thiab hauv "Cov Khoom" (kab "Caption") koj tuaj yeem qhia lub npe "Meem". Cov npe yuav pauv.
Kauj Ruam 7
Txhawm rau npaj kaw ntawm daim ntawv qhia hnub los ntawm nias lub pob "Esc". Txhawm rau ua li no, xaiv lub pob "CommandButton" hauv ToolBox, kos nws. Hloov tus nqi hauv Kev Tshawb Fawb Hauv Cov Khoom Uas Yog Tseeb. Nias F7, nkag nruab nrab ntawm ob kab "Ntog Sub.." thiab "End Sub" kab "Unload Me", ces nyem "OK".
Kauj ruam 8
Txhawm rau nthuav tawm hnub tam sim no hauv daim ntawv qhia hnub, muab tshuaj txhuam cov code tom qab cov khoom "Private Sub Calendar1_Click ()": Tus Tswv Qhia Tus Kheej Sub UserForm_Initialize ()
Daim qhia hnub hli 1. Txawm
Xaus Sub
Kauj Ruam 9
Txhawm rau muab daim ntawv qhia hnub rau hauv cov ntawv uas tsim ntawm daim qauv, xaiv cov lus txib "Ntxig" - "Module" thiab nkag mus: Sub OpenCalendar ()
UserForm1. Show
Xaus Sub
Kauj ruam 10
Nyem rau "Txuag" khawm ntawm lub cuab tam (lossis "Cov Ntaub Ntawv" - "Txuag"). Koj tuaj yeem kaw cov editor.
Kauj ruam 11
Txhawm rau kuaj nws, nias alt="Duab" thiab F8 hauv Lo Lus. Ntaus "OpenCalendar", nyem "Khiav." Daim ntawv qhia hnub yuav qhib. Txuag tsim qauv tsim.
