Ссылки на ячейки и листы в Excel

Question

У меня есть проблема, которую я совсем не понимаю:

i = 150
If ActiveWorkbook.Worksheets("foobar").Cells(i, 3).Value Like "*:*" Then
  MsgBox "I found a colon!"
End If

Как вы можете догадаться, foobar листа имеет в позиции (150, 3) ячейку, содержащую двоеточие, поэтому отображается окно сообщения.

Теперь я хочу сделать это:

i = 150
Cell = ActiveWorkbook.Worksheets("foobar").Cells(i, 3).Value 'fails right here
If Cell Like "*:*" Then
  MsgBox "I found a colon!"
End If

Здесь я получаю сообщение об ошибке: «Переменная объекта или переменная блока не установлена. Фактически говорится:

Sheet = ActiveWorkbook.Worksheets("foobar")

выдает подобное сообщение. Зачем? Что я делаю неправильно? Я просто хочу ссылку на этот объект или, по крайней мере, ссылку.

Answer 1

Итог:

• При работе с объектами используйте Set.
• При обработке данных примитив (целые, длинные, строки *, варианты *) вы не используете его.

Sheet, Workbook, Range, являются объектами. Поэтому вам нужно использовать Set при назначении их переменным.

A Range.Value возвращает вариант (это может быть long, строка и т. Д.). Таким образом, вы не можете использовать Set.

==========================

Теперь о вашем сообщении об ошибке ... Я бы сказал, что, возможно, раньше в вашем коде Cell объявляется как объект . Попробуйте использовать другое имя переменной или проверьте тип переменной Cell.

Чтобы проверить это, щелкните правой кнопкой мыши и выберите «Определение». Объявите его как Variant, чтобы решить проблему (однако помните о возможных побочных эффектах).

==========================

* Я знаю, что эти типы не «примитивны»; Я использовал в качестве примера здесь для чистоты объяснения.

Answer 2

При назначении объекта линия

Sheet = ActiveWorkbook.Worksheets("foobar") 

следует читать

Set Sheet = ActiveWorkbook.Worksheets("foobar")

Answer 3

В твоей линии

Cell = ActiveWorkbook.Worksheets("foobar").Cells(i, 3).Value

Вы пытаетесь присвоить ячейке значение ячейки (возможно, строку). Снимите .Value, и задание должно работать лучше. Сообщение Excel, с которым вы столкнулись, не самое лучшее: иногда вы получаете его, когда назначаете переменные неправильного типа.

Однако If Cell Like может не работать. (Подсказка: .Value должен быть перемещен, а не удален.)

Answer 4

Использовать Dim MyCell as Variant (или как строку), так как Cell является существующим объектом

Answer 5

Я только что попробовал следующий код, и он, вероятно, работает в вашем коде. Убедитесь, что ActiveWorkBook - это действительно книга Active Work, которую вы хотите (если вы работаете с несколькими книгами)

Sub test()
i = 3
If ActiveWorkbook.Worksheets("Sheet1").Cells(i, 2).Value Like ":" Then
    MsgBox "I found a colon!"
Else
    MsgBox "didn't find a colon!"
End If

Cell = ActiveWorkbook.Worksheets("Sheet1").Cells(i, 2).Value
'fails right here
If Cell Like ":" Then
    MsgBox "I found a colon!"
End If
End Sub