Цитата SamsungC095:
|
А можно небольшой пример? Или код с пометками, где можно менять то или другое? »
|
Пример:
А- номер по порядку
В - наименование продукта
С - код продукта
D -Цена продукта
это шапка таблицы.
Задача : посчитать скоко всё это стоит.
s=range("A1").current region.rows.count
for x=1 to s-1
range("A1").activate
selection.offset(x,4).select
tekuhaya_stoymost=activecell.value
obsthaya_stoymost=obsthaya_stoymost+tekuhaya_stoymost
next x
range("E1").activate
activecell.value=obsthaya_stoymost
msgbox("Общая стоимость - справа таблицы в первой строке")
___
Огромная подсказка - включив запись создаваемого макроса - визуально
щелкать по кнопкам (например - щёлкаем по любой ячейке шапки таблицы, далее Сервис - Данные - Автофильтр - любое из предлагаемых значений в списке) далее -стоп записи макроса. Затем Сервис - Макросы - выбрать только что записанный и "Изменить макрос" - и вы во внутреннем коде программы - Такми образом совершая любые визуально последовательные действия -щёлкая по кнопкам меню и включая создание и применение формул к конкретным ячейкам - в режиме записи макроса - остановив запись и перейдя внутрь его Вы увидите как организован этот код ваших последовательных действий в коде VBA - дальше дело техники и практики.
