0

Присваиваю ячейку из переменной "cell" переменной "prevCellValue" В переменной "prevCellValue" остается значение, но не ссылка на ячейку как было в "cell"

Как при присвоении оставить типы переменных одинаковыми?

VBA CODE

2 ответа 2

0

Нужно было использовать set для полного копирования

set a = b
1
  • Оператор Set выполняет копирование ссылки на объект, а не "полное копирование". Вы чуток ошиблись с формулировкой, но в целом правы - здесь нужен именно "Set". Автор вопроса налетел на пару не очень очевидных моментов: 1) когда не указан явно оператор Let/Set, а тип переменной слева - Variant, VBA предпочитает использовать Let; 2) у объекта Range есть дефолтное свойство Value, которое как раз и позволяет неявное использование Let (что VBA и делает "под капотом": Let prevCellValue = cell.Value). Указав же явно Set, получим то, что хотел автор.
    – velial
    Commented 7 июн. 2020 в 14:46
0

У Вас prevCellValue сначала как значение (сравнивается с константой):

If  prevCellValue <> -111111 Then

потом в переменную пытаетесь передать объект:

prevCellValue = cell

Но объект в переменую передается с помощью оператора Set. А так как переменная до этого содержала значение и нет оператора присваивания, редактор понимает, что в переменную из cell нужно передать значение.

Чтобы подобные ошибки не возникали:

1) сверху модуля, над всеми объявлениями глобальных переменных и процедурами вписать оператор Option Explicit;

2) все переменные должны быть объявлены;

3) объявлять переменные очень желательно с указанием их типов:

Dim SheetOrder As Worksheet
Dim rRangeTime As Range
Dim i As Long

4) перед отладкой (да и в процессе написания кода) компилировать программу (Debug - Compile VBAProject).

Эти нехитрые приемы помогут избежать многих ошибок и сэкономят время при отладке кода.

Попутные замечания.

Переменным желательно давать понятные имена. По имени 'prevCellValue' можно понять, что переменая предназначена для хранения значения ячейки (Value), но никак не самой ячейки как объекта ...

После использования переменных с присвоенными объектами принудительно освобождать память:

Set prevCellValue = Nothing 

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.