vba протянуть формулу по строке

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

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

26.02.2016 12:08:18

Добрый день всем!

Помогите, пожалуйста, решить вопрос; есть макрос, которым протягивает формулу по столбцу "АЕ" начиная с 9-й строки и до низа листа:

Код
With Sheets("ААА") .Range("AE9:AE" & .Cells(Rows.Count, "A").End(xlUp).Row).FormulaLocal = "=СУММ(А1+В1)" End With

Но проблема в следующем! Мне нужно не до конца листа протянуть формулу, а до 100-й строки или до последней заполненной строки.

Заранее спасибо!

Александр Сергеевич Пользователь Сообщений: 481 Регистрация: 01.01.1970 Если не отвечаю, пишите в личку.	#2 26.02.2016 12:16:02 .End(xlDown) FillDown не нужно оскорблять.

JayBhagavan

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

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

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

26.02.2016 12:19:42

Цитата
evgeniy_m написал: vba протянуть формулу по строке

Цитата
evgeniy_m написал: протягивает формулу по столбцу

Неувязочка...

Изменено: JayBhagavan - 26.02.2016 12:19:51

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

evgeniy_m

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

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

26.02.2016 12:23:07

Цитата
Александр Сергеевич написал: .End(xlDown) FillDown

а можно конкретнее, пожалуйста?

evgeniy_m

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

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

26.02.2016 12:24:56

Цитата
JayBhagavan написал: Неувязочка...

нужно формулу протянуть не до конца листа, а до 100-й строки или последней заполненой

Казанский

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

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

26.02.2016 12:25:24

Цитата
evgeniy_m написал: Но проблема в следующем!

А проблемы-то и нет! Макрос вставляет формулу до последней заполненной ячейки в ст. А.

Александр Сергеевич Пользователь Сообщений: 481 Регистрация: 01.01.1970 Если не отвечаю, пишите в личку.	#7 26.02.2016 12:27:08 расшифровка вашей формулы: диапазон от АЕ9 до АЕ(номер строки последней заполненной ячейке в колонке А) нарисовать текст "рролоо" тоесть величину диапозонау Вас определяет колонка А не нужно оскорблять.

evgeniy_m

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

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

26.02.2016 12:32:44

Цитата
Казанский написал: А проблемы-то и нет! Макрос вставляет формулу до последней заполненной ячейки в ст. А.

так вот не хочет

тянет формулу до последней строки листа (

JayBhagavan

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

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

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

26.02.2016 12:36:43

Код
With Sheets("ААА") msgbox .Range("AE9:AE" & .Cells(.Rows.Count, "A").End(xlUp).Row).row '.FormulaLocal = "=СУММ(А1+В1)" End With

Что выдаст?

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

Александр Сергеевич

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

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

Если не отвечаю, пишите в личку.

#10

26.02.2016 12:36:44

Код

If Cells(Rows.Count, "A").End(xlUp).Row < 100 Then .Range("AE9:AE100").FormulaLocal = "=СУММ(А1+В1)"
Else
.Range("AE9:AE" & .Cells(Rows.Count, "A").End(xlUp).Row).FormulaLocal = "=СУММ(А1+В1)"
End If

Изменено: Александр Сергеевич - 26.02.2016 12:42:45

не нужно оскорблять.

JayBhagavan

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

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

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

#11

26.02.2016 12:37:59

Для порядка надо перед

Код
Rows.Count

точку добавить

Код
.Rows.Count

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

evgeniy_m Пользователь Сообщений: 109 Регистрация: 07.07.2014	#12 26.02.2016 12:45:19 сработало! Спасибо большое всем!

Александр Сергеевич Пользователь Сообщений: 481 Регистрация: 01.01.1970 Если не отвечаю, пишите в личку.	#13 26.02.2016 12:46:17 JayBhagavan, Rows.Count Это количество строк .Rows.Count это количество строк в Range не нужно оскорблять.

Александр Сергеевич

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

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

Если не отвечаю, пишите в личку.

#14

26.02.2016 12:48:35

Цитата
evgeniy_m написал: сработало! Спасибо большое всем!

странно, я лично не понимаю FormulaLocal = "=СУММ(А1+В1)"
зачем в текстовом виде вводить форму.....

не нужно оскорблять.

evgeniy_m

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

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

#15

26.02.2016 12:50:15

Цитата
Александр Сергеевич написал: странно, я лично не понимаю FormulaLocal = "=СУММ(А1+В1)" зачем в текстовом виде вводить форму.....

вообще без проблем отрабатывает

Александр Сергеевич

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

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

Если не отвечаю, пишите в личку.

#16

26.02.2016 12:52:57

Цитата
evgeniy_m написал: вообще без проблем отрабатывает

а у меня почему то глюк на это выдает

#ИМЯ?

не нужно оскорблять.

JayBhagavan

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

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

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

#17

26.02.2016 12:53:54

Цитата
Александр Сергеевич написал: .Rows.Count это количество строк в Range

Нет. Это кол-во строк в Sheets("ААА")

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

Sanja

Модератор

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

#18

26.02.2016 12:54:24

Цитата
Александр Сергеевич написал: а у меня почему то глюк

A или B русская. Или обе

Согласие есть продукт при полном непротивлении сторон

Александр Сергеевич Пользователь Сообщений: 481 Регистрация: 01.01.1970 Если не отвечаю, пишите в личку.	#19 26.02.2016 12:59:42 JayBhagavan, в данном случае да, но часто под with сидит range ну отличий нет, , задача выполняется Изменено: Александр Сергеевич - 26.02.2016 13:00:01 не нужно оскорблять.