Excel формулы через макрос - Word и Excel - помощь в работе с программами

На чтение 4 мин. Просмотров 33.1k.

Итог: ознакомьтесь с 3 советами по написанию и созданию формул в макросах VBA с помощью этой статьи и видео.

Уровень мастерства: Средний

Автоматизировать написание формул

Написание формул может быть одной из самых трудоемких частей
вашей еженедельной или ежемесячной задачи Excel. Если вы работаете над
автоматизацией этого процесса с помощью макроса, вы можете попросить VBA
написать формулу и ввести ее в ячейки.

Поначалу написание формул в VBA может быть немного сложнее,
поэтому вот три совета, которые помогут сэкономить время и упростить процесс.

Совет № 1: Свойство Formula

Свойство Formula является членом объекта Range в VBA. Мы можем использовать его для установки / создания формулы для отдельной ячейки или диапазона ячеек.

Есть несколько требований к значению формулы, которые мы устанавливаем с помощью свойства Formula:

Формула представляет собой строку текста, заключенную в кавычки. Значение формулы должно начинаться и заканчиваться кавычками.
Строка формулы должна начинаться со знака равенства = после первой кавычки.

Вот простой пример формулы в макросе.

Sub Formula_Property()

  ' Формула представляет собой строку текста, заключенную в кавычки
  ' Начинается со знака =
  Range("B10").Formula = "=SUM(B4:B9)"

End Sub

Свойство Formula также можно использовать для чтения существующей формулы в ячейке.

Совет № 2: Используйте Macro Recorder

Если ваши формулы более сложные или содержат специальные
символы, их будет сложнее написать в VBA. К счастью, мы можем использовать
рекордер макросов, чтобы создать код для нас.

Вот шаги по созданию кода свойства формулы с помощью средства записи макросов.

Включите средство записи макросов (вкладка «Разработчик»> «Запись макроса»)
Введите формулу или отредактируйте существующую формулу.
Нажмите Enter, чтобы ввести формулу.
Код создается в макросе.

Если ваша формула содержит кавычки или символы амперсанда, макрос записи будет учитывать это. Он создает все подстроки и правильно упаковывает все в кавычки. Вот пример.

Sub Macro10()
' Используйте средство записи макросов для создания кода для сложных формул с
' специальны символы и относительные ссылки

  ActiveCell.FormulaR1C1 = "=""Total Sales: "" & TEXT(R[-5]C,""$#,###"")"
    
End Sub

Совет № 3: Нотация формулы стиля R1C1

Если вы используете средство записи макросов для формул, вы
заметите, что он создает код со свойством FormulaR1C1.

Нотация стиля R1C1 позволяет нам создавать как относительные (A1), абсолютные ($A$1), так и смешанные ($A1, A$1) ссылки в нашем макрокоде.

R1C1 обозначает строки и столбцы.

Относительные ссылки

Для относительных ссылок мы указываем количество строк и
столбцов, которые мы хотим сместить от ячейки, в которой находится формула.
Количество строк и столбцов указывается в квадратных скобках.

Следующее создаст ссылку на ячейку, которая на 3 строки выше
и на 2 строки справа от ячейки, содержащей формулу.

Отрицательные числа идут вверх по строкам и столбцам слева.

Положительные числа идут вниз по строкам и столбцам справа.

Абсолютные ссылки

Мы также можем использовать нотацию R1C1 для абсолютных ссылок. Обычно это выглядит как $A$2.

Для абсолютных ссылок мы НЕ используем квадратные скобки. Следующее создаст прямую ссылку на ячейку $A$2, строка 2, столбец 1

При создании смешанных ссылок относительный номер строки или
столбца будет зависеть от того, в какой ячейке находится формула.

Проще всего использовать макро-рекордер, чтобы понять это.

Свойство FormulaR1C1 и свойство формулы

Свойство FormulaR1C1 считывает нотацию R1C1 и создает
правильные ссылки в ячейках. Если вы используете обычное свойство Formula с
нотацией R1C1, то VBA попытается вставить эти буквы в формулу, что, вероятно,
приведет к ошибке формулы.

Поэтому используйте свойство Formula, если ваш код содержит
ссылки на ячейки ($ A $ 1), свойство FormulaR1C1, когда вам нужны относительные
ссылки, которые применяются к нескольким ячейкам или зависят от того, где
введена формула.

