Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
перестал работать макрос, дает не определена переменная
 
Добрый день ! Подскажите пожалуста знатоки EXCEL .
На сайте скопировал макрос закраски латиницы, а он работал до определенного часа потом перестал.
Может я что там затронул или настройки самого EXCEL-2007. Вообщем не работает в 2007 версии ни как.
Подскажите где подправить , пожалуста.

Скрытый текст
 
Привыкайте код оформлять специальным тегом.
 
Так, мне кажется, будет побыстрее да и покомпактнее
Код
Public Sub DoColorLatin()
    Dim pReg As Object, pCell As Range
    Dim pMatches As Object, pMatch As Object
    Set pReg = CreateObject("VBScript.RegExp")
    pReg.Global = True: pReg.IgnoreCase = True
    pReg.Pattern = "([a-z]+)"
    
    For Each pCell In Selection
        If Application.WorksheetFunction.IsText(pCell.Value) Then
            Set pMatches = pReg.Execute(pCell.Value)
            If pMatches.Count > 0 Then
                For Each pMatch In pMatches
                    pCell.Characters(pMatch.FirstIndex + 1, pMatch.Length).Font.ColorIndex = 3
                Next
            End If
        End If
    Next pCell
End Sub

P. S. Хотя проблема может быть в чём-то и другом. Как перестал работать? Не красит? Или ошибку выдаёт?
 
Может оно?
Ошибка - Cant find Project or library
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
User - defined type not defined

дает на первую строку кода
вроде ка переменная не определена
страно
 
anvg и Тhe_Prist Спасибо большое попробую ваш код.
 
Спасибо код работает, ошибок не выдает.
Страницы: 1
Читают тему (гостей: 1)