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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » объединенные ячейки для макроса (Макросы/Sub)
объединенные ячейки для макроса
AmonRa Дата: Понедельник, 29.07.2019, 10:55 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
добрый день! помогите пожалуйста с решением вопроса. есть файл в котором написан макрос, все работает до тех пор, пока не начинаю объединять ячейки для большего удобства и коректного отображения информации. помогите с решением файл образец прикрепляю.
Объединенные ячейки на листе "Служебная Записка" столбец "Х" строки "12-18"

Заранее благодарю!
К сообщению приложен файл: 2961769.xlsm(61.1 Kb)
 
Ответить
Сообщениедобрый день! помогите пожалуйста с решением вопроса. есть файл в котором написан макрос, все работает до тех пор, пока не начинаю объединять ячейки для большего удобства и коректного отображения информации. помогите с решением файл образец прикрепляю.
Объединенные ячейки на листе "Служебная Записка" столбец "Х" строки "12-18"

Заранее благодарю!

Автор - AmonRa
Дата добавления - 29.07.2019 в 10:55
wild_pig Дата: Среда, 31.07.2019, 00:11 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 500
Репутация: 95 ±
Замечаний: 0% ±

2003, 2013
Всё работает, если закомментировать строки с обращениями к несуществующим листам.
 
Ответить
СообщениеВсё работает, если закомментировать строки с обращениями к несуществующим листам.

Автор - wild_pig
Дата добавления - 31.07.2019 в 00:11
krosav4ig Дата: Среда, 31.07.2019, 01:24 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2146
Репутация: 893 ±
Замечаний: 0% ±

Excel 2007,2010,2013
%)
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    On Error Resume Next
    For Each r In Target.Rows
        With r.Cells(1, 1)
            If Not Intersect([$X$13:$X$18], .Cells) Is Nothing Then
                .Offset(1).EntireRow.Hidden = (.Value = "")
                For Each v In Array(Array("Заявление на деньги", 50), _
                    Array("Маршрутный лист", 7), _
                    Array("СЗ по прибытию", 11), _
                    Array("Авансовый отчет", 12))
                    xx(Evaluate("'" & v(0) & "'!A1"), .Row - 12, v(1)).Hidden = (.Value = "")
                Next
            End If
        End With
    Next
End Sub
Function xx(ByRef r As Range, i, n) As Range
    Set xx = r.Offset(, i * n).Resize(, n).EntireColumn
End Function
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение%)
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    On Error Resume Next
    For Each r In Target.Rows
        With r.Cells(1, 1)
            If Not Intersect([$X$13:$X$18], .Cells) Is Nothing Then
                .Offset(1).EntireRow.Hidden = (.Value = "")
                For Each v In Array(Array("Заявление на деньги", 50), _
                    Array("Маршрутный лист", 7), _
                    Array("СЗ по прибытию", 11), _
                    Array("Авансовый отчет", 12))
                    xx(Evaluate("'" & v(0) & "'!A1"), .Row - 12, v(1)).Hidden = (.Value = "")
                Next
            End If
        End With
    Next
End Sub
Function xx(ByRef r As Range, i, n) As Range
    Set xx = r.Offset(, i * n).Resize(, n).EntireColumn
End Function
[/vba]

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

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