Присвоить группам строк номера в зависимости от цвета ячеек

@Алекса589 · Регистрация: 26.10.2016

Студворк — интернет-сервис помощи студентам

На листе строки разного цвета: зеленые, желтые, белые.
Необходимо в крайнем левом пустом столбце присвоить всем строкам номера по следующему критерию:
Проверяем столбец D.
Если первая строка зеленая, то все белые после нее составляют вместе с ней группу - этой группе должно соответствовать одно значение, например 1.
Если строка желтая - она не имеет группы, т.е. каждая желтая нумеруется отдельно - 2,3, и тд.
Помогите, пожалуйста, как это можно реализовать?
Для примера вручную пронумеровала первые строки.

@D1973 · 20.04.2017, 08:29

Сообщение от Алекса589

Проверяем столбец D... Если строка желтая...

А "желтые" - все в столбце E...
Да и вообще, "зеленым" и "желтым" эти цвета можно назвать с о-очень большой натяжкой... А если цвета чуть-чуть, даже незаметно для глаза, поменяются - точного совпадения уже не будет - и привет! Может быть есть более удобные критерии отбора, чем цвет ячеек?

Добавлено через 6 минут
Да и версию Дельфи не худо бы указать...

@Алекса589 · 20.04.2017, 09:01 **[ТС]**

На самом деле создала тему не в том разделе (нужен был раздел vba), а как изменить раздел не знаю.. косорукая

Добавлено через 26 минут
спасибо, что переместили )

@aequit · 20.04.2017, 12:32

Пробуйте:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub tyuei()
    Dim i As Long
    Dim d As Long
    Dim lLastRow As Long
    lLastRow = Cells(Rows.Count, 5).End(xlUp).Row
    d = 1
    For i = 4 To lLastRow
        If Cells(i, 5).Interior.ColorIndex = 36 Then
            Cells(i, 2) = d
            d = d + 1
        ElseIf Cells(i, 5).Interior.ColorIndex = 35 Then
            Cells(i, 2) = d
            If Cells(i + 1, 5).Interior.ColorIndex = 36 Then
               d = d + 1
            End If
        ElseIf Cells(i, 5).Interior.ColorIndex = -4142 Then
            Cells(i, 2) = d
            If Cells(i + 1, 5).Interior.ColorIndex = 36 Or Cells(i + 1, 5).Interior.ColorIndex = 35 Then
               d = d + 1
            End If
        End If
    Next i
End Sub

@Алекса589 · 21.04.2017, 03:06 **[ТС]**

спасибо большое!) я уже решила вопрос, отдельно определила код цветов, и почти как у вас:

Dim konc, konr, i, j, n As Long

konc = list1.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
konr = list1.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

For i = 1 To konc
If Trim(list1.Cells(3, i).Text) = "Номер документа" Then n = i
Next i

j = 1
i = 4
For i = 4 To konr
If (list1.Cells(i, n).Interior.Color = 10092543 Or list1.Cells(i, n).Interior.Color = 12379351) Then
list1.Cells(i, 1).Value = j
j = j + 1
Else
list1.Cells(i, 1).Value = list1.Cells(i - 1, 1).Value
End If
Next i

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Алекса589 0 / 0 / 0 Регистрация: 26.10.2016 Сообщений: 8
	20.04.2017, 09:01 [ТС]
	На самом деле создала тему не в том разделе (нужен был раздел vba), а как изменить раздел не знаю.. косорукая Добавлено через 26 минут спасибо, что переместили ) 0

@Алекса589 0 / 0 / 0 Регистрация: 26.10.2016 Сообщений: 8
	21.04.2017, 03:06 [ТС]
	спасибо большое!) я уже решила вопрос, отдельно определила код цветов, и почти как у вас: Dim konc, konr, i, j, n As Long konc = list1.Cells.Find(What:="", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column konr = list1.Cells.Find(What:="", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row For i = 1 To konc If Trim(list1.Cells(3, i).Text) = "Номер документа" Then n = i Next i j = 1 i = 4 For i = 4 To konr If (list1.Cells(i, n).Interior.Color = 10092543 Or list1.Cells(i, n).Interior.Color = 12379351) Then list1.Cells(i, 1).Value = j j = j + 1 Else list1.Cells(i, 1).Value = list1.Cells(i - 1, 1).Value End If Next i 0

Опции темы

Присвоить группам строк номера в зависимости от цвета ячеек

Решение