Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Внесение изменений сразу на несколько листов книги
 
#1
04.07.2013 16:06:10
Знаю, что можно каким-то образом выделить однообразные листы в книге и внести одинаковые изменения сразу на все выделенные листы, делая их только на первом листе. Подскажите, как выделить листы. Заранее спасибо за ответ.
 
 
 
#2
04.07.2013 16:07:47
зажимаем Shift - кликаем мышкой по именам нужных листов - пишем в нужной ячейке слово - Enter
Учимся сами и помогаем другим...
 
 
 
#3
04.07.2013 16:10:39
Цитата
ber$erk пишет:
зажимаем Shift - кликаем мышкой по именам нужных листов
Shift - выделение всех листов между первым и последним выделенным листом.
Чтобы выбрать непоследовательные листы, то надо зажать и держать Ctrl.
Изменено: Johny - 04.07.2013 16:12:44
There is no knowledge that is not power
 
 
 
#4
04.07.2013 16:12:25
Тупанул я  :) хотел именно Ctrl написать  :D
Учимся сами и помогаем другим...
 
 
 
#5
04.07.2013 16:15:21
"Пишем в нужной ячейке слово - Enter" - это как? Какую ячейку считать "нужной"? Только не смейтесь надо мной. То, что очевидно для Вас, для меня может быть понятно не сразу. Спасибо за понимание :)
 
 
 
#6
04.07.2013 16:37:40
Видео
There is no knowledge that is not power
 
 
 
#7
04.07.2013 16:50:08
ОГРОМНОЕ спасибо!!! Всё получилось! :)  :D
 
 
 
#8
04.07.2013 16:55:43
Всегда пожалуйста. :)
There is no knowledge that is not power
 
 
 
#9
04.07.2013 17:03:47
Не забудьте затем разгруппировать листы!
 
 
 
#10
04.07.2013 17:06:13
Это на видео показано!
There is no knowledge that is not power
 
 
 
#11
22.10.2016 21:41:51
Уважаемые форумчане! Поясните по простому...
почему следующий код удаляет строки в указанных листах:
d = cRetVal.Row
For Each wd In Worksheets(Array(wsh1.Name, wsh2.Name, wsh3.Name))
   wd.Rows(d).Delete Shift:=xlUp
а этот только в том на котором кнопка:
For Each wd In Worksheets(Array(wsh1.Name, wsh2.Name, wsh3.Name))
   wd.Rows(cRetVal.Row).Delete Shift:=xlUp  
 
 
 
#12
22.10.2016 22:43:12
Reno Logan, а какое отношение Ваш вопрос имеет к ЭТОЙ теме?
Будете создавать новую - код оформляйте соответствующим тегом.
 
 
 
#13
22.10.2016 23:56:57
Тема:Внесение изменений сразу на несколько листов книги
По ходу работы возникла проблема:
При внесении изменений  сразу на несколько листов книги  МАКРОСОМ не удаляются строки.

удалить, копировать...поиск выдал эту тему...может не так заряжал поиск..извиняюсь..
смысл пробега по листам понял, но столкнулся с удалением строк (копирование удалось)..
Путем проб и ошибок (спустя N часов) нашел решение, но не понял в чем загвоздка..
 
 
 
#14
23.10.2016 00:30:24
Reno Logan, во втором коде после удаления строки на первом (из списка) листе диапазон cRetVal перестает существовать и выражение cRetVal.Row вызывает ошибку, которую Вы не видите благодаря On Error Resume Next.
 
 
 
#15
23.10.2016 00:43:16
Вот так можно работать и с несколькими несмежными диапазонами (текст приглашения поменяйте сами)
Код
Sub ClearCell_Click()
Dim wd As Worksheet
Dim d As String
  On Error Resume Next
  d = Application.InputBox("Укажите диапазон в одной строке" & vbLf & _
  "или ячейку в строке для удаления:", "Запрос данных", Selection.Address, Type:=8).Address
  If d = "" Then Exit Sub
  For Each wd In Worksheets(Array("1", "2", "3"))
    wd.Range(d).EntireRow.Delete
  Next
End Sub
 
 
 
#16
23.10.2016 00:48:31
Казанский, большое спасибо!
В процессе поиска решения читал ведь про удаление и смещение строк(столбцов)....
Ну что ж, надо быть осторожней с такими действиями, чтоб не...
 
 
 
Страницы: 1
Читают тему
Наверх