Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/найти второй символ и покрасить его - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » найти второй символ и покрасить его (Условное Форматирование/Conditional Formattings)
найти второй символ и покрасить его
gut2 Дата: Воскресенье, 11.02.2018, 19:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте! Возникла проблема, которую не смог решить своими силами.
Нужно найти в ячейке в слове 2-й символ (он всегда разный) и покрасить его скажем в красный цвет.
Возможно ли это в Exel и есть ли в Exel стили символа а не текста?
Спасибо
 
Ответить
СообщениеЗдравствуйте! Возникла проблема, которую не смог решить своими силами.
Нужно найти в ячейке в слове 2-й символ (он всегда разный) и покрасить его скажем в красный цвет.
Возможно ли это в Exel и есть ли в Exel стили символа а не текста?
Спасибо

Автор - gut2
Дата добавления - 11.02.2018 в 19:14
bmv98rus Дата: Воскресенье, 11.02.2018, 19:20 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1251
Репутация: 213 ±
Замечаний: 0% ±

Excel 2013/2016
[vba]
Код
Range("A1").Characters(Start:=2, Length:=1).Font.Color = -16776961
[/vba]
Или еще и второй символ надо искать а в ячейке не слово, а несколько слов?
Или вопрос просто про как это сделать руками?


Сообщение отредактировал bmv98rus - Воскресенье, 11.02.2018, 19:22
 
Ответить
Сообщение[vba]
Код
Range("A1").Characters(Start:=2, Length:=1).Font.Color = -16776961
[/vba]
Или еще и второй символ надо искать а в ячейке не слово, а несколько слов?
Или вопрос просто про как это сделать руками?

Автор - bmv98rus
Дата добавления - 11.02.2018 в 19:20
gut2 Дата: Воскресенье, 11.02.2018, 19:28 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, нет в ячейке одно слово и я хотел вставить формулу в раздел условного форматирования, что бы как раз руками не делать.
Я правильно понял: Вашу формулу надо туда вставить, или это макрос?
 
Ответить
Сообщениеbmv98rus, нет в ячейке одно слово и я хотел вставить формулу в раздел условного форматирования, что бы как раз руками не делать.
Я правильно понял: Вашу формулу надо туда вставить, или это макрос?

Автор - gut2
Дата добавления - 11.02.2018 в 19:28
bmv98rus Дата: Воскресенье, 11.02.2018, 19:54 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1251
Репутация: 213 ±
Замечаний: 0% ±

Excel 2013/2016
Да , это строка которую можно в макросе использовать. Функций таких нет, если не писать UDF крошечную.
 
Ответить
СообщениеДа , это строка которую можно в макросе использовать. Функций таких нет, если не писать UDF крошечную.

Автор - bmv98rus
Дата добавления - 11.02.2018 в 19:54
gut2 Дата: Воскресенье, 11.02.2018, 20:03 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, А это строка будет автоматически исполняться, если ее вставить в исходный текст страницы, и если да, то как ее оформлять (Sub надо писать перед, или что-то еще)?
Прошу прощения за дилетантские вопросы :)
 
Ответить
Сообщениеbmv98rus, А это строка будет автоматически исполняться, если ее вставить в исходный текст страницы, и если да, то как ее оформлять (Sub надо писать перед, или что-то еще)?
Прошу прощения за дилетантские вопросы :)

Автор - gut2
Дата добавления - 11.02.2018 в 20:03
abtextime Дата: Воскресенье, 11.02.2018, 20:15 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 750
Репутация: 105 ±
Замечаний: 0% ±

Excel 2010
Я бы подождал, когда ТС выложит файл, но надо идти, а решение есть

Просто разместите во втором столбце (его можно скрыть)
например в B3 можно разместить
Код
=aaa(A3:B3)


вызов этой фиктивной UDF-ки (ниже)

[vba]
Код
Public Function aaa(R As Range) As Integer
R.Cells(1, 1).Characters(Start:=2, Length:=1).Font.Color = -16776961
End Function
[/vba]
К сообщению приложен файл: 2580390.xlsm(14.5 Kb)
 
Ответить
СообщениеЯ бы подождал, когда ТС выложит файл, но надо идти, а решение есть

Просто разместите во втором столбце (его можно скрыть)
например в B3 можно разместить
Код
=aaa(A3:B3)


вызов этой фиктивной UDF-ки (ниже)

[vba]
Код
Public Function aaa(R As Range) As Integer
R.Cells(1, 1).Characters(Start:=2, Length:=1).Font.Color = -16776961
End Function
[/vba]

Автор - abtextime
Дата добавления - 11.02.2018 в 20:15
abtextime Дата: Воскресенье, 11.02.2018, 20:18 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 750
Репутация: 105 ±
Замечаний: 0% ±

Excel 2010
кстати, работает только для текстовых данных, у чисел вторую цифру не красит
 
Ответить
Сообщениекстати, работает только для текстовых данных, у чисел вторую цифру не красит

Автор - abtextime
Дата добавления - 11.02.2018 в 20:18
gut2 Дата: Воскресенье, 11.02.2018, 20:53 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
abtextime, спасибо, но к сожалению это не совсем то (ну или я чего-то не понимаю). Я попробовал в Вашем файле убрать первый символ и второй символ стал первым, но остался окрашеным. А текст в ячейке будет часто меняться и окрашенным должен быть именно второй символ (ну или в некоторых случаях другой, но это бы я уже сам -- если разберусь, конечно). Кстати играет ли роль направление письма? Мне нужен второй символ справа.
Не знаю правильно ли отобразится текст. Может шрифт нужно приложить?
К сообщению приложен файл: 8611467.xlsm(16.9 Kb)


Сообщение отредактировал gut2 - Воскресенье, 11.02.2018, 20:55
 
