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

Вход

Регистрация

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

 

= Мир MS Excel/Подбор высоты объединенных ячеек - Мир MS Excel

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

Excel 2016
Добрый день!
Подскажите, пожалуйста, как макросами подбирать высоту объединенных ячеек?
[vba]
Код
[B4].Rows.AutoFit
[/vba] не работает.
К сообщению приложен файл: _Microsoft_Exce.xlsm(12.3 Kb)
 
Ответить
СообщениеДобрый день!
Подскажите, пожалуйста, как макросами подбирать высоту объединенных ячеек?
[vba]
Код
[B4].Rows.AutoFit
[/vba] не работает.

Автор - AVI
Дата добавления - 16.07.2019 в 04:31
anvg Дата: Вторник, 16.07.2019, 06:38 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 491
Репутация: 236 ±
Замечаний: 0% ±

2016, 365
Доброе время суток
Один из первых ответов по теме в поиске ПОДБОР ВЫСОТЫ СТРОКИ/ШИРИНЫ СТОЛБЦА ОБЪЕДИНЕННОЙ ЯЧЕЙКИ
Вы, главное, не стесняйтесь :)
 
Ответить
СообщениеДоброе время суток
Один из первых ответов по теме в поиске ПОДБОР ВЫСОТЫ СТРОКИ/ШИРИНЫ СТОЛБЦА ОБЪЕДИНЕННОЙ ЯЧЕЙКИ
Вы, главное, не стесняйтесь :)

Автор - anvg
Дата добавления - 16.07.2019 в 06:38
_Boroda_ Дата: Вторник, 16.07.2019, 09:18 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15572
Репутация: 6075 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Да и у нас на форуме есть
http://www.excelworld.ru/forum/3-23520-1 (в последнем посте попроще макрос и с комментами)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДа и у нас на форуме есть
http://www.excelworld.ru/forum/3-23520-1 (в последнем посте попроще макрос и с комментами)

Автор - _Boroda_
Дата добавления - 16.07.2019 в 09:18
AVI Дата: Вторник, 16.07.2019, 09:57 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 503
Репутация: 7 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, Спасибо, я видел на форуме, но почему-то там больше расширяется строки, чем надо. Иногда намного больше.
anvg, спасибо за ссылку, тут тоже больше появляется места.

Не пойму почему.
 
Ответить
Сообщение_Boroda_, Спасибо, я видел на форуме, но почему-то там больше расширяется строки, чем надо. Иногда намного больше.
anvg, спасибо за ссылку, тут тоже больше появляется места.

Не пойму почему.

Автор - AVI
Дата добавления - 16.07.2019 в 09:57
boa Дата: Вторник, 16.07.2019, 11:54 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 397
Репутация: 110 ±
Замечаний: 0% ±

2013, 365
Из личных архивов
[vba]
Код
Private Sub MyMaxRow(): Call MySameRow("MaxRow"): End Sub
Private Sub MyMinRow(): Call MySameRow("MinRow"): End Sub
Private Sub MySameRow(Optional equal As String = "SameRow")
' Макрос записан 21.11.2017 (boa)
' Делает высоту строк одинаковой
Dim Row As Range, i As Double
    For Each Row In Selection.Rows
        Select Case equal
            Case "MaxRow": If i < Row.RowHeight Then i = Row.RowHeight
            Case "MinRow": If Row.RowHeight < i Or i = 0 Then i = Row.RowHeight
            Case "SameRow": i = i + Row.RowHeight
        End Select
    Next
    If equal = "SameRow" Then i = i / Selection.Rows.Count
    For Each Row In Selection.Rows
       Row.RowHeight = i
    Next
End Sub

Private Sub MyMaxCol(): Call MySameCol("MaxCol"): End Sub
Private Sub MyMinCol(): Call MySameCol("MinCol"): End Sub
Private Sub MySameCol(Optional equal As String = "SameCol")
' Макрос записан 21.11.2017 (boa)
' Делает ширину колонок одинаковой.
Dim Col As Range, i As Double
    For Each Col In Selection.Columns
        Select Case equal
            Case "MaxCol": If i < Col.ColumnWidth Then i = Col.ColumnWidth
            Case "MinCol": If Col.ColumnWidth < i Or i = 0 Then i = Col.ColumnWidth
            Case "SameCol": i = i + Col.ColumnWidth
        End Select
    Next
    If equal = "SameCol" Then i = i / Selection.Columns.Count
    For Each Col In Selection.Columns
       Col.ColumnWidth = i
    Next
End Sub
[/vba]


 
Ответить
СообщениеИз личных архивов
[vba]
Код
Private Sub MyMaxRow(): Call MySameRow("MaxRow"): End Sub
Private Sub MyMinRow(): Call MySameRow("MinRow"): End Sub
Private Sub MySameRow(Optional equal As String = "SameRow")
' Макрос записан 21.11.2017 (boa)
' Делает высоту строк одинаковой
Dim Row As Range, i As Double
    For Each Row In Selection.Rows
        Select Case equal
            Case "MaxRow": If i < Row.RowHeight Then i = Row.RowHeight
            Case "MinRow": If Row.RowHeight < i Or i = 0 Then i = Row.RowHeight
            Case "SameRow": i = i + Row.RowHeight
        End Select
    Next
    If equal = "SameRow" Then i = i / Selection.Rows.Count
    For Each Row In Selection.Rows
       Row.RowHeight = i
    Next
End Sub

Private Sub MyMaxCol(): Call MySameCol("MaxCol"): End Sub
Private Sub MyMinCol(): Call MySameCol("MinCol"): End Sub
Private Sub MySameCol(Optional equal As String = "SameCol")
' Макрос записан 21.11.2017 (boa)
' Делает ширину колонок одинаковой.
Dim Col As Range, i As Double
    For Each Col In Selection.Columns
        Select Case equal
            Case "MaxCol": If i < Col.ColumnWidth Then i = Col.ColumnWidth
            Case "MinCol": If Col.ColumnWidth < i Or i = 0 Then i = Col.ColumnWidth
            Case "SameCol": i = i + Col.ColumnWidth
        End Select
    Next
    If equal = "SameCol" Then i = i / Selection.Columns.Count
    For Each Col In Selection.Columns
       Col.ColumnWidth = i
    Next
End Sub
[/vba]

Автор - boa
Дата добавления - 16.07.2019 в 11:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подбор высоты объединенных ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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