Макросы (VBA) в Excel

5Валентин5, 370 просмотров

Добрый день.
Помогите пожалуйста сделать макрос на VBA в Excel:
В ячейки A1 и A2 могут быть определенные значения. В зависимости от того, какие значения будут в A1 и A2, после нажатия кнопки, будет увеличиваться значение на 1 в ячейки, соответствующей комбинации значений в ячейки A1 и A2.
Пример:
В ячейку A1 вбили 23 (в ячейку A1 можно вбить только 23, 30 или 77), а в ячейку A2 вбили 14 (в ячейку A2 можно вбить только 14 или 16). После нажатия кнопки, в ячейки соответствующей это комбинации (к примеру, D1), значение будет увеличиваться на 1 значение и так далее – в зависимости от комбинаций значение A1 и A2, в ячейки соответствующей значениям, написанным в A1 и A2, будет увеличиваться значение на 1. Скажем, если были выбраны значения 23 и 16, то после нажатия кнопки увеличилось значение в ячейки D2 или были выбраны значения 77 и 16, то в этом случае значение увеличится в ячейки D3.
Помогите пожалуйста.

Ответы:

В ячейках A1 и А2 делаете проверку по списку, чтобы нельзя было ввести неправильные значения. Готовый пример во вложении. Удачи!

Если я правильно понял, то все очень просто. Вы создаете кнопку, навешиваете на нее макрос примерно следующего содержания:
Sub Click()
Set Sheet = ActiveSheet
A1 = Sheet.Range("A1").Value
A2 = Sheet.Range("A2").Value
Select Case A1
Case 23 And A2 = 14
Sheet.Range("D1").Value = Sheet.Range("D1").Value + 1
Case 23 And A2 = 16
Sheet.Range("D2").Value = Sheet.Range("D2").Value + 1
Case 77 And A2 = 16
Sheet.Range("D3").Value = Sheet.Range("D3").Value + 1
End Select
End Sub

Алексей Матевосов

Можно так
Sub Macros()
a = Cells(1, 1) & Cells(2, 1)
If a = 2314 Then i = 1
If a = 2316 Then i = 2
If a = 3014 Then i = 3
If a = 3016 Then i = 4
If a = 7714 Then i = 5
If a = 7716 Then i = 6
If i <> Empty Then Cells(i, 4) = Cells(i, 4) + 1
End Sub
i - это номер строки где происходит счет при определенных комбинациях в А1и А2. Номера подберете под ваш пример, я это не делал.
Делаете кнопку и назначаете ей макрос.

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.