Если ваша электронная таблица изменяется в зависимости от
условий вне вашего контроля, таких как новые столбцы или строки данных,
импортируемые из источника данных, то относительные ссылки и нотация стиля
R1C1, вероятно, будут наилучшими.

Я надеюсь, что эти советы помогут. Пожалуйста, оставьте
комментарий ниже с вопросами или предложениями.

Источник

Вставка формулы со ссылками в стиле A1 и R1C1 в ячейку (диапазон) из кода VBA Excel. Свойства Range.FormulaLocal и Range.FormulaR1C1Local.

Свойство Range.FormulaLocal

FormulaLocal — это свойство объекта Range, которое возвращает или задает формулу на языке пользователя, используя ссылки в стиле A1.

В качестве примера будем использовать диапазон A1:E10, заполненный числами, которые необходимо сложить построчно и результат отобразить в столбце F:

Примеры вставки формул суммирования в ячейку F1:

Range(«F1»).FormulaLocal = «=СУММ(A1:E1)»

Range(«F1»).FormulaLocal = «=СУММ(A1;B1;C1;D1;E1)»

Пример вставки формул суммирования со ссылками в стиле A1 в диапазон F1:F10:

Sub Primer1()

Dim i As Byte

For i = 1 To 10

Range(«F» & i).FormulaLocal = «=СУММ(A» & i & «:E» & i & «)»

End Sub

В этой статье я не рассматриваю свойство Range.Formula, но если вы решите его применить для вставки формулы в ячейку, используйте англоязычные функции, а в качестве разделителей аргументов — запятые (,) вместо точек с запятой (;):

Range(«F1»).Formula = «=SUM(A1,B1,C1,D1,E1)»

После вставки формула автоматически преобразуется в локальную (на языке пользователя).

Свойство Range.FormulaR1C1Local

FormulaR1C1Local — это свойство объекта Range, которое возвращает или задает формулу на языке пользователя, используя ссылки в стиле R1C1.

Формулы со ссылками в стиле R1C1 можно вставлять в ячейки рабочей книги Excel, в которой по умолчанию установлены ссылки в стиле A1. Вставленные ссылки в стиле R1C1 будут автоматически преобразованы в ссылки в стиле A1.

Примеры вставки формул суммирования со ссылками в стиле R1C1 в ячейку F1 (для той же таблицы):

‘Абсолютные ссылки в стиле R1C1:

Range(«F1»).FormulaR1C1Local = «=СУММ(R1C1:R1C5)»

Range(«F1»).FormulaR1C1Local = «=СУММ(R1C1;R1C2;R1C3;R1C4;R1C5)»

‘Ссылки в стиле R1C1, абсолютные по столбцам и относительные по строкам:

Range(«F1»).FormulaR1C1Local = «=СУММ(RC1:RC5)»

Range(«F1»).FormulaR1C1Local = «=СУММ(RC1;RC2;RC3;RC4;RC5)»

‘Относительные ссылки в стиле R1C1:

Range(«F1»).FormulaR1C1Local = «=СУММ(RC[-5]:RC[-1])»

Range(«F2»).FormulaR1C1Local = «=СУММ(RC[-5];RC[-4];RC[-3];RC[-2];RC[-1])»

Пример вставки формул суммирования со ссылками в стиле R1C1 в диапазон F1:F10:

‘Ссылки в стиле R1C1, абсолютные по столбцам и относительные по строкам:

Range(«F1:F10»).FormulaR1C1Local = «=СУММ(RC1:RC5)»

‘Относительные ссылки в стиле R1C1:

Range(«F1:F10»).FormulaR1C1Local = «=СУММ(RC[-5]:RC[-1])»

Так как формулы с относительными ссылками и относительными по строкам ссылками в стиле R1C1 для всех ячеек столбца F одинаковы, их можно вставить сразу, без использования цикла, во весь диапазон.

Источник

Добрый день! Скажите можно ли скопировать формулу макросом в активную ячейку
чтобы она соответствовала строке? Например:

