Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Aleksey.g84
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
Макрос заливки ячеек по условию
 
#
12.07.2017 00:52:22
Kuzmich, спасибо Вам большое....очень помогли...конечно идет в макросах рассогласование...скажем там где стояла метка, теперь стоит закрашенная ячейка и цифра, но это не беда...главное понятно)
Еще раз спасибо
 
Перейти    
Макрос заливки ячеек по условию
 
#
07.07.2017 04:01:45
Неа....так и не смог сделать другой шрифт в макросе(((
 
Перейти    
Макрос заливки ячеек по условию
 
#
07.07.2017 01:14:06
Kuzmich, получилось как-то так)))
Я вообще толком в VBA ничего не понимаю и могу сейчас что-либо собирать из ранее собранного
Но думаю в моей добавке явно какой-то есть косяк)
И не подскажете что именно отвечает за счетчик?
Хочу этот кусок кода прикрутить еще к ранее созданным макросам
Заранее вам спасибо
Код
Sub Macro29()
Dim i&
Dim n&
Dim cell As Range
On Error Resume Next
    n = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  If CStr(Worksheets("Лист2").Cells(i, 8)) = "-7" And CStr(Worksheets("Лист2").Cells(i, 9)) = "-4" And CStr(Worksheets("Лист2").Cells(i, 10)) = "5" And CStr(Worksheets("Лист2").Cells(i, 15)) = "0.85" Then
    With Range("q" & i)
       .Value = n
       .Interior.Color = RGB(0, 177, 92)
       n = n + 1
    End With
With Selection.Font
        .Name = "Calibri"
        .Size = 12
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
  End If
Next i
End Sub
 
Перейти    
Макрос заливки ячеек по условию
 
#
07.07.2017 00:32:29

Kuzmich, спасибо

Конечно я наверно вас уже достал)))

Но т.к. значки ставятся у меня благодаря шрифту Webdings...выравнивание по правому краю сработало и там соответственно значок)))

Боюсь макросу еще и шрифт нужно скажем Калибри присваивать)
 
Перейти    
Макрос заливки ячеек по условию
 
#
06.07.2017 23:20:03
Kuzmich, спасибо...буду сейчас пробовать
 
Перейти    
Макрос заливки ячеек по условию
 
#
06.07.2017 23:11:17
Kuzmich, пардон еще раз))))
Не подскажете....стоит по молчанию выравнивание ячеек по центру и по другим макросам в ячейке ставиться значок в виде зеленого кружка....кружок этот ставиться по середине....скорее всего цифра счетчика тоже будет по середине и ее не будет видно....
Можно как-то этот момент решить...чтобы макрос игнорировал выравнивание и заносил значение счетчика скажем вправо
 
Перейти    
Макрос заливки ячеек по условию
 
#
06.07.2017 23:08:14
Kuzmich, круто...спасибо большое
Тот файл который вы раньше давали, работает на Виндовс....а этот и на Мас и на Виндовс
Спасибо еще раз
 
Перейти    
Макрос заливки ячеек по условию
 
#
06.07.2017 21:21:20
Kuzmich, вроде решил в чем проблема и немного макрос измени Ваш
Но как прикрутить счетчик повторов я не знаю
Не подскажете пожалуйста...счетчик должен ставить отметку в окрашенной ячейке
В моем макросе внутри окрашенных ячеек я поставил значения 2 и 3....другим словом тут оно встретилось второй раз, а тут уже третий
Вот как бы этот счетчик вывести автоматически?
Заранее вам спасибо
 
Перейти    
Макрос заливки ячеек по условию
 
#
06.07.2017 00:17:52
Kuzmich, тот макрос что предложил Obelisk работает на Мак... на Виндовсе смогу только завтра
 
Перейти    
Макрос заливки ячеек по условию
 
#
06.07.2017 00:10:39
Kuzmich...прошу прощенья не доглядел)))
 
Перейти    
Макрос заливки ячеек по условию
 
#
06.07.2017 00:08:20
Kuzmich, но ведь такое же условие может присутствовать на 10375 строке например... а сам макрос только для 1 строки
 
Перейти    
Макрос заливки ячеек по условию
 
#
06.07.2017 00:03:16
Obelisk, не совсем....нужно по условию ее закрасить...скажем есть значения...если они еще попали в условия, то красим
 
Перейти    
Макрос заливки ячеек по условию
 
#
06.07.2017 00:02:04
Kuzmich, так он ведь без условий все красит в Q1))))
если его поменять на
Код
Sub Макрос1()
Range("Q1:Q100").Interior.Color = vbYellow
End Sub
то макрос закрасит все до 100 строки
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 23:55:02
vikttur, не принимайте близко)))
с этим тоже я столкнулся....я о различиях...буду конечно завтра на работе пробовать на Виндовсе
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 23:49:38
Kuzmich, совершенно верно....сейчас еще раз повторил....
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 23:42:56
Kuzmich, немного поменял код...
сделал так
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("H")) Is Nothing Then
        Application.EnableEvents = False
