Автозаполнение строк именем листа
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]
Здравствуйте Уважаемые пользователи. Уперся в формулу есть лист с заполненными ячейками есть ячейка 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
Ответить
Сообщение Здравствуйте Уважаемые пользователи. Уперся в формулу есть лист с заполненными ячейками есть ячейка 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
упорно ругается на строчку
а вы упорно не хотите почитать справку по AutoFill? я вам таки скажу: будете упорствовать - ничего хорошего не выйдет. [vba]Код
Range("E1").AutoFill Destination:=Range("E1:E" & m), Type:=xlFillCopy
[/vba]
упорно ругается на строчку
а вы упорно не хотите почитать справку по AutoFill? я вам таки скажу: будете упорствовать - ничего хорошего не выйдет. [vba]Код
Range("E1").AutoFill Destination:=Range("E1:E" & m), Type:=xlFillCopy
[/vba]ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Ответить
Сообщение упорно ругается на строчку
а вы упорно не хотите почитать справку по 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
Ответить
Сообщение 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]
кстати, это если уж Вам позарез нужен именно 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
помощь по 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