Добрый день ! Подскажите пожалуста знатоки EXCEL .
На сайте скопировал макрос закраски латиницы, а он работал до определенного часа потом перестал.
Может я что там затронул или настройки самого EXCEL-2007. Вообщем не работает в 2007 версии ни как.
Подскажите где подправить , пожалуста.
На сайте скопировал макрос закраски латиницы, а он работал до определенного часа потом перестал.
Может я что там затронул или настройки самого EXCEL-2007. Вообщем не работает в 2007 версии ни как.
Подскажите где подправить , пожалуста.
Скрытый текст |
|---|
| Option Explicit Sub MyCharFormat() Dim objRegExp As New RegExp Dim objCell As Range Dim collMatches As MatchCollection Dim objMatch As Match With objRegExp .Pattern = "[a-z]" .IgnoreCase = True .MultiLine = False .Global = True End With ' Работаем со всем рабочим листом ' For Each objCell In ActiveWorkbook.ActiveSheet.UsedRange.Cells ' или… ' Работаем с выделенным диапазоном. Используем Shift и Ctrl ' для множественного выделения диапазона из нескольких областей. For Each objCell In Application.Selection.Cells With objCell If Not (IsEmpty(.Value) Or IsNull(.Value) Or IsError(.Value)) Then Application.StatusBar = "Testing Cell(" & CStr(.Row) & "," & CStr(.Column) & "  …"If objRegExp.Test(.Value) Then Set collMatches = objRegExp.Execute(.Value) For Each objMatch In collMatches With .Characters(objMatch.FirstIndex + 1, 1).Font .ColorIndex = 3 End With Next objMatch End If End If End With Next objCell Application.StatusBar = False End Sub |