=F12*E12*(1+NDS)*(1-DISCOUNT3M) (формула находиться допустим на листе1 в ячейке «A1»
нужно скопировать её в активную ячейку на другом листе допустим в ячейку «G19» Лист2 чтоб получилось:
=F19*E19*(1+NDS)*(1-DISCOUNT3M)

Либо сразу вставлять формулу из макроса.

Nic70y

Пользователь

Сообщений: 3289
Регистрация: 22.12.2012

Win7 MSO 2013

27.07.2013 21:56:04

Какое-то не соответствие

Код
ActiveCell.FormulaR1C1 = "=RC6RC5(1+NDS)*(1-DISCOUNT3M)"

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	В который раз…))) Если уж макрос — зачем формула? Вычисляйте прямо в коде и вставляйте уже значение.

	Требуется как раз получить не значение а ячейку с формулой, которая и будет уже выполнять свои действия.

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

27.07.2013 23:45:19

Цитата
Александр.М пишет: которая и будет уже выполнять свои действия.

… и вернёт значение )) Как хотите…

ikki

Пользователь

Сообщений: 9709
Регистрация: 22.12.2012

три раза перечитал.
так и не понял.
что за «соответствие»?
формула была «допустим в A1», ссылалась на ячейки из 12-й строки и на какие-то имена.
«допустим», скопировалась.
«допустим», в G19.
другого листа.
умгу…

что надо сделать с формулой, чтобы её искорёжить требуемым образом?
с какого перепугу исчезла имеющаяся разница в 11 строк и 4(5) столбцов?
и где у нас уверенность, что эти имена будут работать на другом листе?
имена вообще-то разные бывают — в том числе и имена уровня листов, именованные формулы, динамические диапазоны, да мало ли что ещё…

может, начнём с начала, а не с середины?
какую задачу решаем?

фрилансер Excel, VBA — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

	Ну просто значение останется значением в ячейке, а формула будет работать на листе, что собственно и требуется.

Nic70y Пользователь Сообщений: 3289 Регистрация: 22.12.2012 Win7 MSO 2013	Александр.М, я думал Вы просто ошиблись в строках, но ikki уточнил, а Вы ему так и не ответили.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Т.е. если при изменении исходных данных для формулы макрос вместо этой формулы вставит значение в ячейку, то это плохо?

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

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

Макрос в свою очередь выполняет выше указанный ряд действий в соответствии с формой.

В двух словах, надо макрасом в определенном месте таблицы создать новую строку и правильно заполнить
необходимые ячейки, так вот с ячейками в которых должна быть формула у меня и не выходит, не знаю
как вставить формулу с листа (формы) так чтобы она работала именно на той строке в которую её вставили.

ikki

Пользователь

Сообщений: 9709
Регистрация: 22.12.2012

#11

28.07.2013 02:21:53

спасибо за пояснения.
надеюсь, это не было столь уж сложно.

правда, намного легче не стало.
ок, оставим вопрос о том, зачем вообще в справочнике нужны именно формулы.
верю, что нужны.

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

Код
cells(i,7).formular1c1="=rc5rc6(1+NDS)*(1-DISCOUNT3M)"

ikki

Пользователь

Сообщений: 9709
Регистрация: 22.12.2012

гм…
как неожиданно обнаружилось только что, Николай писал то же самое ещё в посте #2.
чем не понравилось?

формулы в таблице =F12*E12*(1+NDS)*(1-DISCOUNT3M)
макрос ставит =$F16*$E16*(1+NDS)*(1-DISCOUNT3M)

я просто не могу предположить как разница может повлиять на дальнейшую работу программы
хотелось бы точно такую же формулу получать.

Еще проще, вот выделил я ячейку E2, выполнить макрос, макос вставил формулу в Е2: =B2+C2/D2
выделил я ячейку Е9, выполнить макрос, макос вставил формулу в Е9: =B9+C9/D9
тоесть в зависимости от номера строки
вот как то так возможно? причем макрос один и тот же.

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#14

28.07.2013 03:04:15

Цитата
Александр.М пишет: вот выделил я ячейку E2, выполнить макрос, макос вставил формулу в Е2:=B2+C2/D2 выделил я ячейку Е9, выполнить макрос, макос вставил формулу в Е9:=B9+C9/D9 тоесть в зависимости от номера строки

Вот без формул: выделяйте ячейки в жёлтом диапазоне.

Прикрепленные файлы

