Код не работает

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Код не работает

maloy

Дата: Среда, 17.10.2012, 15:13 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Кто может подсказать почему не работает код:

[vba]

Code

Sub Замена()
' Замена Макрос
' Зхамена одного значение на другое
Dim avArr As Range, lr As Long

avArr = Range("A1:A39").Value 'выбор диапазона значений в исходном листе
Application.AutoCorrect.AddReplacement What:="m", Replacement:="м" ' указываем параметры замены
For i = 1 To 40
If avArr(i, 1) = "m" Then 'проверяем массив на наличие записи с этой буквой
avArr = Replace(avArr, "m", "м") 'Заменяем значение
i = i + 1: ' переходим к следующему элементу массива

Exit For

Else ' в случае не совпадения по условию сразу переходим к следующему элементу массива
i = i + 1:
End If
Next i

End Sub

[/vba]

Ругается на строчку где я пытаюсь ему диапазон присвоить......

Тема закрыта администрацией. Причина - нарушение п. 2 Правил форума