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

Вход

Регистрация

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

 

= Мир MS Excel/Удалить первые 5 строк на всех листах - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Удалить первые 5 строк на всех листах
makser Дата: Среда, 23.11.2016, 15:25 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
день добрый, имеется много файлов с одинаковым наименованием листов. В файлах три листа: Итого, Почта, Банк...необходимо на листах Почта и Банк полностью удалить первые 5 строк. Спасибо)
К сообщению приложен файл: 9112335.xls (25.0 Kb)
 
Ответить
Сообщениедень добрый, имеется много файлов с одинаковым наименованием листов. В файлах три листа: Итого, Почта, Банк...необходимо на листах Почта и Банк полностью удалить первые 5 строк. Спасибо)

Автор - makser
Дата добавления - 23.11.2016 в 15:25
_Boroda_ Дата: Среда, 23.11.2016, 15:43 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16888
Репутация: 6611 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Попробуйте в макросе, написанном Олегом Karataev, добавить удаление вот так
[vba]
Код
  ... 
 Select Case LCase(sh.Name)
        Case "почта"
            sh.Rows("1:5").Delete
            sh.Name = "p"
        Case "банк"
            sh.Rows("1:5").Delete
            sh.Name = "b"
    End Select
...
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПопробуйте в макросе, написанном Олегом Karataev, добавить удаление вот так
[vba]
Код
  ... 
 Select Case LCase(sh.Name)
        Case "почта"
            sh.Rows("1:5").Delete
            sh.Name = "p"
        Case "банк"
            sh.Rows("1:5").Delete
            sh.Name = "b"
    End Select
...
[/vba]

Автор - _Boroda_
Дата добавления - 23.11.2016 в 15:43
makser Дата: Среда, 23.11.2016, 15:53 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
_Boroda_, выдает ошибку
К сообщению приложен файл: 1502630.png (53.9 Kb)
 
Ответить
Сообщение_Boroda_, выдает ошибку

Автор - makser
Дата добавления - 23.11.2016 в 15:53
makser Дата: Среда, 23.11.2016, 16:13 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
_Boroda_, разобрался, спасибо Вам обоим!
 
Ответить
Сообщение_Boroda_, разобрался, спасибо Вам обоим!

Автор - makser
Дата добавления - 23.11.2016 в 16:13
  • Страница 1 из 1
  • 1
Поиск:

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