Без формул.xls (22.5 КБ)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Нужно еще на изменение влияющих ячеек.

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	Я просто показать, что можно и без формул выполнять требуемые вычисления)) А на влияющие — событие Change — согласен. Но автору всё равно нужны формулы))

marussia Пользователь Сообщений: 64 Регистрация: 10.09.2015	Коллеги! Подскажите, где ошибка… Вставляю формулу в макрос. Ругается: expected end of statement Worksheets(«ST»).Cells(25, 5).Value = «=ТЕКСТ(Kolvo1;»00») & «:» & ТЕКСТ(Kolvo2;»00″)» где Kolvo1 и Kolvo2 — переменные с цифровым значением Спасибо.

JayBhagavan

Пользователь

Сообщений: 11833
Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

#18

16.09.2015 12:22:05

marussia, замените .Value на .FormulaLocal
—
ПС Не заметил двойные кавычки в формуле. Внутри строки двойные кавычки надо задваивать.
—
ПС2 Был не внимателен. Наверное так:

Код
Worksheets("ST").Cells(25, 5).FormulaLocal = "=ТЕКСТ(" & Kolvo1 & ";""00"") & "":"" & ТЕКСТ(" & Kolvo2 & ";""00"")"

Изменено: JayBhagavan — 16.09.2015 12:25:24

<#0>
Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

Источник

Get a formula from a cell using VBA in Excel.

This method returns the actual formula instead of the output value.

Get the Formula of a Cell into a Macro

We use the Formula property for this.

To get the formula in cell A1, type this in a macro:

Range("A1").Formula

I will put MsgBox in front of this line of code so we can see the output in Excel:

MsgBox Range("A1").Formula

Go back to Excel and run it on a cell that has a date and this is the result:

In cell A1, you can see the actual visible output, which is the date, and in the message box pop-up you can see the formula that was used to create the output.

Using Formula in VBA means that the macro will get the formula that we see in the message box.

Notes

This is pretty straightforward, if you want to get the value of a cell that is easy and you can read about it in the link.

Download the attached workbook to see this example in Excel.

Excel VBA Course — From Beginner to Expert

200+ Video Lessons
50+ Hours of Instruction
200+ Excel Guides

Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)

View Course

Subscribe for Weekly Tutorials

BONUS: subscribe now to download our Top Tutorials Ebook!

Excel VBA Course — From Beginner to Expert

200+ Video Lessons

50+ Hours of Video

200+ Excel Guides

Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)

View Course

Источник

mor_sergey

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

Формула эксель через макрос

08.08.2018, 14:51. Показов 16080. Ответов 36

Метки нет (Все метки)

toiai, ребята знающие, подскажите пожалуйста…..как такую формулу сделать програмно…в макрос.

Код

=(СУММЕСЛИ(D6:AH6;">0";D6:AH6)-СУММЕСЛИ(D6:AH6;"<0";D6:AH6))-$CR$5

вот что получается:

Visual Basic

1 2	.Formula = _ "=sumif(" & Range(Cells(a, bn), Cells(a, bk)).Address(0, 0) & ","">0"")-sumif(" & Range(Cells(a, bn), Cells(a, bk)).Address(0, 0) & ",""<0"")"

написать все что в больших скобках получилось…не знаю как из всего этого вычесть содержимое ячейки. как граммотно применить «Address(0, 0)»? спасибо за советы

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

08.08.2018, 14:51

Ответы с готовыми решениями:

Макрос для Эксель
Добрый день, мне нужна помощь с написанием одного макроса, суть в чем:
есть много типовых таблиц,…

Макрос эксель. Фильтровка
Люди плиз, как сделать по событию перехода на второй лист, что бы автофильтр был равен автофильтру…

Макрос для таблицы эксель с поиском
Привет, помогите, очень-очень срочно
В эклеле таблица: номер документа, фамилия препода, оценка по…

Макрос на сохранение двух листов эксель в отдельные файлы mht
Здравствуйте, как сделать что бы эксель 2003 сохранял выбранные листы (Лист1 и Лист2) в отдельные…

Ruella

471 / 161 / 79

Регистрация: 07.10.2015

Сообщений: 377

08.08.2018, 16:11

