дописать макрос для Excel

@tane4kina · Регистрация: 19.12.2010

Студворк — интернет-сервис помощи студентам

Нужно написать макрос, который бы находил:
z1=(y2-y1)/(x2-x1)
z2=(y3-y2)/(x3-x2)
z3...и т.д.

Я записала так:
Sub Макрос1()

Worksheets(1).Range("C2:C3").FormulaR1C1 = "=(R[1]C[-1]-RC[-1])/(R[1]C[-2]-RC[-2])"

End Sub

Но мне нужно, чтобы не я сама определяла диапазон(С2:С3), а макрос сам определял число заполненных строк(число х и у) и считал z в этом диапазоне

Надеюсь смогла объяснить)
Пример в файле

@19vitek · 21.12.2010, 21:04

попробуй, у меня работает.

Visual Basic
1
2
3
4
kol = ActiveSheet.UsedRange.Rows.Count
For Counter = kol To 3 Step -1
Cells(Counter - 1, 3) = (Cells(Counter, 2) - Cells(Counter - 1, 2)) / (Cells(Counter, 1) - Cells(Counter - 1, 1))
Next Counter

@tane4kina · 21.12.2010, 21:21 **[ТС]**

Спасибо! Все работает

Только вопросик еще

For Counter = kol To 3 Step -1

3-что значит?

@19vitek · 21.12.2010, 21:25

идем до третей строки. т.к. первая строка названия колонок, а по циклу идем в обратном порядке и обрабатываем текущую строку и на строку выше. т.е. дойдя до 3 строки все данные будут обработаны.

@tane4kina · 21.12.2010, 21:27 **[ТС]**

все, теперь поняла
спасибо

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@tane4kina 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 7
	21.12.2010, 21:21 [ТС]
	Спасибо! Все работает Только вопросик еще For Counter = kol To 3 Step -1 3-что значит? 0

@19vitek 731 / 407 / 95 Регистрация: 19.12.2010 Сообщений: 756
	21.12.2010, 21:25
	идем до третей строки. т.к. первая строка названия колонок, а по циклу идем в обратном порядке и обрабатываем текущую строку и на строку выше. т.е. дойдя до 3 строки все данные будут обработаны. 1

@tane4kina 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 7
	21.12.2010, 21:27 [ТС]
	все, теперь поняла спасибо 0