Вячеслав Бондарев,
Код |
---|
Sub цвета()
For Each q In Intersect(Selection, Selection.Parent.UsedRange)
x = 0: y = 0: w = 0
For i = 1 To Len(q)
If w = 1 Then Exit For
If Mid(q, i, 1) Like "[A-Za-z]" Then
x = 1
ElseIf Mid(q, i, 1) Like "[А-Яа-яЁё]" Then
y = 1
ElseIf Len(q) > 0 Then
w = 1
End If
Next
Select Case x & y & w
Case "000"
Case "110": q.Interior.Color = vbYellow
Case "010": q.Interior.Color = vbGreen
Case "100": q.Interior.Color = vbRed
Case Else: q.Interior.Color = vbBlue
End Select
Next
End Sub |
В выделенном диапазоне запускаете макрос.
Окрашивает ячейку:
1) В красный цвет - если в ячейке ТОЛЬКО буквы латиницы
2) В зелёный цвет - если в ячейке ТОЛЬКО буквы кириллицы
3) В жёлтый цвет - если в ячейке ТОЛЬКО буквы кириллицы И латиницы
4) В синий цвет - если в ячейке имеется ХОТЯ БЫ ОДИН знак - НЕ кириллица и НЕ латиница, то есть: цифра, знак(+-*/\.,"№;: ...), пробел, ...
Jack Famous,