mor_sergey, честно говоря, непонятно, при чем тут Address… А может, я вообще задачу не понимаю Так что не судите строго
Но если брать в расчет Вашу верхнюю формулу, то:
1. Если хотите в какую-то ячейку поместить результат данной формулы, то попробуйте так

Visual Basic

1
2
3

With ThisWorkbook.Sheets("Лист1")
    .Range("A1") = (Application.SumIf(.Range("D6:AH6"), ">0") - Application.SumIf(.Range("D6:AH6"), "<0")) - .Range("$CR$5")
End With

2. А если хотите там видеть саму формулу (с вычислениями, разумеется), то попытайтесь следующим образом (правда, может выдать ошибку):

Visual Basic

1
2
3

With ThisWorkbook.Sheets("Лист1")
    .Range("A2").FormulaLocal = "=(СУММЕСЛИ(D6:AH6;"">0"")-СУММЕСЛИ(D6:AH6;""<0""))-$CR$5"
End With

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

08.08.2018, 16:19

[ТС]

Ruella, спасибо большое за отклик, попробую еще раз….но мне нужно параметрически сделать….таблица генерироваться по-разному будет….и привязать нужно формулу к ячейкам. cells(1,1).Address в дебагпринте пишет именно адрес ячейки и основную часть формулы таким способом перенесли (делал не я), не пойму как грамотно то же самое сделать, но с одной ячейкой…вычесть из того, что уже написано

Ruella

471 / 161 / 79

Регистрация: 07.10.2015

Сообщений: 377

08.08.2018, 16:31

mor_sergey, все равно мало что поняла Но что, если для конечной ячейки Вам попробовать просто что-то вроде

Visual Basic

1	cells(нужная_ячейка).Address()

Все равно не срабатывает?

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

08.08.2018, 16:34

[ТС]

тип мис меч пишет) не соответствие типо…я так пробывал, только без адрес без скобок в конце

Ruella

471 / 161 / 79

Регистрация: 07.10.2015

Сообщений: 377

08.08.2018, 16:47

mor_sergey, ну, не знаю… Я попробовала так (заменила в вышеуказанном только ссылку на последнюю ячейку, остальное оставила):

Visual Basic

Dim My As Range
With ThisWorkbook.Sheets("Лист1")
Set My = .Range("CR5")
    .Range("A1").FormulaLocal = "=(СУММЕСЛИ(D6:AH6;"">0"")-СУММЕСЛИ(D6:AH6;""<0""))-" & My.Address()
End With

и все сработало, как полагается. Адрес ячейки, разумеется, можно заменить на нужный.

mor_sergey

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

08.08.2018, 20:21

[ТС]

Ruella, синтаксис……незнал как написать…Вы мне дали на водку) все работает

Visual Basic

1
2

.Range(Cells(a, i_col), Cells(i_count - 1, i_col)).Formula = _
                "=sumif(" & Range(Cells(data_row, beg_data_col), Cells(data_row, end_data_col)).Address(0, 0) & ","">0"")-sumif(" & Range(Cells(data_row, beg_data_col), Cells(data_row, end_data_col)).Address(0, 0) & ",""<0"") - " & Cells(data_row, end_data_col + 1).Address

1811 / 1134 / 345

Регистрация: 11.07.2014

Сообщений: 3,999

09.08.2018, 07:01

А я НЕ ЗНАЛ, что НА ВОДКУ должен давать тот, который помогает, казалось бы надо наоборот.
Может имелось ввиду наводку?

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

09.08.2018, 07:50

[ТС]

Burk, как всегда острите….. Оговорочка по Фрейду. Так было задумано

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

13.08.2018, 12:42

[ТС]

Ruella, не могу придумать как посчитать сумму последовательных(друг за другом идущих) закрашенных ячеек в строке и если она >42, то действие (какое не придумал)

если функцией, то как применить в коде

Спасибо

471 / 161 / 79

Регистрация: 07.10.2015

Сообщений: 377

13.08.2018, 16:40

mor_sergey, а можно немножко поконкретнее? что значит «закрашенных ячеек» и «идущих подряд» (по строкам, по столбцам или еще как)? В общем, огласите задачу целиком, плиз

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

13.08.2018, 16:47

[ТС]

Ruella, хочу чтобы контроллировались часы работы……
например график чела 11 11 11 11 (44 часа), должно быть условие, если > 43, обязательно два выходных

