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

Вход

Регистрация

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

 

= Мир MS Excel/Некорректная работа макроса с объединёнными ячейками - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Некорректная работа макроса с объединёнными ячейками (Макросы/Sub)
Некорректная работа макроса с объединёнными ячейками
trn09 Дата: Среда, 26.08.2015, 11:46 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Имеется макрос, который скрывает ненужные столбцы, а потом скрывает пустые строки.
Но он некорректно работает с объединёнными ячейками.
Можно это как то легко починить, или проще не объединять ячейки, а вбить текст в каждую отдельно?
И ещё можно как то одной кнопкой расхайдить все скрытые столбцы/строки?
К сообщению приложен файл: New_Microsoft_O.xlsm (21.9 Kb)
 
Ответить
СообщениеИмеется макрос, который скрывает ненужные столбцы, а потом скрывает пустые строки.
Но он некорректно работает с объединёнными ячейками.
Можно это как то легко починить, или проще не объединять ячейки, а вбить текст в каждую отдельно?
И ещё можно как то одной кнопкой расхайдить все скрытые столбцы/строки?

Автор - trn09
Дата добавления - 26.08.2015 в 11:46
nilem Дата: Среда, 26.08.2015, 12:00 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
trn09, привет
а что именно некорректно работает. Попробовал, вроде все норм.
"расхайдить все скрытые столбцы/строки" можно так
[vba]
Код
Sub UnHide()
'на активном листе
Columns.Hidden = False
Rows.Hidden = False
End Sub
[/vba]
[p.s.]
"...а вбить текст в каждую отдельно"
вбить все-таки :)[/p.s.]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеtrn09, привет
а что именно некорректно работает. Попробовал, вроде все норм.
"расхайдить все скрытые столбцы/строки" можно так
[vba]
Код
Sub UnHide()
'на активном листе
Columns.Hidden = False
Rows.Hidden = False
End Sub
[/vba]
[p.s.]
"...а вбить текст в каждую отдельно"
вбить все-таки :)[/p.s.]

Автор - nilem
Дата добавления - 26.08.2015 в 12:00
trn09 Дата: Среда, 26.08.2015, 12:47 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
nilem, Он скрывает серы строки с названиями категорий (Section)
Например во вторую категорию входит парамерт 18,19,20. Хотелось бы, что бы он оставлял серые строки.
За расхайд спасибо =)
 
Ответить
Сообщениеnilem, Он скрывает серы строки с названиями категорий (Section)
Например во вторую категорию входит парамерт 18,19,20. Хотелось бы, что бы он оставлял серые строки.
За расхайд спасибо =)

Автор - trn09
Дата добавления - 26.08.2015 в 12:47
nilem Дата: Среда, 26.08.2015, 13:01 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
попробуйте вот эту строчку
[vba]
Код
For j = 1 To n: f = f And IsEmpty(.Cells(i, a(j))): Next
[/vba]
переписать вот так
[vba]
Код
For j = 1 To n: f = f And IsEmpty(.Cells(i, a(j)).MergeArea.Cells(1)): Next
[/vba]


Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Среда, 26.08.2015, 13:01
 
Ответить
Сообщениепопробуйте вот эту строчку
[vba]
Код
For j = 1 To n: f = f And IsEmpty(.Cells(i, a(j))): Next
[/vba]
переписать вот так
[vba]
Код
For j = 1 To n: f = f And IsEmpty(.Cells(i, a(j)).MergeArea.Cells(1)): Next
[/vba]

Автор - nilem
Дата добавления - 26.08.2015 в 13:01
trn09 Дата: Среда, 26.08.2015, 13:50 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
nilem, Спасибо! Все заработало! =)
 
Ответить
Сообщениеnilem, Спасибо! Все заработало! =)

Автор - trn09
Дата добавления - 26.08.2015 в 13:50
vikttur Дата: Среда, 26.08.2015, 14:19 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

 
Ответить
СообщениеНачало:
http://www.planetaexcel.ru/forum....h-strok

Автор - vikttur
Дата добавления - 26.08.2015 в 14:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Некорректная работа макроса с объединёнными ячейками (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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