Указание диапазона макроса

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Указание диапазона макроса (Макросы Sub)

Igelkott

Дата: Четверг, 10.10.2013, 02:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте! Очень нужен макрос, копирующий значение ячеек с одного листа на другой, при этом рабочим диапазоном будет являться произвольно выделенная пользователем строка (или строка, на которой находится курсор). При реализации столкнулся с проблемой указания диапазона

Не программист ни разу. Помогите офисной крысе, плиз.

К сообщению приложен файл: example.xls (15.0 Kb)

Ответить

wild_pig

Дата: Четверг, 10.10.2013, 08:20 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 518

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

На листе "Результат макроса" есть "на", а в данных этого нет. Как быть?

Ответить

_Boroda_

Дата: Четверг, 10.10.2013, 09:56 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16743

Репутация: 6534 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так?
Можно выделять несколько строк подряд

К сообщению приложен файл: example_7154_1.xls (38.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

SkyPro

Дата: Четверг, 10.10.2013, 10:02 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Selection- выдеденный диапазон.
Selection.Row - Первая строка выделенного диапазона.
Selection.Rows.Count - кол-во строк в выделенном диапазоне.

skypro1111@gmail.com

Ответить

Igelkott

Дата: Четверг, 10.10.2013, 19:42 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Решение от Boroda работает изумительно. Только тупой я некорректно поставил ТЗ (((
Прикрепил откорректированный файл.
[vba]

Код

Макрос1
Sub Макрос1()
'
Sheets("Результат макроса").Select
Range("B8,C4,D9,F6").Select
Selection.ClearContents
Range("C4").Select
ActiveCell.FormulaR1C1 = "=Данные!R[-2]C[-1]"
Range("F6").Select
ActiveCell.FormulaR1C1 = "=Данные!R[-4]C[-2]"
Range("B8").Select
ActiveCell.FormulaR1C1 = "=Данные!R[-6]C[3]"
Range("D9").Select
ActiveCell.FormulaR1C1 = "=Данные!R[-7]C[4]"
End Sub

[/vba]
Вот тут нужный результат, но макрос привязан к строке 2, а надо, чтобы данные (не всех ячеек листа "Данные", а только из тех, что прописаны в макросе) подтягивались из произвольно выделенной одной строки, или из строки, в которой находится курсор (несколько строк не надо), и складывались в жестко прописанные ячейки листа "Результат макроса". Возможно ли допилить вышеуказанный "Макрос1"?

К сообщению приложен файл: example_7154_2.xls (41.0 Kb)

Ответить

Wasilich

Дата: Среда, 16.10.2013, 08:52 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Так, что ли?

К сообщению приложен файл: 7154_2.xls (39.0 Kb)

Ответить

Указание диапазона макроса (Макросы Sub)

Страница 1 из 1
1