Ответить
Сообщениеabtextime, спасибо, но к сожалению это не совсем то (ну или я чего-то не понимаю). Я попробовал в Вашем файле убрать первый символ и второй символ стал первым, но остался окрашеным. А текст в ячейке будет часто меняться и окрашенным должен быть именно второй символ (ну или в некоторых случаях другой, но это бы я уже сам -- если разберусь, конечно). Кстати играет ли роль направление письма? Мне нужен второй символ справа.
Не знаю правильно ли отобразится текст. Может шрифт нужно приложить?

Автор - gut2
Дата добавления - 11.02.2018 в 20:53
abtextime Дата: Воскресенье, 11.02.2018, 21:02 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 750
Репутация: 105 ±
Замечаний: 0% ±

Excel 2010
gut2, в моем файле корректировки и нажатия Enter перекрашивается новый второй символ

Что касается вашего файла, то вообще не очень понятно, что там. На каком языке у Вас строки в ячейке?
 
Ответить
Сообщениеgut2, в моем файле корректировки и нажатия Enter перекрашивается новый второй символ

Что касается вашего файла, то вообще не очень понятно, что там. На каком языке у Вас строки в ячейке?

Автор - abtextime
Дата добавления - 11.02.2018 в 21:02
gut2 Дата: Воскресенье, 11.02.2018, 21:05 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
abtextime, это иврит. Посылаю шрифт. Можно попробовать на ячейке "O9"
К сообщению приложен файл: FRNEW.ttf(52.9 Kb)
 
Ответить
Сообщениеabtextime, это иврит. Посылаю шрифт. Можно попробовать на ячейке "O9"

Автор - gut2
Дата добавления - 11.02.2018 в 21:05
abtextime Дата: Воскресенье, 11.02.2018, 21:09 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 750
Репутация: 105 ±
Замечаний: 0% ±

Excel 2010
gut2, сорри, не сегодня

Надеюсь, Вам помогут
 
Ответить
Сообщениеgut2, сорри, не сегодня

Надеюсь, Вам помогут

Автор - abtextime
Дата добавления - 11.02.2018 в 21:09
bmv98rus Дата: Воскресенье, 11.02.2018, 21:51 | Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 1251
Репутация: 213 ±
Замечаний: 0% ±

Excel 2013/2016
это иврит

как только прочел выше про второй справа думал пошутить, а оказалось в точку.

[vba]
Код
Public Function aaa(R As Range) As Integer
With Application
    .EnableEvents = False
    .Calculation = xlCalculationManual
    With R.Cells(1, 1)
        lstr = Len(.Value)
        .Characters(Start:=l, Length:=lstr).Font.ColorIndex = xlAutomatic
        .Characters(Start:=lstr - 1, Length:=1).Font.Color = -16776961
    End With
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
End With
End Function
[/vba]
К сообщению приложен файл: Copy_of_2580390.xlsm(17.2 Kb)


Сообщение отредактировал bmv98rus - Воскресенье, 11.02.2018, 21:52
 
Ответить
Сообщение
это иврит

как только прочел выше про второй справа думал пошутить, а оказалось в точку.

[vba]
Код
Public Function aaa(R As Range) As Integer
With Application
    .EnableEvents = False
    .Calculation = xlCalculationManual
    With R.Cells(1, 1)
        lstr = Len(.Value)
        .Characters(Start:=l, Length:=lstr).Font.ColorIndex = xlAutomatic
        .Characters(Start:=lstr - 1, Length:=1).Font.Color = -16776961
    End With
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
End With
End Function
[/vba]

Автор - bmv98rus
Дата добавления - 11.02.2018 в 21:51
gut2 Дата: Воскресенье, 11.02.2018, 23:42 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, Громадное спасибо! Вроде заработало, но таки как оказалось 2-й символ – он и в иврите 2-й: в независимости от направления письма. Так что я заменил одну строчку на Вашу из 7-го сообщения и все выделилось как надо. Правда возник еще один вопрос, но сейчас уже нет времени его сформулировать -- надо поэксперементировать. Я попробую и завтра напишу
Спасибо! hands
 
Ответить
Сообщениеbmv98rus, Громадное спасибо! Вроде заработало, но таки как оказалось 2-й символ – он и в иврите 2-й: в независимости от направления письма. Так что я заменил одну строчку на Вашу из 7-го сообщения и все выделилось как надо. Правда возник еще один вопрос, но сейчас уже нет времени его сформулировать -- надо поэксперементировать. Я попробую и завтра напишу
Спасибо! hands

Автор - gut2
Дата добавления - 11.02.2018 в 23:42
Pelena Дата: Воскресенье, 11.02.2018, 23:56 | Сообщение № 14
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12692
Репутация: 2794 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
возник еще один вопрос
Новый вопрос - новая тема. Читаем Правила форума


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
возник еще один вопрос
Новый вопрос - новая тема. Читаем Правила форума

Автор - Pelena
Дата добавления - 11.02.2018 в 23:56
bmv98rus Дата: Понедельник, 12.02.2018, 00:02 | Сообщение № 15
Группа: Проверенные
Ранг: Старожил
Сообщений: 1251
Репутация: 213 ±
Замечаний: 0% ±

Excel 2013/2016
но таки как оказалось 2-й символ – он и в иврите 2-й

тогда не понятно что не работало ранее, разве что если вставлять или убирать символы впереди.
 
Ответить
Сообщение
но таки как оказалось 2-й символ – он и в иврите 2-й

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

Автор - bmv98rus
Дата добавления - 12.02.2018 в 00:02
Мир MS Excel » Вопросы и решения » Вопросы по Excel » найти второй символ и покрасить его (Условное Форматирование/Conditional Formattings)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!