Розовый шрифт

@analyst · Регистрация: 12.01.2009

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

Здравствуйте.
Столкнулся со следующей проблемой:
Цель задачи: скрывать строчки в ячейчках третьего столбца которых (ячейки типа С2, С3 ит.д.) стоят нули или ничего не стоит и не скрывать строчки в ячейчках второго столбца которых (ячейки типа B2, B3 и т.д.) стоят розовые "буквы"
С розовыми буквами эта часть кода не справляется(
Может кто подскажет почему или как написать верно?

Visual Basic
1
2
3
4
5
6
7
8
For s = 9 To 115
            'вводим название ячейки для второго столбца
            ncell = "B" + CStr(s)
            If Cells(s, 83).Value = "0" Or Cells(s, 83).Value = "" And Range(ncell).Font.Color <> -65281 Then
            ActiveSheet.Rows(s).Select
            Selection.EntireRow.Hidden = True
            End If
Next s

@Toxa33rus · 16.06.2009, 15:24

Откуда -65281 ? Это лиловый!
А розовый вот:

Visual Basic
1
2
Font.Color = 13408767 'можно так
Font.ColorIndex = 38 'а можно так

@analyst · 16.06.2009, 17:36 **[ТС]**

Сообщение от Toxa33rus

Откуда -65281 ? Это лиловый!
А розовый вот:

Visual Basic
1
2
Font.Color = 13408767 'можно так
Font.ColorIndex = 38 'а можно так

Прошу прощения что не конкретезировал цвет.
Но мне нужен имнно такой потому, что когда я в автоматическом режиме закрашиваю ячейку нужным мне цветом, то в полученном коде стоит именно этот цвет (-65281)

@Toxa33rus · 17.06.2009, 11:57

Интересная особенность обнаружилась: если цвет присвоить какой-нибудь переменной то -65281 превращается в элегантные брюки 16711935! Хотя если без присвоения проверять то значение -65281 дает истину, а 16711935 ложь. Т.е. код правильный и у меня работает.
А прикол в том что в условии упоминается третий столбец а ячейки в Cells Вы читаете почему-то 83!

И еще вот это:

Visual Basic
1
2
ActiveSheet.Rows(s).Select
Selection.EntireRow.Hidden = True

лучше сделат так:

Visual Basic
1
ActiveSheet.Rows(s).EntireRow.Hidden = True

тогда не будут оставаться выделенные диапазоны.

@analyst · 17.06.2009, 19:13 **[ТС]**

Сообщение от Toxa33rus

Интересная особенность обнаружилась: если цвет присвоить какой-нибудь переменной то -65281 превращается в элегантные брюки 16711935! Хотя если без присвоения проверять то значение -65281 дает истину, а 16711935 ложь. Т.е. код правильный и у меня работает.
А прикол в том что в условии упоминается третий столбец а ячейки в Cells Вы читаете почему-то 83!

И еще вот это:

Visual Basic
1
2
ActiveSheet.Rows(s).Select
Selection.EntireRow.Hidden = True

лучше сделат так:

Visual Basic
1
ActiveSheet.Rows(s).EntireRow.Hidden = True

тогда не будут оставаться выделенные диапазоны.

Я конечно возможно чего-то не понял, но у меня всё хорошо работает именно с цифрой 16711935. Кстати, если заливать ячейку этим цветом, то её цвет в редакторе именно так и определяется (16711935), а если менять цвет текста на такой же, то он принимает значение -65281

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем