Jei norite automatiškai atnaujinti šiandienos savaitės dieną, šis straipsnis skirtas jums. Šiame straipsnyje pagrindinis dėmesys skiriamas dabartinės savaitės dienos vartotojo atnaujinimui per „vba“ „msgbox“.
Klausimas): Noriu kodo, kuris nustatytų savaitės dieną.
Norėdami paleisti VB redaktorių, turime atlikti šiuos veiksmus
- Spustelėkite skirtuką Kūrėjas
- Iš kodų grupės pasirinkite „Visual Basic“
- Spustelėkite Įterpti, tada - Modulis
- Tai sukurs naują modulį
- Į modulį įveskite šį kodą
Šiandienos diena ()
Pasirinkite atvejo datos dalį („w“, data, „vbMonday“)
1 atvejis
„MsgBox“ pirmadienis
2 atvejis
„MsgBox“ antradienis
3 atvejis
„MsgBox“ trečiadienis
4 atvejis
„MsgBox“ ketvirtadienis
5 atvejis
„MsgBox“ penktadienis
6 atvejis
„MsgBox“ „Sat“
7 atvejis
„MsgBox“ saulė
Pabaiga Pasirinkite
Pabaiga Sub
Pastaba: Šiandien data yra 2015 m. Birželio 5 d., Ty penktadienis
„VbPirmadienis“ naudojamas grįžti pirmadienį kaip pirmą savaitės dieną; jei sekmadienis yra pirmoji savaitės diena, turite naudoti „VbSunday“
- Norėdami atidaryti makrokomandų langą, paspauskite klavišų kombinaciją ALT + F8
- Pasirinkite ką tik sukurtą makrokomandą
- Spustelėkite Vykdyti ir gausime šiandienos datos pavadinimą.
- Jei norite pakeisti formatą iš penktadienio į penktadienį
- Turite šiek tiek pakeisti kodą
Šiandienos diena ()
Pasirinkite atvejo datos dalį („w“, data, „vbMonday“)
1 atvejis
„MsgBox“ pirmadienis
2 atvejis
„MsgBox“ antradienis
3 atvejis
„MsgBox“ trečiadienis
4 atvejis
„MsgBox“ ketvirtadienis
5 atvejis
„MsgBox“ penktadienis
6 atvejis
„MsgBox“ „Šeštadienis“
7 atvejis
„MsgBox“ sekmadienis
Pabaiga Pasirinkite
Pabaiga Sub
- Šį kartą galėsite rodyti visą dienos pavadinimą.
Čia mes galime naudoti VBA pranešimų laukelį, norėdami pranešti vartotojui apie esamą savaitės dieną.