Миниатюры

471 / 161 / 79

Регистрация: 07.10.2015

Сообщений: 377

13.08.2018, 21:06

mor_sergey, все равно вопросы остаются К примеру, это правило должно работать для каждой строки, или только для тех, где график = 11 ? Это должно проставляться автоматически — или самостоятельно вручную, просто на каком-то этапе приложение должно подсказать: «Товарищ дорогой, ты что-то слишком разошелся, самое время поставить выходной»? Это должно быть сделано макросом, формулами или вообще чем-то вроде УФ? В общем, накидала (так, как поняла) один из возможных вариантов макросом (поскольку тема в VBA), вдруг опять получится «дать на водку» В общем, если чего не так — подробнее уточняйте задание, а для начала то, что получилось:

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

13.08.2018, 21:27

[ТС]

Ruella, Здорово…но Вы правы:1. правило должно работать для каждой строки (для каждого человека) 2. таблица заполняется вручную и если больше нормы, то либо подсказка, либо может подсказка+ невозможность еще часов добавить…
3 зашито в код должно быть конечно.макросами

на картинке моей(скриншоте) видно, что доп графа есть….норма рабочей смены…….8 и 11 ч

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

13.08.2018, 22:17

[ТС]

Ruella, вставил Ваш код….все просчитывает, но в конце division by zero и указывает на
k = (43 Cells(CRow.row, 4)) + 1

а вообще нужно как в #14

Миниатюры

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

14.08.2018, 11:52

[ТС]

Ruella,

Сообщение от mor_sergey

но в конце division by zero и указывает на

исправил…нижняя граница была со смещением на строку…

Добавлено через 4 часа 10 минут
Ruella, голову сломал…не могу Вашу процедуру приспособить для автоматического подсчета…не с кнопки, а с листа….в активацию листа наверное ее нужно и что- то изменить. Подскажите пожалуйста… Заполняет конечно юзер все

471 / 161 / 79

Регистрация: 07.10.2015

Сообщений: 377

14.08.2018, 11:58

mor_sergey, ну, это смотря что Вы хотите. Имеет ли смысл запускать всю эту перерисовку при каждой активации листа? или даже при каждом открытии книги? Если принудительный запуск неудобен, то попробуйте подобрать более подходящее событие — например, при изменении каких-то конкретных ячеек на листе (каких именно — Вам виднее)

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

14.08.2018, 12:02

[ТС]

именно…при изменении только рабочей области(без шапки и расчетных ячеек разумеется). Какие коррективы в код внести, чтобы макрос не сам заполнял, а считал то, что заполняет человек

Добавлено через 14 секунд
Ruella,

471 / 161 / 79

Регистрация: 07.10.2015

Сообщений: 377

14.08.2018, 12:17

mor_sergey, я уже малость запуталась можете пояснить, что конкретно он должен делать? Считать — а что именно? и что он должен делать потом?

77 / 11 / 0

Регистрация: 28.03.2018

Сообщений: 828

14.08.2018, 12:31

[ТС]

Ruella, человек заполняет таблицу, макрос контроллирует, чтобы сумма последовательно заполненных(др за др) ячеек не была больше 42 (в Вашем коде сделано именно как надо), если больше, след ячейка остается пустая(вых) и выха должно быть два.ну а потом по циклу…..и так для каждой строки.

Немного переделать Ваш код нужно….не соображу как спасибо Вам за помощь

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.08.2018, 12:31

Помогаю со студенческими работами здесь

Макрос создания нового листа в Эксель с названием от 1 и далее нарастающим итогом
Добрый вечер! Очень нужна помощь, уважаемые программисты!!!
Необходим макрос для кнопки, при…

Спасите, пожалуйста, создать макрос, который запишет темы писем в Эксель
Помогите, пожалуйста, создать макрос, который запишет темы писем в Эксель.
Я вот никак, смогла…

Нужен макрос, который загрузит в эксель выбранное количество ТХТ файлов на лист
Добрый день!
Прошу помочь.
Есть n ТХТ файлов.
Нужен макрос, который загрузит в эксель выбранное…

Формула или макрос
Добрый день, может быть у кого-то есть готовое решение или подскажете как сделать такую процедуру….

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник