Combobox и совмещенная ячейка

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

ekut

Дата: Четверг, 09.04.2020, 14:31 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 195

Репутация: 3 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте! Подскажите, пожалуйста, почему Combobox совместно с данным макросом не работает на объединенной ячейке (Лист 3)? Подскажите, где моя ошибка. Благодарю заранее.

К сообщению приложен файл: __Combobox.xlsm (31.1 Kb)

Ответить

nilem

Дата: Четверг, 09.04.2020, 15:08 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

ekut, привет
С2:Е2 - это 3 ячейки, поэтому срабатывает If Target.Count > 1 Then Exit Sub
Попробуйте как-то так что ли:
[vba]

Код

If Target.Count > 4 Then Exit Sub

[/vba]
Но лучше с объединенными ячейками не связываться )

Яндекс.Деньги 4100159601573

Ответить

Pelena

Дата: Четверг, 09.04.2020, 15:09 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Мешает строка
[vba]

Код

If Target.Count > 1 Then Exit Sub

[/vba]
которая ограничивает кол-во выделенных ячеек одной.
Как исправить, зависит от того, какие ячейки ещё будут задействованы для комбобокса

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

_Boroda_

Дата: Четверг, 09.04.2020, 15:20 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

Репутация: 6504 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Уберите строку
[vba]

Код

If Target.Count > 1 Then Exit Sub

[/vba]
У Вас выделяется объединенная ячейка, то есть не одна ячейка, а 3 сразу

* Да и на первом листе эта строка не так уж и нужна

А если очень хочется, то можно еще вот так написать
[vba]

Код

If Target(1).MergeArea.Count <> Target.Count Then Exit Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

ekut

Дата: Четверг, 09.04.2020, 15:36 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 195

Репутация: 3 ±

Замечаний: 0% ±

Excel 2007

Спасибо всем огромное!!! Очень рада всех вас услышать............Разбираюсь!!!!

Ответить

Combobox и совмещенная ячейка

Страница 1 из 1
1