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

Вход

Регистрация

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

 

= Мир MS Excel/УФ реализовать макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » УФ реализовать макросом (Формулы/Formulas)
УФ реализовать макросом
Sergei17 Дата: Среда, 12.10.2016, 19:35 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте. Имеется файл Excel с листом на котором находится таблица. В этой таблице имеется 6 правил УФ. Загвоздка в том, чтобы эти правила прописать в макросе. Реально ли это? Спасибо
К сообщению приложен файл: 5808812.xls(58Kb)


Сообщение отредактировал Sergei17 - Среда, 12.10.2016, 19:41
 
Ответить
СообщениеЗдравствуйте. Имеется файл Excel с листом на котором находится таблица. В этой таблице имеется 6 правил УФ. Загвоздка в том, чтобы эти правила прописать в макросе. Реально ли это? Спасибо

Автор - Sergei17
Дата добавления - 12.10.2016 в 19:35
Nic70y Дата: Среда, 12.10.2016, 19:38 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3923
Репутация: 830 ±
Замечаний: 0% ±

Excel 2013
правила прописать в макросе
или все-таки залить заливкой (или что-то другое) макросом?


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение
правила прописать в макросе
или все-таки залить заливкой (или что-то другое) макросом?

Автор - Nic70y
Дата добавления - 12.10.2016 в 19:38
Sergei17 Дата: Среда, 12.10.2016, 19:42 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
файл примера прикрепил
 
Ответить
Сообщениефайл примера прикрепил

Автор - Sergei17
Дата добавления - 12.10.2016 в 19:42
Sergei17 Дата: Среда, 12.10.2016, 19:43 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
По итогу должно получиться то, что из УФ убрать все правила, Так как эти правила будут прописаны в макросе
 
Ответить
СообщениеПо итогу должно получиться то, что из УФ убрать все правила, Так как эти правила будут прописаны в макросе

Автор - Sergei17
Дата добавления - 12.10.2016 в 19:43
Nic70y Дата: Среда, 12.10.2016, 20:12 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3923
Репутация: 830 ±
Замечаний: 0% ±

Excel 2013
как-то так, наверное, может быть:
[vba]
Код
Sub tipa_macro()
    For Each c In Range("c11:c99")
    If c <> "" Then
    c.Offset(0, -2).Columns("a:u").Interior.Color = Len(c) * 1000 + 5
    End If
    Next
End Sub
[/vba]


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщениекак-то так, наверное, может быть:
[vba]
Код
Sub tipa_macro()
    For Each c In Range("c11:c99")
    If c <> "" Then
    c.Offset(0, -2).Columns("a:u").Interior.Color = Len(c) * 1000 + 5
    End If
    Next
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 12.10.2016 в 20:12
Sergei17 Дата: Среда, 12.10.2016, 20:15 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
это для одного правила? и формулы нет по какому признаку будет закрашиваться


Сообщение отредактировал Sergei17 - Среда, 12.10.2016, 20:19
 
Ответить
Сообщениеэто для одного правила? и формулы нет по какому признаку будет закрашиваться

Автор - Sergei17
Дата добавления - 12.10.2016 в 20:15
Nic70y Дата: Среда, 12.10.2016, 20:23 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3923
Репутация: 830 ±
Замечаний: 0% ±

Excel 2013
это для одного правила?
нет
[vba]
Код
Sub tipa_macro_2()
    For Each c In Range("c11:c99")
    'первое правило
    If Len(c) = 11 Then 'тута условие = 11
    c.Offset(0, -2).Columns("a:u").Interior.Color = 589 'тут "выдумайте" цвет
    End If
    'конец первого правила
    '.....................................
    Next
End Sub
[/vba]
[vba]
Код
Sub tipa_macro_3()
    For Each c In Range("c11:c99")
    If Len(c) = 11 Then c.Offset(0, -2).Columns("a:u").Interior.Color = 589 '1
    If Len(c) = 14 Then c.Offset(0, -2).Columns("a:u").Interior.Color = 255 '2
    Next
End Sub
[/vba]


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Среда, 12.10.2016, 20:31
 
Ответить
Сообщение
это для одного правила?
нет
[vba]
Код
Sub tipa_macro_2()
    For Each c In Range("c11:c99")
    'первое правило
    If Len(c) = 11 Then 'тута условие = 11
    c.Offset(0, -2).Columns("a:u").Interior.Color = 589 'тут "выдумайте" цвет
    End If
    'конец первого правила
    '.....................................
    Next
End Sub
[/vba]
[vba]
Код
Sub tipa_macro_3()
    For Each c In Range("c11:c99")
    If Len(c) = 11 Then c.Offset(0, -2).Columns("a:u").Interior.Color = 589 '1
    If Len(c) = 14 Then c.Offset(0, -2).Columns("a:u").Interior.Color = 255 '2
    Next
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 12.10.2016 в 20:23
Sergei17 Дата: Среда, 12.10.2016, 21:00 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
но если из ячейки столбца С убрать данные то заливка остается. А должна заливка удаляться
 
Ответить
Сообщениено если из ячейки столбца С убрать данные то заливка остается. А должна заливка удаляться

Автор - Sergei17
Дата добавления - 12.10.2016 в 21:00
Nic70y Дата: Среда, 12.10.2016, 21:08 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3923
Репутация: 830 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Sub tipa_macro_3()
Application.ScreenUpdating = 0

    Range("A11:U99").Interior.Pattern = xlNone 'вот это
    For Each c In Range("c11:c99")
    If Len(c) = 11 Then c.Offset(0, -2).Columns("a:u").Interior.Color = 589 '1
    If Len(c) = 14 Then c.Offset(0, -2).Columns("a:u").Interior.Color = 255 '2
    Next
End Sub
[/vba]


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение[vba]
Код
Sub tipa_macro_3()
Application.ScreenUpdating = 0

    Range("A11:U99").Interior.Pattern = xlNone 'вот это
    For Each c In Range("c11:c99")
    If Len(c) = 11 Then c.Offset(0, -2).Columns("a:u").Interior.Color = 589 '1
    If Len(c) = 14 Then c.Offset(0, -2).Columns("a:u").Interior.Color = 255 '2
    Next
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 12.10.2016 в 21:08
Sergei17 Дата: Среда, 12.10.2016, 21:26 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Можно показать на моем примере из 1 поста? Спасибо
 
Ответить
СообщениеМожно показать на моем примере из 1 поста? Спасибо

Автор - Sergei17
Дата добавления - 12.10.2016 в 21:26
Nic70y Дата: Среда, 12.10.2016, 21:33 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3923
Репутация: 830 ±
Замечаний: 0% ±

Excel 2013
забыл УФ удалить, перезалил файл
К сообщению приложен файл: 5808812-1-.xls(66Kb)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Среда, 12.10.2016, 21:37
 
Ответить
Сообщениезабыл УФ удалить, перезалил файл

Автор - Nic70y
Дата добавления - 12.10.2016 в 21:33
Sergei17 Дата: Четверг, 13.10.2016, 18:57 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
спасибо
 
Ответить
Сообщениеспасибо

Автор - Sergei17
Дата добавления - 13.10.2016 в 18:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » УФ реализовать макросом (Формулы/Formulas)
Страница 1 из 11
Поиск:

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