Простановка значений по критерию в Columns(1)

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Простановка значений по критерию в Columns(1) (Макросы/Sub)

ant6729

Дата: Воскресенье, 04.02.2018, 00:33 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Всем добрый вечер!
Пример во вложении.
1.
В колонку Ранг1 проставляется значение 1, если разница в оценок между крайними
одинаковыми значениями Номеров не больше 1. 1 ставится в крайнюю последнюю ячейку напротив одинакового номера.
В противном случае ставится значение 2.

2.

В колонку Ранг2 проставляется значение 3, если разница в оценке между крайними
одинаковыми значениями не больше 1. И значение Признак так же одинаково. В противном случае ставится значение 90.

Ну, этот уровень сам я уже не "подсмотрю" и не подкорректирую))

Тут, наверное, будет связано с Dictionary... Keys...
Не знаю, поэтом прошу подсказок коллективного разума.

К сообщению приложен файл: 4415288.xlsx (8.7 Kb)

Ответить

Blasster88

Дата: Воскресенье, 04.02.2018, 12:56 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 1 ±

Замечаний: 0% ±

Excel 2007

ant6729, Добрый день! Если правильно понял условия, то как то так попробуйте:
[vba]

Код

Sub macr()

For a = 2 To 19
    If Cells(a, 1) = Cells(a + 1, 1) And (Cells(a + 1, 2) - Cells(a, 2)) <= 1 Then
    Cells(a + 1, 6) = 1
    Else
    Cells(a + 1, 6) = 2
    End If
Next a

For a = 2 To 19
    If (Cells(a + 1, 2) - Cells(a, 2)) <= 1 And Cells(a, 3) = Cells(a + 1, 3) Then
    Cells(a + 1, 7) = 3
    Else
    Cells(a + 1, 7) = 90
    End If
Next a

End Sub

[/vba]

Ответить

Простановка значений по критерию в Columns(1) (Макросы/Sub)

Страница 1 из 1
1