получилось ничего)
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 23:37:58
vikttur, прекрасно вас понимаю...но на данный момент это похоже на расизм....аааа...у тебя мак...пошел вон от сюда...
Виндовс тоже есть...просто сегодня ноут остался на работе
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 23:33:28
Kuzmich, к сожалению нет....
пробовал по разному...добавил строчек...ничего
закрыл эксель и не сохранил....
открыл еще раз....очистил уже установленные маркера...полез в макросы...нажал выполнить Айсумма...тоже ничего
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 23:27:09
И все же Kuzmich продолжаю грешить на то, что у меня макбук....сделал как вы сказали...скопировал прямо из книги в редактор...сохранил и ничего)))
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 23:14:30
совершенно идентичны...
Код
For i = 1 To iLastRow
    If Cells(i, 8) = "_7" And Cells(i, 9) = "_4" And Cells(i, 10) = "5" And Cells(i, 15) = "0.85" Then
      Cells(i, 17) = 1
      Cells(i, 17).Interior.ColorIndex = 6
    End If
    If Cells(i, 8) = "_10" And Cells(i, 9) = "22" And Cells(i, 10) = "27" And Cells(i, 15) = "0.68" Then
      Cells(i, 18) = 1
      Cells(i, 18).Interior.ColorIndex = 6
    End If
 Next
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 23:05:31
Kuzmich, грешу все таки на то, что у меня макбук...
смотрите...удалил уже отмеченные значения...очистил заливку
добавил ниже строчки и ничего не произошло...залез в макросы, выбрал макрос Айсумма, нажал на выполнить и так же тишина)))
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 22:45:00
Kuzmich, не помогает смена раскладки....
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 21:54:14
Kuzmich, спасибо большое, но у меня чего-то не работает))))
Подозреваю что нужно подключать библиотеки...у меня макбук, а на обычной Виндовс сейчас пока не проверить
И еще маленький вопрос...Kuzmich, скажите, а этот счетчик можно вывести именно в ту ячейку которая должна окрасится?
Заранее спасибо
Изменено: Aleksey.g84 - 05.07.2017 21:54:57
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 20:57:37
Kuzmich, возможности сделать хотя бы очень маленький пример не имею т.к. незнаю как...
 
Перейти    
Подставить символ в определенный столбец в зависимости от значения в столбце B., упростить макрос
 
#
05.07.2017 20:55:46
Еще момент...т.к. макрос получился очень большим, пришлось его разбивать на 3 части
 
Перейти    
Подставить символ в определенный столбец в зависимости от значения в столбце B., упростить макрос
 
#
05.07.2017 20:44:19

В общем пришлось помудохаться и другого выхода как собрать вот такой макрос я не нашел к сожалению

Всем спасибо за помощь
Код
Sub Macro22()Dim i&, msg$, dicObj As New CollectionDim cell As RangeOn Error Resume NextFor i = 3 To Cells(Rows.Count, 1).End(xlUp).RowIf CStr(Worksheets("Лист1").Cells(i, 2)) = "1-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-0" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-9" Then    Range("ae" & i) = "n"    With Range("ae" & i).Font       .Name = "Webdings"       .Color = RGB(0, 177, 92)    End WithEnd IfIf CStr(Worksheets("Лист1").Cells(i, 2)) = "1-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "10-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-0" Then    Range("af" & i) = "n"    With Range("af" & i).Font       .Name = "Webdings"       .Color = RGB(0, 177, 92)    End WithEnd If    If CStr(Worksheets("Лист1").Cells(i, 2)) = "0-1" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "1-2" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "1-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-3" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "1-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-4" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "1-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-5" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "1-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-6" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "1-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-7" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "1-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-8" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "1-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-9" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "0-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "1-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "2-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "3-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "4-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "5-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "6-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "7-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "8-10" Or CStr(Worksheets("Лист1").Cells(i, 2)) = "9-10" Then
    Range("ag" & i) = "n"    With Range("ag" & i).Font       .Name = "Webdings"       .Color = RGB(0, 177, 92)    End WithEnd IfNext iEnd Sub
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 20:24:21
А если бы в макросе были бы еще комментарии что за что отвечает и счетчик сколько то или иное условие встречалось ранее(вывод счетчика в той же окрашенной ячейки), то этот макрос был бы очень хорошим)
Ну как минимум можно было бы в дальнейшем при создании подобного условия легко разобраться как его сделать
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 20:09:02
Bema, и Вам доброго....без макроса никуда к сожалению
Очень много данных в таблице реальной...сюда ее не загрузить...весит почти 10Mb
 
Перейти    
Макрос заливки ячеек по условию
 
#
05.07.2017 20:00:27
Доброго времени суток, Друзья!
Подскажите как создать макрос по условию
К примеру если значение ячейки H = -7, I = -4, J = 5 и O = 0.85, то окрасить ячейку Q в желтый цвет, а так же
если H = -10, I = 22, J = 27 и O = 0.68, то окрасить ячейку R в желтый цвет
Всем заранее спасибо
 
Перейти    
Нужен макрос мастера импорта текста
 
#
05.07.2017 15:04:14
Мотя, Nordheim, спасибо вам большое)
 
Перейти    
Страницы: 1 2 3 След.
Наверх