Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автозаполнение строк именем листа - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автозаполнение строк именем листа (Макросы/Sub)
Автозаполнение строк именем листа
madrom007 Дата: Суббота, 12.07.2014, 23:49 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте Уважаемые пользователи.

Уперся в формулу

есть лист с заполненными ячейками

есть ячейка F1 = в которой указанно точное число строк
Получаю имя листа
Выбираю Выбираю диапазон и заполняю - но упорно ругается на строчку
Range("E1:E" & m).AutoFill Destination:=Range("E1:E" & m), Type:=xlFillCopy

[vba]
Код

Sub Добавка даты()
'
' Добаавка даты
'
'
     
m = Range("f1")

Range("E1").Select
ActiveCell.FormulaR1C1 = ActiveSheet.Name

Range("E1:E" & m).AutoFill Destination:=Range("E1:E" & m), Type:=xlFillCopy    
End Sub

[/vba]
К сообщению приложен файл: 7919769.xls (98.0 Kb)
 
Ответить
СообщениеЗдравствуйте Уважаемые пользователи.

Уперся в формулу

есть лист с заполненными ячейками

есть ячейка F1 = в которой указанно точное число строк
Получаю имя листа
Выбираю Выбираю диапазон и заполняю - но упорно ругается на строчку
Range("E1:E" & m).AutoFill Destination:=Range("E1:E" & m), Type:=xlFillCopy

[vba]
Код

Sub Добавка даты()
'
' Добаавка даты
'
'
     
m = Range("f1")

Range("E1").Select
ActiveCell.FormulaR1C1 = ActiveSheet.Name

Range("E1:E" & m).AutoFill Destination:=Range("E1:E" & m), Type:=xlFillCopy    
End Sub

[/vba]
Автор - madrom007
Дата добавления - 12.07.2014 в 23:49
ikki Дата: Воскресенье, 13.07.2014, 00:02 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Цитата madrom007, 12.07.2014 в 23:49, в сообщении № 1
упорно ругается на строчку
а вы упорно не хотите почитать справку по AutoFill?

я вам таки скажу: будете упорствовать - ничего хорошего не выйдет.
[vba]
Код
Range("E1").AutoFill Destination:=Range("E1:E" & m), Type:=xlFillCopy
[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение
Цитата madrom007, 12.07.2014 в 23:49, в сообщении № 1
упорно ругается на строчку
а вы упорно не хотите почитать справку по AutoFill?

я вам таки скажу: будете упорствовать - ничего хорошего не выйдет.
[vba]
Код
Range("E1").AutoFill Destination:=Range("E1:E" & m), Type:=xlFillCopy
[/vba]
Автор - ikki
Дата добавления - 13.07.2014 в 00:02
madrom007 Дата: Воскресенье, 13.07.2014, 00:18 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
ikki, спасибо за помощь! И пошел читать справку :)
 
Ответить
Сообщениеikki, спасибо за помощь! И пошел читать справку :)
Автор - madrom007
Дата добавления - 13.07.2014 в 00:18
ikki Дата: Воскресенье, 13.07.2014, 00:33 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
кстати, это если уж Вам позарез нужен именно AutoFill
а вообще всё делается проще:[vba]
Код
Sub t(): [b1].CurrentRegion.Columns(1).Offset(, 3).Value = ActiveSheet.Name: End Sub
[/vba]
или, если Вы настаиваете именно на значении в F1, то ещё проще:[vba]
Код
Sub t(): [e1].Resize([f1]).Value = ActiveSheet.Name: End Sub
[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Воскресенье, 13.07.2014, 00:39
 
Ответить
Сообщениекстати, это если уж Вам позарез нужен именно AutoFill
а вообще всё делается проще:[vba]
Код
Sub t(): [b1].CurrentRegion.Columns(1).Offset(, 3).Value = ActiveSheet.Name: End Sub
[/vba]
или, если Вы настаиваете именно на значении в F1, то ещё проще:[vba]
Код
Sub t(): [e1].Resize([f1]).Value = ActiveSheet.Name: End Sub
[/vba]
Автор - ikki
Дата добавления - 13.07.2014 в 00:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автозаполнение строк именем листа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!