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

Question

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

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

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

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

У меня проблема в том, что если пользователь выбирает бананы, бюджет не требуется, поэтому я хочу сформулировать столбец 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 может решить эту проблему.

Вы используете эту формулу для столбца бюджета.

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

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

Кроме того, "Нет бюджета" появится в столбце ввода, если ни одно из имен не будет отображаться в столбце А, вы также можете заменить его на ПУСТОЙ ПРОБЕЛ.

Теперь о колонке «Расход» (колонка С). Для дальнейшего расчета необходима нижеприведенная Формула расчета на основе названия фруктов в столбце 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")))

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