Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
В MsgBox вставить vbExclamation
 
#1
13.08.2013 12:52:29
Здравствуйте уважаемые.
Помогите пожалуйста с решением проблемы:
Есть макрос:
Код
Sub qwe()
     Dim rv As Long
      rv = MsgBox("Вы запустили макрос для выполнения отчета!", vbOKCancel, "Выполнение....")
       If rv = 1 Then
        Call svm
     Else
       MsgBox "Отменено выполнение данного отчета!!!", vbCritical
    End If
  End Sub


Где в строке:
Код
rv = MsgBox("Вы запустили макрос для выполнения отчета!", vbOKCancel, "Выполнение....")

можно вставить vbExclamation?
Спасибо заранее.
 
 
 
#2
13.08.2013 12:59:21
f1 по msgbox говорит что надо складывать тип с кнопками
answer = MsgBox("Do you want to quit?", vbExclamation + vbYesNo, "Confirm")
 
 
 
#3
13.08.2013 13:02:16
MsgBox Assistant из MZ-Tools предлагает Or :)
Код
Sub t()
rv = MsgBox("Вы запустили макрос для выполнения отчета!", vbOKCancel Or vbExclamation, "Выполнение....")
End Sub

или можно так

Sub tt()

Select Case MsgBox("Вы запустили макрос для выполнения отчета!", vbOKCancel Or vbExclamation, "Выполнение....")

    Case vbOK

    Case vbCancel

End Select

End Sub
Изменено: Hugo - 13.08.2013 13:05:54
 
 
 
#4
13.08.2013 13:28:06
Спасибо огромное за помощь.
 
 
 
#5
13.08.2013 14:14:10
Чуть короче ))
Код
MsgBox "Вы запустили макрос для выполнения отчета!", 1 + 48, "Выполнение...."
 
 
 
#6
26.08.2017 13:15:29
Спасибо. vbExclamation - треугольник жёлтый с восклицательным знаком https://images.search.yahoo.com/search/images;_ylt=AwrBT71iSaFZxf4AzmBXNyoA;_ylu=X3oDMTEyZ3Z1b2hvBGN...
 
 
 
Страницы: 1
Читают тему
Наверх