Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос в Excele / 5 сообщений из 5, страница 1 из 1
22.06.2005, 15:15:20
    #33129168
Was2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос в Excele
Помогите чайнику!
С 1-го листа макрос переносит инфо на 2-ой. На нем есть постоянный заголовок.
Середина - переменая (по строкам).
Как прописать перемещение относительно ячейки на определ-е кол-во строк и столбцов? У меня получается определенный Rand.
...
Рейтинг: 0 / 0
22.06.2005, 15:42:54
    #33129258
rrrrrrrrrr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос в Excele
Was2перемещение относительно ячейки на определ-е кол-во строк и столбцов? Метод ActiveCell подойдет?

Код: plaintext
1.
2.
3.
Dim X, Y As Integer
Cells(ActiveCell.Row + X, ActiveCell.Column + Y).Select
Rows(ActiveCell.Row + X).Select
Columns(ActiveCell.Column + Y).Select
...
Рейтинг: 0 / 0
22.06.2005, 15:48:19
    #33129275
rrrrrrrrrr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос в Excele
На случай, если я неправильно понял вопрос
подсчет непустых строк от первой
Код: plaintext
1.
2.
3.
4.
a =  1  '2,3,4,5,6,... :)
while Cells(a,b) <> ""
    'копирование на другой лист
    a = a +  1 
wend
...
Рейтинг: 0 / 0
22.06.2005, 16:17:51
    #33129384
Макрос в Excele
Воспользуйся свойством Offset объекта Range.

Код: plaintext
ActiveCell.Offset(rowOffset:= 3 , columnOffset:= 3 ).Activate

Перемещение на 3 строки вниз и на 3 столбца вправо относительно активной ячейки.
...
Рейтинг: 0 / 0
22.06.2005, 16:27:57
    #33129422
Was2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос в Excele
Огромное спасибо!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос в Excele / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]