Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Объединить несколько условий в один оператор
 
#1
11.09.2016 09:18:13
Добрый день. Скажите как объединить в один оператор then
Код
        lr = Cells(Rows.Count, 3).End(xlUp).Row
        For i = 2 To lr
            If Cells(i, 3) <> Cells(i - 1, 3) Then
            Cells(i - 1, 1).Resize(, 9).Borders(9).Weight = xlThin
            Cells(i - 1, 1).Resize(, 9).Borders(9).Color = -16776961
            End If
        Next i
 
 
 
#2
11.09.2016 09:21:48
не понятна проблема, у Вас и так только одно условие в конструкции If - Then:
Код
If Cells(i, 3) <> Cells(i - 1, 3) Then
 
 
 
#3
11.09.2016 09:23:31
Так у Вас он и так один. Можно так подсократить
Код
        If Cells(i, 3) <> Cells(i - 1, 3) Then
            With Cells(i - 1, 1).Resize(, 9).Borders(9)
                .Weight = xlThin
                .Color = -16776961
            End With
        End If
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
11.09.2016 09:38:03
Сенькс. Я думал что можно в одну стоку прописать...
 
 
 
#5
11.09.2016 09:38:44
Цитата
Karataev написал:
не понятна проблема, у Вас и так только одно условие в конструкции If - Then:
не корректно выразился. Простите...
 
 
 
#6
11.09.2016 09:41:33
так
Код
        lr = Cells(Rows.Count, 3).End(xlUp).Row
        For i = 2 To lr
            If Cells(i, 3) <> Cells(i - 1, 3) Then Cells(i - 1, 1).Resize(, 9).Borders(9).Weight = xlThin: Cells(i - 1, 1).Resize(, 9).Borders(9).Color = -16776961
        Next i

?
 
 
 
#7
11.09.2016 09:48:57
Цитата
QwertyBoss написал: Я думал что можно в одну стоку прописать
Далась им эта бронированная камера Вам эта одна строка. Ну какой в этом смысл? Неужели пример от Karataev, более удобочитаем чем мой?
Или Вы боитесь открытых пространств длинных текстов? ;) Так строка такой длины еще страшнее
Мой вариант одной строкой
Код
    For i = 2 To lr
        If Cells(i, 3) <> Cells(i - 1, 3) Then
            With Cells(i - 1, 1).Resize(, 9).Borders(9): .Weight = xlThin: .Color = -16776961: End With
        End If
    Next i
Изменено: Sanja - 11.09.2016 10:03:19
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
11.09.2016 10:24:07
А про Ваше  ":"  я совсем забыл... спс.!
Цитата
Sanja написал:
Далась им эта бронированная камера Вам эта одна строка. Ну какой в этом смысл?
Вы знаете, в последнее время стал за собой замечать, что стали  нравиться красивые и аккуратные  теги =).  И иногда это начинает мешать... Как в этом случае, вместо того что бы что то новое узнавать, я отвлекаю Вас на вот такие вот глупости маловажные детали. Так что не держите на меня пож. зла...
Karataev отдельное спс. за то что не прошли мимо.. .Всем удачи!!!
Изменено: QwertyBoss - 11.09.2016 10:27:07
 
 
 
#9
11.09.2016 10:27:24
Цитата
QwertyBoss написал: стали  нравиться красивые и аккуратные  теги
а должны нравиться лаконичные и безупречные, с точки зрения логики...
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
11.09.2016 10:31:11
Абсолютно с Вами солидарен, и есть к чему стремиться... :)
 
 
 
Страницы: 1
Читают тему
Наверх