Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2014.06.29;
Скачать: CL | DM;

Вниз

Народ, а как в Excel-е добавить N рядов?   Найти похожие ветки 

 
Ega23 ©   (2013-12-12 18:01) [0]

Есть, допустим, десятый ряд. На 11-м какая-то фигня идёт. Как мне после 10-го вставить 8 рядов, с форматированием как у 10-го?

Как макросы записывать - это я в курсе. Но что-то там адЪ получается, говорит, что "Selection" не поддерживается OLE Automation.


 
sniknik ©   (2013-12-12 18:26) [1]

замени его на Range т.е. например - Sheet.Range["a10"] (если правильно помню...)


 
sniknik ©   (2013-12-12 18:28) [2]

или вот так (это из кода, должно работать)
Sheet.Range[Sheet.Cells[1, 10], Sheet.Cells[9, 10]]


 
Ega23 ©   (2013-12-12 18:54) [3]

т.е. я правильно понял, что надо сделать что-то типа
Sheet.Range[Sheet.Cells[1, 10], Sheet.Cells[9, 10]].Insert ?


 
NoUser ©   (2013-12-12 20:25) [4]


Sheet.Range["A11:A17"].EntireRow.Insert(xlShiftUp,EmptyParam);


 
Ega23 ©   (2013-12-12 22:20) [5]


> Sheet.Range["A11:A17"].EntireRow.Insert(xlShiftUp,EmptyParam);


Ёшкин кот, кажись то, что надо!
Спасибо, завтра буду проверять!


 
Rouse_ ©   (2013-12-13 00:18) [6]

Дожили... :)
А у Юрыча спросить не але? :)


 
Rouse_ ©   (2013-12-13 00:21) [7]

ЗЫ: я теперь понял что ты сегодня целый день такой грусный ходил и на MS едко матерился :)


 
Ega23 ©   (2013-12-13 00:26) [8]


>  я теперь понял что ты сегодня целый день такой грусный
> ходил и на MS едко матерился :)


Да не, там другие замуты были, это последняя оставалась. Под конец дня идея в башку пришла, но сходу сделать не получилось.


 
Ega23 ©   (2013-12-13 11:51) [9]

Да, это то что надо было. Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2014.06.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.004 c
15-1386937387
Никифиров И.В.
2013-12-13 16:23
2014.06.29
Виджеты для смарт-тв Самсунг


2-1377623196
lancomm
2013-08-27 21:06
2014.06.29
MainMenu и PageControl


15-1387103920
Cobalt
2013-12-15 14:38
2014.06.29
copy-on-write 8-bit строки


2-1377774807
delphi.coder
2013-08-29 15:13
2014.06.29
работа с объктом TFieldDataLink


15-1386952352
Kipan
2013-12-13 20:32
2014.06.29
GDI