Запуск макроса при изменении только 2х ячеек

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

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

Запуск макроса при изменении только 2х ячеек (Макросы/Sub)

Александр7034

Дата: Вторник, 28.02.2023, 15:45 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 58

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

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

Подскажите, знаю что должен быть оператор AND но не пойму как вписать правильно. Нужно что бы разблокировался combobox, но только после того как в ячейку B3 и C3 внесли какие либо данные. В моем примере изменение одной любой ячейки уже разблокируют combobox. А нужно только когда в обе была выполнена запись.
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3,C3]) Is Nothing Then
ComboBox1.Enabled = True
End If
End Sub

[/vba]

Ответить

Serge_007

Дата: Вторник, 28.02.2023, 16:14 | Сообщение № 2

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If [B3] <> "" And [C3] <> "" Then
        ComboBox1.Enabled = True
    End If
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Александр7034

Дата: Среда, 01.03.2023, 11:16 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 58

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

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

Благодарю. А как это правило потом убрать? После того как данные в ячейки введены и выбран нужный элемент из списка выбора, пользователю нужно ограничить что то выбирать из списка ComboBox1. Реализовал путем того что после нажатия на кнопку CommandButton1, сохраняется документ и выбор списка становится не активным
[vba]

Код

Private Sub CommandButton1_Click()
ComboBox1.Enabled = False
ComboBox1.ListFillRange = ""
..................

[/vba]
Вот только стоит изменить в ячейках В3 С3 что либо как ComboBox1 опять доступен для выбора. Можно конечно скрыть список выбора, но там тогда останется некрасивое пустое поле.