Код VBA для формирования ячейки ввода, если значение, выбранное из списка проверки данных, соответствует условию

Question

Мне нужна помощь с кодом VBA. Ниже показано, как выглядит моя таблица, но по сути она работает так:

1. Электронная таблица предназначена для ввода бюджетов и учета расходов.

2. Столбец A — это список проверки данных, который является списком товаров, на которые у меня есть бюджеты. В этом примере мой список включает яблоки, апельсины, груши и бананы

3. Для каждого выбранного элемента пользователь вводит свой выделенный бюджет в столбец B (Бюджет) и формируются столбцы Расходы/Осталось. Таким образом, столбец B является столбцом ВХОДА

Проблема в том, что если пользователь выбирает бананы, то бюджет не требуется, поэтому я хочу сформулировать столбец B (столбец бюджета, который является столбцом ВХОДА) так, чтобы он автоматически считывал $ 0.00. Это тогда укажет пользователю, что бюджет не требуется.

Любая помощь будет оценена по достоинству.

Fruit    Budget     Spend   Remaining
APPLES   $100.00    $-       $100.00 
ORANGES  $150.00    $-       $150.00 
PEARS    $200.00    $-       $200.00 
BANANAS         $-       $-   

 

Answer 1

Я не думаю, что для столбца «Бюджет» требуется какой-либо код VBA, поскольку простая формула ЕСЛИ может решить эту проблему.

Эту формулу вы используете для столбца «Бюджет».

=IF(A2="Apple",100,IF(A2="Orange",150,IF(A2="Banana",0,IF(A2="Pear",120,"No Budget"))))

Примечание: При выборе банана формула установит 0, а поскольку в столбце «Расходы» указана другая формула, она перейдет к следующему шагу.

Также,«Бюджета нет»появится в столбце «Ввод»; если ни одно из имен не появится в столбце A, вы также можете заменить его ПУСТОМ.

Теперь о колонке «Расходы»(Столбец C). Для дальнейшего расчета на основе названия фрукта в столбце A и бюджетной стоимости в столбце B необходима приведенная ниже формула.

=IF(AND(A2="Apple",B2>0),B2+100,IF(AND(A2="Orange",B2>0),B2+150,IF(AND(A2="Pear",B2>0),B247+120,"No Budget")))

Надеюсь, это вам поможет.