УФ реализовать макросом
Sergei17
Дата: Среда, 12.10.2016, 19:35 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Здравствуйте. Имеется файл Excel с листом на котором находится таблица. В этой таблице имеется 6 правил УФ. Загвоздка в том, чтобы эти правила прописать в макросе. Реально ли это? Спасибо
Здравствуйте. Имеется файл Excel с листом на котором находится таблица. В этой таблице имеется 6 правил УФ. Загвоздка в том, чтобы эти правила прописать в макросе. Реально ли это? Спасибо Sergei17
Сообщение отредактировал Sergei17 - Среда, 12.10.2016, 19:41
Ответить
Сообщение Здравствуйте. Имеется файл Excel с листом на котором находится таблица. В этой таблице имеется 6 правил УФ. Загвоздка в том, чтобы эти правила прописать в макросе. Реально ли это? Спасибо Автор - Sergei17 Дата добавления - 12.10.2016 в 19:35
Nic70y
Дата: Среда, 12.10.2016, 19:38 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8709
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
правила прописать в макросе
или все-таки залить заливкой (или что-то другое) макросом?
правила прописать в макросе
или все-таки залить заливкой (или что-то другое) макросом?Nic70y
ЮMoney 41001841029809
Ответить
Сообщение правила прописать в макросе
или все-таки залить заливкой (или что-то другое) макросом?Автор - 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
Ответить
Сообщение По итогу должно получиться то, что из УФ убрать все правила, Так как эти правила будут прописаны в макросе Автор - Sergei17 Дата добавления - 12.10.2016 в 19:43
Nic70y
Дата: Среда, 12.10.2016, 20:12 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8709
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
как-то так, наверное, может быть: [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]
как-то так, наверное, может быть: [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
ЮMoney 41001841029809
Ответить
Сообщение как-то так, наверное, может быть: [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
Сообщение отредактировал Sergei17 - Среда, 12.10.2016, 20:19
Ответить
Сообщение это для одного правила? и формулы нет по какому признаку будет закрашиваться Автор - Sergei17 Дата добавления - 12.10.2016 в 20:15
Nic70y
Дата: Среда, 12.10.2016, 20:23 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 8709
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
нет [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]
нет [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
ЮMoney 41001841029809
Сообщение отредактировал 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
Ответить
Сообщение но если из ячейки столбца С убрать данные то заливка остается. А должна заливка удаляться Автор - Sergei17 Дата добавления - 12.10.2016 в 21:00
Nic70y
Дата: Среда, 12.10.2016, 21:08 |
Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 8709
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
[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]
[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
ЮMoney 41001841029809
Ответить
Сообщение [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
Ответить
Сообщение Можно показать на моем примере из 1 поста? Спасибо Автор - Sergei17 Дата добавления - 12.10.2016 в 21:26
Nic70y
Дата: Среда, 12.10.2016, 21:33 |
Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 8709
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
забыл УФ удалить, перезалил файл
забыл УФ удалить, перезалил файл Nic70y
ЮMoney 41001841029809
Сообщение отредактировал 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