Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 21.01.2020, 10:39   #1
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 113
По умолчанию выполнение нескольких условий if

Ребята здравствуйте! знаю что вопрос банальный, НО не получается, выполнить несколько условий
в CheckBox - ах не должно быть пусто и не должно быть в обоих "true"
Код:
'=============== ПРОВЕРКА УСЛОВИЙ
If CheckBox1.Value = True Then
   Range("AS19") = TextBox5.Value 'сумма процент
     ElseIf CheckBox2.Value = True Then
        Range("AS19") = TextBox2.Value      'основная сумм
'печать =======
Me.Hide
With Sheets("ПКО")
    Application.ScreenUpdating = False
    ActiveWorkbook.Save
    .Visible = True
    .PrintPreview
    .Visible = 2
    Application.ScreenUpdating = True
End With
FrmPKO.Show
'==============
Else
MsgBox "не установлена ни одна отметка"
Exit Sub
End If
    MsgBox "установлены все отметки"
Exit Sub
может печать вывести в отдельный модуль?

Последний раз редактировалось DMITRIY_78; 21.01.2020 в 10:49.
DMITRIY_78 вне форума Ответить с цитированием
Старый 21.01.2020, 16:47   #2
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 113
По умолчанию

вопрос решил сам, всем спасибо
DMITRIY_78 вне форума Ответить с цитированием
Старый 22.01.2020, 08:23   #3
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,292
По умолчанию

if CheckBox1 = Checkbox2 then
' значит в обоих одно и то же, а такого быть не должно!!!
end if
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выполнение условий при клике на одну из кнопок riko.kafto C# (си шарп) 2 19.03.2018 01:52
формула ЕСЛИ для нескольких условий Tviga Microsoft Office Excel 15 17.12.2015 21:51
Формула если для нескольких условий Norman555 Microsoft Office Excel 0 18.03.2015 22:28
Работа с Label выполнение условий SKS Общие вопросы Delphi 9 23.03.2013 04:07
Создание нескольких условий, Java Clue Общие вопросы по Java, Java SE, Kotlin 4 20.10.2010 05:21


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS