Я полный валенок в написании макросов, помогите пожалуйста реализовать задачу. Во вложении пример. Есть исходные данные, состоящие из 5и столбцов (от А до Е). Возможна ли реализация макроса, результатом которого будет наличие справа от исходной таблицы кнопки с надписью "Расчет"?, при нажатии которой будут осуществляться действия с исходной таблицей, выделенные желтым цветом и вывод результатов подсчетов (то, что выделено зеленым). Данный файл с макросом необходим как шаблон, в который я буду подставлять разные исходные данные. Объем подставляемых данных будет постоянно различным, но не более 2000 строк [moder]На изменение названия согласно Правилам форума Вам 30 минут (до 11:46). Иначе тему закрываю, а Вам замечание влепляю.
Добрый день, уважаемые форумчане!
Я полный валенок в написании макросов, помогите пожалуйста реализовать задачу. Во вложении пример. Есть исходные данные, состоящие из 5и столбцов (от А до Е). Возможна ли реализация макроса, результатом которого будет наличие справа от исходной таблицы кнопки с надписью "Расчет"?, при нажатии которой будут осуществляться действия с исходной таблицей, выделенные желтым цветом и вывод результатов подсчетов (то, что выделено зеленым). Данный файл с макросом необходим как шаблон, в который я буду подставлять разные исходные данные. Объем подставляемых данных будет постоянно различным, но не более 2000 строк [moder]На изменение названия согласно Правилам форума Вам 30 минут (до 11:46). Иначе тему закрываю, а Вам замечание влепляю.Manner
_Boroda_ сообщение Ваше видел, но не понимаю, что не так с названием темы и на какое его надо исправить?)
2.Очень ВАЖНО! При создании темы, давайте теме название, отражающее суть Вашей проблемы и указывайте предпочитаемый способ решения (формулы или макросы).
"Оптимизация расчетов" - это суть проблемы, "через макрос" - способ решения, что именно не так?
Если возможно, то конечно лучше через макрос. Просто это будет не индивидуальная таблица, а одно из составляющих одной большой формы по рассчету
_Boroda_ сообщение Ваше видел, но не понимаю, что не так с названием темы и на какое его надо исправить?)
2.Очень ВАЖНО! При создании темы, давайте теме название, отражающее суть Вашей проблемы и указывайте предпочитаемый способ решения (формулы или макросы).
"Оптимизация расчетов" - это суть проблемы, "через макрос" - способ решения, что именно не так?
Если возможно, то конечно лучше через макрос. Просто это будет не индивидуальная таблица, а одно из составляющих одной большой формы по рассчетуManner
Очень ВАЖНО! При создании темы, давайте теме название, отражающее суть Вашей проблемы и указывайте предпочитаемый способ решения (формулы или макросы).
А следующее предложение прочитать уже не смогли, да?
Цитата
Создавать темы типа «ХЕЛП», «Условное форматирование», «Проблема с макросом», «ПОМОГИТЕ», «Не работает формула», «Как решить?» и подобные - НЕЛЬЗЯ!!! Такие темы будут закрываться или удаляться.
"Оптимизация расчетов" - это примерно то же самое. Хотя, если честно, я тут подумал-подумал, и действительно не придумал, как можно более информативно переназвать Вашу тему.
Очень ВАЖНО! При создании темы, давайте теме название, отражающее суть Вашей проблемы и указывайте предпочитаемый способ решения (формулы или макросы).
А следующее предложение прочитать уже не смогли, да?
Цитата
Создавать темы типа «ХЕЛП», «Условное форматирование», «Проблема с макросом», «ПОМОГИТЕ», «Не работает формула», «Как решить?» и подобные - НЕЛЬЗЯ!!! Такие темы будут закрываться или удаляться.
"Оптимизация расчетов" - это примерно то же самое. Хотя, если честно, я тут подумал-подумал, и действительно не придумал, как можно более информативно переназвать Вашу тему._Boroda_
не придумал, как можно более информативно переназвать Вашу тему.
Полагаю, это значит что можно выкладывать решение? =)
Manner, здравствуйте. Предлагаю решение во вложении.
[vba]
Код
Option Explicit Option Base 1
Sub Rio_Gains_Data()
'Author: Roman "Rioran" Voronov 'Date: the 23-rd of January, 2015 'Feedback: voronov_rv@mail.ru
'Project which allows user to recieve numbers marked with green color of cells. 'Реализация алгоритма пользователя для получения чисел из зелёных ячеек.
Dim i As Long Dim ArrA(), ArrB(), ArrC() Dim StpC As Long, StpX As Long, Hght As Long
Dim Val1 As Double, ValA As Double Dim Val2 As Double, ValB As Double Dim Val3 As Double, ValC As Double Dim Val4 As Double, ValD As Double
Hght = Cells(Cells.Rows.Count, 1).End(xlUp).Row If Hght < 2 Then Exit Sub
не придумал, как можно более информативно переназвать Вашу тему.
Полагаю, это значит что можно выкладывать решение? =)
Manner, здравствуйте. Предлагаю решение во вложении.
[vba]
Код
Option Explicit Option Base 1
Sub Rio_Gains_Data()
'Author: Roman "Rioran" Voronov 'Date: the 23-rd of January, 2015 'Feedback: voronov_rv@mail.ru
'Project which allows user to recieve numbers marked with green color of cells. 'Реализация алгоритма пользователя для получения чисел из зелёных ячеек.
Dim i As Long Dim ArrA(), ArrB(), ArrC() Dim StpC As Long, StpX As Long, Hght As Long
Dim Val1 As Double, ValA As Double Dim Val2 As Double, ValB As Double Dim Val3 As Double, ValC As Double Dim Val4 As Double, ValD As Double
Hght = Cells(Cells.Rows.Count, 1).End(xlUp).Row If Hght < 2 Then Exit Sub
Manner, да, убирайте. Моя кнопка работает только на базовых данных. Можете скопировать пустую ячейку (контрол + С), выделить диапазон и вставить (контрол + V).
UPD: Александр, классная реализация формулами. Только вместо G6 - G5 там надо G5 - G6 =)
Manner, да, убирайте. Моя кнопка работает только на базовых данных. Можете скопировать пустую ячейку (контрол + С), выделить диапазон и вставить (контрол + V).
UPD: Александр, классная реализация формулами. Только вместо G6 - G5 там надо G5 - G6 =)Rioran
Роман, Москва, voronov_rv@mail.ru Яндекс-Деньги: 41001312674279
Сообщение отредактировал Rioran - Пятница, 23.01.2015, 14:49