Автозаполнение
Aleksey Mileev
Многоуважаемая All, вопрос остается открытым:
Hеобходимо двойной клик по маркеру автозаполнения (возникающему
в правом нижнем углу рамки выделения нескольких ячеек в одной строке)
заменить на "горячие клавиши".
Чайнику не удается найти наименование функции (или чего еще там),
выполняющей это действие.
Так же не удается написать макрос, так как не удается найти
свойство (или...) для авто определения диапазона:
^^^^
Selection.AutoFill Destination:=ActiveCell.Range(....)
^^^^
PS Ранее приведенный мной, пример, увы, лишь частный случай
и не заменяет вышеуказанное умение Excel8 .
Заранее благодарен
Vale
Lishra
George Brink
14 Sep 03 20:27, you wrote to All:
AM> Так же не удается написать макрос, так как не удается найти
AM> свойство (или...) для авто определения диапазона:
AM> ^^^^
AM> Selection.AutoFill Destination:=ActiveCell.Range(....)
Если хочется повторить поведение полностью, то можно делать так:
dim r as Range
set r=Range(Selection.Cells(1,1), ActiveCell.End(xlDown))
Selection.AutoFill Destination:=r
r.Select
Hу а если выбирать область после заполнения не нужно, то и уместить
автозаполнение можно будет в одну строку :)
George
Wasilisa Manevich
Гляжу: Aleksey Mileev и даже All кричат:
"Автозаполнение"! дай-ка и я встряну...
Может тебе еще и это пригодится:
-----------это хелп сказал (ексель 2000)
AutoFill Method
Performs an autofill on the cells in the specified range.
Syntax
expression.AutoFill(Destination, Type)
expression Required. An expression that returns a Range object.
Destination Required Range object. The cells to be filled. The destination
must include the source range.
(диапазон назначения может включать исходную ячейку)
Type Optional Variant. Specifies the fill type. Can be one of the following
XlFillType constants: xlFillDefault, xlFillSeries, xlFillCopy, xlFillFormats,
xlFillValues, xlFillDays, xlFillWeekdays, xlFillMonths, xlFillYears,
xlLinearTrend, or xlGrowthTrend.
If this argument is xlFillDefault or omitted, Microsoft Excel selects the most
appropriate fill type, based on the source range
(если аргумент "заполнение по дефолту", ексель сам определяет тип заполнения)
Образец:
Selection.AutoFill Destination:=Range("B1:E1"), Type:=xlFillDefault
----------------------------------
AM> Hеобходимо двойной клик по маркеру автозаполнения (возникающему
AM> в правом нижнем углу рамки выделения нескольких ячеек в одной строке)
AM> заменить на "горячие клавиши".
AM> Чайнику не удается найти наименование функции (или чего еще там),
AM> выполняющей это действие.
AM> Так же не удается написать макрос, так как не удается найти
AM> свойство (или...) для авто определения диапазона:
AM> ^^^^
AM> Selection.AutoFill Destination:=ActiveCell.Range(....)
AM> ^^^^
AM> PS Ранее приведенный мной, пример, увы, лишь частный случай
AM> и не заменяет вышеуказанное умение Excel8 .
1)В случае конкретных ячеек работает
Range("B1:D2").Select
Selection.AutoFill Destination:=Selection.CurrentRegion
2)Вот так работает (само вправо определяется) (не подходит в случае наличия в
строке пустых клеток)
Range("B1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFill Destination:=Selection.CurrentRegion
В случае офсета конкретно не работает, даже при том, что диапазоны все
определяет.
(в образце активная ячейка а1, заполнены ячейки с а1 по е1 и с а1 по а6)
x = ActiveCell.Offset(0, 1).Address (нашли в1 как начало выделения)
y = ActiveCell.Offset(0, 4).Address (нашли е1 как конец выделения)
z = Right(Selection.CurrentRegion.Address, 4) (нашли заранее адрес диапазона
для будущей вставки автозаполнения
($a$1:$e$6), взяли от него только
адрес самой последней ячейки ($e$6)
(наверняка есть и более грамотное
решение))
Range(x + ":" + y).Select (выделить строку (в1:е1) для начала
автозаполнения)
Selection.AutoFill Destination:=(x + ":" + z) (вставить в в1:е6)- хрен вам. :(
(в а1:е6 не вставляется тоже.)
(а двойным кликом по выделенному
- вставляется запросто.)
Короче, вывод: определяй крайнюю правую ячейку диапазона или через
Range(Selection, Selection.End(xlToRight)).Select,
если нет пустых клеток в строке, или через такую же штуку слева, если есть.
И пользуйся решением ©2.
єі Bye - Bye! ╒ї
╘ґ Василиса. ╙╛