Ако искате автоматично да се актуализирате днешния ден от седмицата, тогава тази статия е за вас. Тази статия се фокусира върху актуализирането на потребителя в текущия ден от седмицата чрез msgbox във vba.
Въпрос): Искам код за определяне на деня от седмицата.
Трябва да следваме стъпките по -долу, за да стартираме VB редактор
- Кликнете върху раздела Разработчик
- От групата кодове изберете Visual Basic
- Кликнете върху Вмъкване, след това Модул
- Това ще създаде нов модул
- Въведете следния код в модула
Под днешния ден ()
Изберете Case DatePart ("w", Date, vbMonday)
Случай 1
MsgBox "Mon"
Случай 2
MsgBox "Вторник"
Случай 3
MsgBox "Ср."
Случай 4
MsgBox "Thur"
Случай 5
MsgBox "Пет"
Случай 6
MsgBox "Sat"
Случай 7
MsgBox "Слънце"
Край Изберете
End Sub
Забележка: Днешната дата е 5 юни 2015 г., т.е. петък
„Vb понеделник“ се използва за връщане понеделник като първи ден от седмицата; в случай, че неделята е първият ден от седмицата, тогава трябва да използвате „VbSunday“
- Натиснете клавишната комбинация ALT + F8, за да отворите прозореца за макроси
- Изберете макроса, който току -що сте създали
- Кликнете върху Run и ще получим името на днешната дата.
- Ако искате да промените формата от петък на петък
- Трябва да направите леки промени в кода
Под днешния ден ()
Изберете Case DatePart ("w", Date, vbMonday)
Случай 1
MsgBox "понеделник"
Случай 2
MsgBox "вторник"
Случай 3
MsgBox "Сряда"
Случай 4
MsgBox "Четвъртък"
Случай 5
MsgBox "Петък"
Случай 6
MsgBox "Събота"
Случай 7
MsgBox "Неделя"
Край Изберете
End Sub
- Този път ще можете да покажете пълното име на деня.
В това можем да използваме кутия за съобщения VBA, за да уведомим потребителя за текущия ден от седмицата.
