Изменить цвет шрифта ячейки, если в ней содержится определенная буква

@alex3004 · Регистрация: 16.06.2010

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

данный макрос разлагает содержимое столбца ячеек разделенное пробелом на составляющие:
где каждый разделенный компонент будет оформлен отдельным столбцом.
как отредактировать макрос так чтобы если например в столбце есть символ "h" то в данном столбце все символы закрашиваются в какой нить цвет?

Visual Basic

Sub jh()
Dim d As String
Dim dl As String
Dim qw() As String
y = 0
NumRow = Cells(Rows.Count, 1).End(xlUp).Row //счет кол-ва заполненных ячеек
For i = 1 To NumRow
s = Cells(i, 1)
qw = Split(s)
For k = LBound(qw) To UBound(qw)
If qw(k) <> "" Then
y = y + 1
Cells(i, y + 1) = qw(k)
End If
Next k
y = 0
Next i
End Sub

@~~Апострофф~~ · 19.04.2012, 22:05

Visual Basic

Sub jh()
Dim d As String
Dim dl As String
Dim qw() As String
y = 0
NumRow = Cells(Rows.Count, 1).End(xlUp).Row //счет кол-ва заполненных ячеек
For i = 1 To NumRow
  s = Cells(i, 1)
  qw = Split(s)
  For k = LBound(qw) To UBound(qw)
    If qw(k) <> "" Then
      y = y + 1
 
      IF INSTR(qw(k),"h")THEN COLUMNS(Y+1).Font.ColorIndex = 3
 
      Cells(i, y + 1) = qw(k)
    End If
  Next k
  y = 0
Next i
End Sub

Dragokas · 19.04.2012, 23:16

Сообщение от Апострофф

NumRow = Cells(Rows.Count, 1).End(xlUp).Row //счет кол-ва заполненных ячеек

А куда же делся апострофф

@Gibboustooth · 20.04.2012, 10:38

Условное форматирование вам не подойдет? По формуле "=НЕ(ЕОШ(ПОИСК("h";A1)))"

@Казанский · 20.04.2012, 10:56

Для УФ достаточно

Код

=ПОИСК("h";A1)

Однако, УФ при поиске по всему столбцу будет тормозить.

@Gibboustooth · 20.04.2012, 11:31

Сообщение от Апострофф

Visual Basic

1	IF INSTR(qw(k),"h")THEN COLUMNS(Y+1).Font.ColorIndex = 3

Скорее всего, автору потребуется и обратное перекрашивание текста, если "h" не найден.

@alex3004 · 14.05.2012, 22:20 **[ТС]**

кстати если несколько строк заполнены символами то макрос закрашивает не только ячейки с символом "h" а те где нет этого символа.
картинку включил

@alex3004 · 23.05.2012, 11:05 **[ТС]**

в чем ошибка?

Новые блоги и статьи
Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре InfoMaster 16.01.2025 Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .	Как использовать Kerio дома для управления сетью и пользователями InfoMaster 16.01.2025 Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .	Есть ли будущее у DVD и Blu-ray? InfoMaster 16.01.2025 В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .	Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .

Dragokas 18017 / 7718 / 892 Регистрация: 25.12.2011 Сообщений: 11,496 Записей в блоге: 16
	19.04.2012, 23:16	3
	Сообщение от Апострофф NumRow = Cells(Rows.Count, 1).End(xlUp).Row //счет кол-ва заполненных ячеек А куда же делся апострофф 0

@Gibboustooth 735 / 203 / 11 Регистрация: 23.06.2011 Сообщений: 440
	20.04.2012, 10:38	4
	Условное форматирование вам не подойдет? По формуле "=НЕ(ЕОШ(ПОИСК("h";A1)))" 0

@Казанский 15153 / 6426 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	20.04.2012, 10:56	5
	Для УФ достаточно Код =ПОИСК("h";A1) Однако, УФ при поиске по всему столбцу будет тормозить. 0

@alex3004 0 / 0 / 1 Регистрация: 16.06.2010 Сообщений: 18
	14.05.2012, 22:20 [ТС]	7
	кстати если несколько строк заполнены символами то макрос закрашивает не только ячейки с символом "h" а те где нет этого символа. картинку включил Миниатюры 0

@alex3004 0 / 0 / 1 Регистрация: 16.06.2010 Сообщений: 18
	23.05.2012, 11:05 [ТС]	8
	в чем ошибка? 0

Опции темы