Текущее время: Вт, июл 22 2025, 20:12

Часовой пояс: UTC + 3 часа


Правила форума


ВНИМАНИЕ!

Вопросы по SAP Query и Quick View - сюда



Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Преобразования макроса Excel в код. need help.
СообщениеДобавлено: Ср, мар 28 2007, 18:47 
Начинающий
Начинающий

Зарегистрирован:
Ср, мар 28 2007, 18:00
Сообщения: 16
Подскажите пожалуйста как преобразовать макрос

Selection.AutoFill Destination:=Range("I11:I17"), Type:=xlFillDefault
Range("I11:I17").Select
End Sub

(соответсвенное продолжение формул в ячейках на выбранные далее) (это когда пару ячеек выделяешь и за уголок тянешь, а формулы автоматически подстраиваются в новые ячейки)

в код.



CALL METHOD OF ls_excel 'CELLS' = ls_cell1
EXPORTING
#1 = 11
#2 = 9.

CALL METHOD OF ls_excel 'CELLS' = ls_cell2
EXPORTING
#1 = 17
#2 = 9.

CALL METHOD OF ls_excel 'RANGE' = ls_range
EXPORTING
#1 = ls_cell1
#2 = ls_cell2.

CALL METHOD OF ls_range 'SELECT'.

* CALL METHOD OF ls_range 'AutoFill'
* EXPORTING
* #1 = 1.


Получается что-то типа этого, по-видимому. Да несовсем...


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


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт, мар 29 2007, 08:05 
Младший специалист
Младший специалист

Зарегистрирован:
Пн, окт 03 2005, 10:16
Сообщения: 74
Выдержка из хелпа екселевского

Set sourceRange = Worksheets("Sheet1").Range("A1:A2")
Set fillRange = Worksheets("Sheet1").Range("A1:A20")
sourceRange.AutoFill Destination:=fillRange

Т.е. есть два Range: источник (sourceRange) и назначение (fillRange)
источник - это I11:I12, т.е. указание или пример, как именно заполнять дальше
назначение - это I11:I17, т.е. какие ячейки он будет заполнять

т.е. код будет примерно такой ...

Code:

CALL METHOD OF ls_excel 'CELLS' = ls_cell1
EXPORTING
#1 = 11
#2 = 9.

CALL METHOD OF ls_excel 'CELLS' = ls_cell2
EXPORTING
#1 = 12
#2 = 9.

CALL METHOD OF ls_excel 'RANGE' = ls_range_source
EXPORTING
#1 = ls_cell1
#2 = ls_cell2.

CALL METHOD OF ls_excel 'CELLS' = ls_cell1
EXPORTING
#1 = 11
#2 = 9.

CALL METHOD OF ls_excel 'CELLS' = ls_cell2
EXPORTING
#1 = 17
#2 = 9.

CALL METHOD OF ls_excel 'RANGE' = ls_range_dest
EXPORTING
#1 = ls_cell1
#2 = ls_cell2.

CALL METHOD OF ls_range_source 'AutoFill'
EXPORTING
#1 = ls_range_dest.


у меня прокатило :)


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт, мар 29 2007, 08:14 
Младший специалист
Младший специалист

Зарегистрирован:
Пн, окт 03 2005, 10:16
Сообщения: 74
в конце еще надо будет добавить

CALL METHOD OF ls_range_dest 'SELECT'.

а чтобы получить Selection
это надо
Code:
get property of excel 'selection' = range


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Чт, мар 29 2007, 10:48 
Начинающий
Начинающий

Зарегистрирован:
Ср, мар 28 2007, 18:00
Сообщения: 16
Огромное спасибо!


Принять этот ответ
Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB