Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как сделать макрос неприявязанным к строке? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как сделать макрос неприявязанным к строке?
solbec Дата: Воскресенье, 23.06.2013, 22:08 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Хочу создать макрос распределяющий сумму проезда (100 рублей) пропорционально доходу. Но поскольку отчет меняется, а макрос привязан лишь к 10- й строке, то с прочими не хочет работать.

Как сделать, или показать ему, что бы он работал в любьой строке, где предварительно будут выведены общие суммы по столбцам, как на данное время в 10-й ?

Спасибо.
К сообщению приложен файл: 22345.xls (29.0 Kb)
 
Ответить
СообщениеХочу создать макрос распределяющий сумму проезда (100 рублей) пропорционально доходу. Но поскольку отчет меняется, а макрос привязан лишь к 10- й строке, то с прочими не хочет работать.

Как сделать, или показать ему, что бы он работал в любьой строке, где предварительно будут выведены общие суммы по столбцам, как на данное время в 10-й ?

Спасибо.

Автор - solbec
Дата добавления - 23.06.2013 в 22:08
Скрипт Дата: Понедельник, 24.06.2013, 07:24 | Сообщение № 2
Группа: Проверенные
Ранг: Участник
Сообщений: 61
Репутация: 25 ±
Замечаний: 0% ±

Excel 2013
solbec, т.е. вам нужно указать макросу, с какой строкой макрос должен работать?
В вашем случае макросу нужно указать последнюю строку с данными на Excel-листе?
 
Ответить
Сообщениеsolbec, т.е. вам нужно указать макросу, с какой строкой макрос должен работать?
В вашем случае макросу нужно указать последнюю строку с данными на Excel-листе?

Автор - Скрипт
Дата добавления - 24.06.2013 в 07:24
Wasilich Дата: Понедельник, 24.06.2013, 09:54 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Типа так:
[vba]
Код
R = Range("M" & Rows.Count).End(xlUp).Row
Range("Q" & R).Select
Range("R" & R).Select
Range("S" & R).Select
[/vba]
 
Ответить
СообщениеТипа так:
[vba]
Код
R = Range("M" & Rows.Count).End(xlUp).Row
Range("Q" & R).Select
Range("R" & R).Select
Range("S" & R).Select
[/vba]

Автор - Wasilich
Дата добавления - 24.06.2013 в 09:54
solbec Дата: Понедельник, 24.06.2013, 21:18 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Спасибо обоим, написал с вашей помощью так и работает:

[vba]
Код
R = Range("M" & Rows.Count).End(xlUp).Row
Range("Q" & R).Select
ActiveCell.FormulaR1C1 = "=RC[-8]/RC[-13]*100"
Range("R" & R).Select
ActiveCell.FormulaR1C1 = "=RC[-7]/RC[-14]*100"
Range("S" & R).Select
ActiveCell.FormulaR1C1 = "=RC[-6]/RC[-15]*100"
[/vba]
 
Ответить
СообщениеСпасибо обоим, написал с вашей помощью так и работает:

[vba]
Код
R = Range("M" & Rows.Count).End(xlUp).Row
Range("Q" & R).Select
ActiveCell.FormulaR1C1 = "=RC[-8]/RC[-13]*100"
Range("R" & R).Select
ActiveCell.FormulaR1C1 = "=RC[-7]/RC[-14]*100"
Range("S" & R).Select
ActiveCell.FormulaR1C1 = "=RC[-6]/RC[-15]*100"
[/vba]

Автор - solbec
Дата добавления - 24.06.2013 в 21:18
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!