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

Вход

Регистрация

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

 

= Мир MS Excel/Протянуть формулу по столбцу - Мир MS Excel

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

Excel 2010
Добрый вечер всем!!!
Не могли бы вы меня перепроверить и указать как лучше усовершенствовать код (потому как само прописывание кода отличается от того когда я его записываю Макрорекордером). Наверное как то вновь запутано сказал %)
Ну вот смотрите сами:
[vba]
Код
'Заполнение столбца Дата согласно выбранного ГОДА и МЕСЯЦА
    Range("B5").FormulaR1C1 = _
        "=IFERROR(DATEVALUE((COUNT(R4C2:R[-1]C)+1)&R2C1&R1C1),"""")"
    Range("B5").Select
    Selection.AutoFill Destination:=Range("B5:B35"), Type:=xlFillValues
    Range("B5:B35").Select
    ActiveWindow.SmallScroll Down:=18
    Range("B5:B35").Copy
    Range("B5:B35").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
[/vba]
Больше всего уверен что протягивание формулы по столбцу можно прописать более компактным образом!?
Или же у меня получилось нормально!?
Прошу критики она мне нужна, спасибо заранее...
К сообщению приложен файл: 7874230.xlsm (44.5 Kb)


Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Воскресенье, 14.05.2017, 22:40
 
Ответить
СообщениеДобрый вечер всем!!!
Не могли бы вы меня перепроверить и указать как лучше усовершенствовать код (потому как само прописывание кода отличается от того когда я его записываю Макрорекордером). Наверное как то вновь запутано сказал %)
Ну вот смотрите сами:
[vba]
Код
'Заполнение столбца Дата согласно выбранного ГОДА и МЕСЯЦА
    Range("B5").FormulaR1C1 = _
        "=IFERROR(DATEVALUE((COUNT(R4C2:R[-1]C)+1)&R2C1&R1C1),"""")"
    Range("B5").Select
    Selection.AutoFill Destination:=Range("B5:B35"), Type:=xlFillValues
    Range("B5:B35").Select
    ActiveWindow.SmallScroll Down:=18
    Range("B5:B35").Copy
    Range("B5:B35").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
[/vba]
Больше всего уверен что протягивание формулы по столбцу можно прописать более компактным образом!?
Или же у меня получилось нормально!?
Прошу критики она мне нужна, спасибо заранее...

Автор - lebensvoll
Дата добавления - 14.05.2017 в 21:09
and_evg Дата: Понедельник, 15.05.2017, 07:12 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 452
Репутация: 78 ±
Замечаний: 0% ±

Excel 2007
lebensvoll, На листе стоит защита. А если на вскидку, то весь приведенный код заменить на
[vba]
Код
Range("B5:B35").FormulaR1C1 = _
        "=IFERROR(DATEVALUE((COUNT(R4C2:R[-1]C)+1)&R2C1&R1C1),"""")"
[/vba]
 
Ответить
Сообщениеlebensvoll, На листе стоит защита. А если на вскидку, то весь приведенный код заменить на
[vba]
Код
Range("B5:B35").FormulaR1C1 = _
        "=IFERROR(DATEVALUE((COUNT(R4C2:R[-1]C)+1)&R2C1&R1C1),"""")"
[/vba]

Автор - and_evg
Дата добавления - 15.05.2017 в 07:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Протянуть формулу по столбцу (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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