Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > макрос exel


Автор: Burili6ik 16.6.2009, 11:34
есть таблица, в которой есть столбцы заполняющиеся одинаковыми данными(текст), можно ли сделать макрос чтобы он эти данные в ячейки вводил самостоятельно? чтобы не печатать весь текст каждый раз, а то ctrl c\v задолбал уже. Всем заранее спасибо.

Автор: ИгнатьевАлексей 17.6.2009, 09:44
Конечно можно, даже элементарно (если я правильно понял задачу). 
Только для этого случая достаточно сделать "ctrl+c" и "ctrl+v" один раз smile   Ты этим пользуешься? 
В любом случае, научиться делать подобное с помощью макроса всегда полезно!

Автор: RockClimber 17.6.2009, 12:22
Для этого не нужен макрос, в Excel есть достаточно удобная функция автозаполнения... Начинаешь набирать первые буквы текста, он предлагает варианты из тех, что есть в столбце и начинаются с тех же символов...
Это если я правильно понял вопрос.

Автор: ИгнатьевАлексей 17.6.2009, 14:23
RockClimber, я имел в виду случай, когда в 1000 ячеек нужно занести одну инфу. Зачем же тут автозаполнение?

Автор: RockClimber 17.6.2009, 16:33
Это смотря как вносить. Если в таблице 1000 строк и в день пишется по строчке - то автозаполнением.
А если все 1000 сразу, то да, ctrl+с - выделить 1000 ячеек - ctrl+v.
По посту автора непонятно, что из этого ему нужно...

Автор: FINANSIST 17.6.2009, 19:48
смотри вложение

Автор: Izuver 6.7.2009, 06:42
Действительно если у тебя 1000 строк добавить надо, по приложенному коду в файле, сколько ждать надо? Может так?
Код

Dim n As Integer
n = Range("A1").End(xlDown).Row
Range("шаблон").Copy
Range(Range("A" & n), Range("A" & n + y)).Insert Shift:=xlDown



Если копировать всю строку "шаблон", может сделать ее 3-ей, а не 18-ой?

Если не много строк добавляется и в каждом значении одной строки будет индивидуальное заполнение, может тогда сделать форму для одной строки?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)