VBA pranešimų dėžutė, skirta atnaujinti šiandienos „Microsoft Excel“ dieną

Anonim

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ą.