Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2020, 09:39   #1
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию выполнение нескольких условий 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 в 09:49.
DMITRIY_78 вне форума Ответить с цитированием
Старый 21.01.2020, 15:47   #2
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

вопрос решил сам, всем спасибо
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Старый 22.01.2020, 07:23   #3
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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