Добрый день Есть похожая тема тут. Но отчего-то не распознает числа, если они не отделены от текста пробелом и не распознает числа, если в ячейке есть число не отделенное пробелом и есть отделенное пробелом. Как можно подсветить числа в выделенном массиве? (даже, если в ячейке только числа без текста).
Добрый день Есть похожая тема тут. Но отчего-то не распознает числа, если они не отделены от текста пробелом и не распознает числа, если в ячейке есть число не отделенное пробелом и есть отделенное пробелом. Как можно подсветить числа в выделенном массиве? (даже, если в ячейке только числа без текста).timo64uk
Sub ShowCifer() Application.ScreenUpdating = False With CreateObject("VBScript.Regexp") .Global = True .Ignorecase = True .Pattern = "[0-9]" For Each c In Selection.SpecialCells(xlCellTypeConstants, 23) d = Len(c) - Len(.Replace(c, "")) If d > 0 Then g = 1 h = Len(c) i = .Replace(c, 0) For e = 1 To d g = InStr(Mid(i, g, h), 0) + g c.Characters(Start:=g - 1, Length:=1).Font.ColorIndex = 3 Next End If Next End With End Sub
Sub ShowCifer() Application.ScreenUpdating = False With CreateObject("VBScript.Regexp") .Global = True .Ignorecase = True .Pattern = "[0-9]" For Each c In Selection.SpecialCells(xlCellTypeConstants, 23) d = Len(c) - Len(.Replace(c, "")) If d > 0 Then g = 1 h = Len(c) i = .Replace(c, 0) For e = 1 To d g = InStr(Mid(i, g, h), 0) + g c.Characters(Start:=g - 1, Length:=1).Font.ColorIndex = 3 Next End If Next End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
