Обьединить макросы и сбросить содержимое ячеек

Пользователь

Гость

30.07.2008 12:47:37

День добрый!
Очень прошу помощи- дальше не могу догадаться как сделать.
Коротко- хочется обьединить два макроса- как бы в цикл, и второе- незащищённые ячейки "обнулить".
Подробнее- в файле.

Спасибо кто сможет помочь.

Прикрепленные файлы

post_26028.xls (276 КБ)

Guest Гость	#2 30.07.2008 13:01:57 Sub Макрос2() ' Прячем лишнии строки ' Снимаем- ставим пароль на лист ' Сочетание клавиш: Ctrl+s ActiveSheet.Unprotect Password:="" Range("7:13,15:21,23:29,31:37,39:45,47:53,55:61,63:69,71:77,79:85,87:93").EntireRow.Hidden = Not Rows("7:7").Hidden Range("A1").Activate ActiveSheet.Protect Password:="" End Sub

Guest Гость	#3 30.07.2008 13:05:53 2 Dim c As Range For Each c In Range("c8:av12").Cells c.FormulaR1C1 = "12:00:00 AM" Next и т.д.

Raptor Пользователь Сообщений: 182 Регистрация: 01.01.1970	#4 30.07.2008 13:21:43 Во 2 делаем еще проще без циклов: Union(Range("c8:ae12"), Range("c16:ae20"), Range("c24:ae27")..... и т.д.).FormulaR1C1 = "12:00:00 AM"

Raptor Пользователь Сообщений: 182 Регистрация: 01.01.1970	#5 30.07.2008 13:37:56 Ну а для самых ленивых: For i = 0 To 80 Step 8 Range("c8:av12").Offset(i, 0).FormulaR1C1 = "12:00:00 AM" Next на все диапазаноны.

Пользователь Гость	#6 30.07.2008 14:03:09 Спасибо большое- вечером в спокойной обстановке "наваяю" и отпишусь. Думаю, что всё будет хорошо- плохих советов на этом форуме я не встречал. С уважением к Вашим знаниям.

Пользователь

Гость

30.07.2008 18:50:26

Спасибо- два макроса в "цикл" обьединились без проблем, а вот со второй частью- проблема, т.к. в указанных Вами диапазонах (например c8:ae12) есть защищённые ячейки- они закрашены жёлтым цветом, и макрос ругается на них, а если описывать каждый небольшой диапазончик- то от чего ушли, к тому и пришли- огромный макрос.
Думаю тут надо каким-то образом в указанном диапазоне проверять- нет защиты- сброс по нулям, стоит защита - следующая ячейка, но учитывать ещё несколько незащищённых ячеек- содержимое которых просто удалить.( в принципе- фиг с ними- тоже можно по нулям)

Может кто-нибудь поможет? Не хватает мне образования.
Пожалуйста.

Raptor Пользователь Сообщений: 182 Регистрация: 01.01.1970	#8 30.07.2008 18:59:07 Немного подкорректирую предложенный вариант: For i = 0 To 80 Step 8 For each cl in Range("c8:av12").Offset(i, 0) If Not cl.Locked Then cl.FormulaR1C1 = "12:00:00 AM" Next Next

Пользователь Гость	#9 30.07.2008 19:46:52 Огромное спасибо, наставили на путь истинный! Всё работает!

Читают тему