Данные с трех чекбоксов в одну ячейку - Microsoft Office Excel

pips · 28.04.2018, 16:18

Добрый день!
Не могу найти решения в интернете.
Есть три чекбокса, нажимаем на первый и третий - они оба должны записаться в одну ячейку. Первый чекбокс выключаем - остается значение только третьего. И так для всех вариантов.
Нашел вот такой код, но отладчик ругается "Argument is not optional" на строчку "Sub UpdateCells()"
Прошу помощи в решении проблемы.

Код:

Private Sub CheckBox1_Click()
    Range("M10").Value = "Текст1"
    UpdateCells
End Sub
Private Sub CheckBox2_Click()
    Range("M10").Value = "Текст2"
    UpdateCells
End Sub
Private Sub CheckBox3_Click()
    Range("M10").Value = "Текст3"
    UpdateCells
End Sub
    Sub UpdateCells()
    Range("M10") = IIf(CheckBox1, "Текст1") & IIf(CheckBox2, "Текст2") & IIf(CheckBox3, "Текст3")
End Sub

Serge_Bliznykov · 28.04.2018, 16:38

тут смотрели - http://www.programmersforum.ru/showthread.php?t=170483 ?

имхо, iif вы криво переписали, там же должен быть три аргумента - первый условие, и потом два значения.

pips · 28.04.2018, 16:42

Да, именно этот код и переписал. Спасибо, попробую исправить

pips · 28.04.2018, 16:46

Спасибо, думал в гугле забанят) Действительно, не дописал значение "FalsePart"

28.04.2018, 16:18	#1
pips Регистрация: 28.04.2018 Сообщений: 4	Данные с трех чекбоксов в одну ячейку Добрый день! Не могу найти решения в интернете. Есть три чекбокса, нажимаем на первый и третий - они оба должны записаться в одну ячейку. Первый чекбокс выключаем - остается значение только третьего. И так для всех вариантов. Нашел вот такой код, но отладчик ругается "Argument is not optional" на строчку "Sub UpdateCells()" Прошу помощи в решении проблемы. Код: `Private Sub CheckBox1_Click() Range("M10").Value = "Текст1" UpdateCells End Sub Private Sub CheckBox2_Click() Range("M10").Value = "Текст2" UpdateCells End Sub Private Sub CheckBox3_Click() Range("M10").Value = "Текст3" UpdateCells End Sub Sub UpdateCells() Range("M10") = IIf(CheckBox1, "Текст1") & IIf(CheckBox2, "Текст2") & IIf(CheckBox3, "Текст3") End Sub` Последний раз редактировалось pips; 28.04.2018 в 16:23.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Массив чекбоксов, как в PHP узнать, какой из чекбоксов выбран?	scalpel	WordPress и другие CMS	12	06.04.2017 12:09
Как дважды ввести данные в одну ячейку?	valerij	Microsoft Office Excel	17	20.02.2016 16:35
Подтянуть данные из нескольких столбцов в одну ячейку	shadowpuppet	Microsoft Office Excel	1	26.12.2015 02:03
Записать в одну ячейку данные?	Stem79	Microsoft Office Excel	21	06.02.2013 00:18
Перегнать данные из столбца в одну ячейку	KROZORS	Microsoft Office Access	2	17.06.2009 17:58

28.04.2018, 16:38	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	тут смотрели - http://www.programmersforum.ru/showthread.php?t=170483 ? имхо, iif вы криво переписали, там же должен быть три аргумента - первый условие, и потом два значения.

28.04.2018, 16:42	#3
pips Регистрация: 28.04.2018 Сообщений: 4	Да, именно этот код и переписал. Спасибо, попробую исправить

28.04.2018, 16:46	#4
pips Регистрация: 28.04.2018 Сообщений: 4	Спасибо, думал в гугле забанят) Действительно, не дописал значение "FalsePart"