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

Вход

Регистрация

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

 

= Мир MS Excel/Границы при условном форматировании - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Границы при условном форматировании
Казак Дата: Вторник, 30.01.2018, 12:24 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
1. При условном форматирований как можно нарисовать диагональные границы ячейки.
2. При условном форматирований как можно сделать жирным границ ячейки.
 
Ответить
Сообщение1. При условном форматирований как можно нарисовать диагональные границы ячейки.
2. При условном форматирований как можно сделать жирным границ ячейки.

Автор - Казак
Дата добавления - 30.01.2018 в 12:24
sboy Дата: Вторник, 30.01.2018, 12:29 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Да в принципе как и все остальное (цвет, шрифт и т.д.)
Непонятно, что у Вас не получается...
приложите файл с примером, быстрее получите помощь.


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Да в принципе как и все остальное (цвет, шрифт и т.д.)
Непонятно, что у Вас не получается...
приложите файл с примером, быстрее получите помощь.

Автор - sboy
Дата добавления - 30.01.2018 в 12:29
bmv98rus Дата: Вторник, 30.01.2018, 12:37 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация: 772 ±
Замечаний: 0% ±

Excel 2013/2016
sboy, e Казак, не получается сделать то, что не доступно из УФ.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениеsboy, e Казак, не получается сделать то, что не доступно из УФ.

Автор - bmv98rus
Дата добавления - 30.01.2018 в 12:37
sboy Дата: Вторник, 30.01.2018, 12:45 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
bmv98rus, согласен) не внимательно прочитал вопрос...


Яндекс: 410016850021169
 
Ответить
Сообщениеbmv98rus, согласен) не внимательно прочитал вопрос...

Автор - sboy
Дата добавления - 30.01.2018 в 12:45
Казак Дата: Вторник, 30.01.2018, 12:53 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, Пример
К сообщению приложен файл: 6118278.xlsx (9.3 Kb)
 
Ответить
Сообщениеsboy, Пример

Автор - Казак
Дата добавления - 30.01.2018 в 12:53
китин Дата: Вторник, 30.01.2018, 13:15 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Казак, это только макросом


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеКазак, это только макросом

Автор - китин
Дата добавления - 30.01.2018 в 13:15
bmv98rus Дата: Вторник, 30.01.2018, 13:18 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация: 772 ±
Замечаний: 0% ±

Excel 2013/2016
это только макросом

Перефразирую, Условным форматированием это невозможно, даже если пытаться нужные типы линий подпихнуть через VBA. А вот например через UDF или макрос изменять формат ячейки изходя из значения ячейки - можно.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
это только макросом

Перефразирую, Условным форматированием это невозможно, даже если пытаться нужные типы линий подпихнуть через VBA. А вот например через UDF или макрос изменять формат ячейки изходя из значения ячейки - можно.

Автор - bmv98rus
Дата добавления - 30.01.2018 в 13:18
sboy Дата: Вторник, 30.01.2018, 13:40 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
это только макросом

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    For Each cl In Target.Cells
        If cl.Value = 1 Then
            With cl.Borders
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThick
            End With
            
            With cl.Borders(xlDiagonalUp)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThin
            End With
            Else
                cl.Borders.LineStyle = xlNone
                cl.Borders(xlDiagonalUp).LineStyle = xlNone
        End If
    Next
End Sub
[/vba]
К сообщению приложен файл: 6118278.xlsm (16.8 Kb)


Яндекс: 410016850021169
 
Ответить
Сообщение
это только макросом

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    For Each cl In Target.Cells
        If cl.Value = 1 Then
            With cl.Borders
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThick
            End With
            
            With cl.Borders(xlDiagonalUp)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlThin
            End With
            Else
                cl.Borders.LineStyle = xlNone
                cl.Borders(xlDiagonalUp).LineStyle = xlNone
        End If
    Next
End Sub
[/vba]

Автор - sboy
Дата добавления - 30.01.2018 в 13:40
bmv98rus Дата: Вторник, 30.01.2018, 13:56 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4147
Репутация: 772 ±
Замечаний: 0% ±

Excel 2013/2016
sboy, Думаю уместнее UDF и в соседнюю ячейку его в нем же указать где применяем формат. ведь значение может быть расчетным. Ну или на Calculate завязываться, что менее интересно. Но все конечно от задачи зависит.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениеsboy, Думаю уместнее UDF и в соседнюю ячейку его в нем же указать где применяем формат. ведь значение может быть расчетным. Ну или на Calculate завязываться, что менее интересно. Но все конечно от задачи зависит.

Автор - bmv98rus
Дата добавления - 30.01.2018 в 13:56
  • Страница 1 из 1
  • 1
Поиск:

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