Добрый день, помогите разобраться с макросом:
Sub Color_RUS_LAT() ' RU [color=green]Balck[/color], EN - [color=red]Blue[/color] '
If TypeName(Selection) <> "Range" Then Exit Sub
Dim iCell As Range, rRange As Range, i%, ASCII%, iColor%
On Error GoTo eXXit
Set rRange = Intersect(Selection, ActiveSheet.UsedRange)
If rRange Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each iCell In rRange
For i = 1 To Len(iCell)
ASCII = Asc(Mid(iCell, i, 1))
If (ASCII >= 192 And ASCII <= 255) Then iColor = 1 'Color RU
If (ASCII >= 65 And ASCII <= 90) Or (ASCII >= 97 And ASCII <= 122) Then iColor = 5 'Color EN
iCell.Characters(Start:=i, Length:=1).Font.ColorIndex = iColor
Next i
Next iCell
rRange.Select
Application.ScreenUpdating = True
eXXit: End Sub
Макрос ищет английские и русские слова и маркирует их цветом, проблема в том что ищет он только на одном листе и при выделении, а хочется чтобы он отрабатывал на все листы.
Подскажите как это сделать, заранее спасибо
For Each oneSheet In ThisWorkbook.Sheets: oneSheet.Activate: обработка листа ; Next
. Ну и желательно отключить обновление экрана и восстановить по завершении текущий лист. – Akina 6 сен '17 в 13:27