Страницы: 1
RSS
msgbox время
 
нашел такой msgbox в файле на работе, очень заинтересовал, но вот время там не показывает только нолики, объясните пожалуйста что сделать чтоб и время показало,
Код
Sub STARTALL()



StartTimer = Now()
StartTimer2 = Now()
Application.ScreenUpdating = False



EndTimer2 = Now

TIX = "It's taken: " & Format(CDbl(EndTimer2) - CDbl(StartTimer2), "hh:mm:ss")

If Time < 0.5 Then
MsgBox "GOOD MORNING" & vbCrLf & "Alex" _
, vbExclamation + vbOKOnly, "Andy" & " " & TIX
ElseIf Time >= 0.5 And Time < 0.75 Then
MsgBox "GOOD AFTERNOON" & vbCrLf & "Alex" _
, vbExclamation + vbOKOnly, "Andy" & " " & TIX
Else
MsgBox "GOOD EVENING" & vbCrLf & "Alex" _
, vbExclamation + vbOKOnly, "Andy" & " " & TIX
End If
End Sub
 
Цитата
Aleksejs Bogdanovs написал:
объясните пожалуйста что сделать чтоб и время показало
попросить разработчика  Excel , чтоб операция
Цитата
Aleksejs Bogdanovs написал:
Application.ScreenUpdating = False
имела альтернативу с типом LONG  :D  и выполнялась продолжительное время  8-0
По вопросам из тем форума, личку не читаю.
 
Цитата
Цитата
написал:
время показало
Время, оно такое, время, оно покажет, оно такое покажет, что глаза не смотрели б.
Код
TIX = "It's taken: " & Format(StartTimer2, "hh:mm:ss")
Изменено: esheg - 27.11.2021 09:18:45
 
Предложите название темы (см. правила форума). Заменят модераторы.
Страницы: 1
Наверх