Invalid use of Me keyword / Как уйти от этой ошибки?

[claus]

Есть код:

Код: Выделить всё

If wsUnique.ProtectContents = True Then
     
       MsgBox "Рабочий лист " & wsUnique.Name & _
       " защищён"": Exit Sub
    End If

    Application.ScreenUpdating = False
   
    wsUnique.UsedRange.Clear
   
    Dim iColumn As Range, iTarget As Range
    For Each iColumn In Me.UsedRange.Columns
        Select Case iColumn.Column
            Case 2, 4 To 256 'Case 2, Is > 3
            Set iTarget = wsUnique.[A65536].End(xlUp)(2)
            iColumn.AdvancedFilter _
            Action:=xlFilterCopy, CopyToRange:=iTarget, Unique:=True
            With wsUnique.Range(iTarget(2), wsUnique.[A65536].End(xlUp))
                 iCountIfAll = Application.CountIf(iColumn.Offset(1), .Cells)
                 iSum& = Application.Sum(iCountIfAll)
                 .Offset(, 1).Value = iCountIfAll
                 .Offset(, 2).Value = Evaluate(.Offset(, 1).Address(External:=True) & "/" & iSum& & "*100")
                 With .Resize(1, 3).Offset(.Count)
                      .Value = Array("Сумма", iSum&, "100%")
                      .Font.Color = vbRed
                 End With
            End With
        End Select
    Next
    With wsUnique.UsedRange
         If Application.CountBlank(.Columns(1)) > 0 Then _
         .Columns(1).SpecialCells(xlBlanks).EntireRow.Delete

         .EntireColumn.AutoFit
    End With
   
    Application.ScreenUpdating = True

Когда это единственный модуль в этом файле - все прекрасно, но когда кроме него есть и другие модули - выдает приведенную выше ошибку.

[Денис]

Лучше не используй переменную Me - это зарезервированное слово. Им объекты ссылаются на самих себя. Не используй.

[claus]

Да, но если я его заменю - все перестает работать.

[Денис]

Ничего не понимаю. А где объявлены переменные? Что представляет из себя MyObject и почему его надо присваивать Me, и почему без ключевого слова Set?

UPD: Замени строки

Код: Выделить всё

    Me = MyObject
    For Each iColumn In Me.UsedRange.Columns

этим

Код: Выделить всё

    'Me = MyObject
    For Each iColumn In wsUnique.UsedRange.Columns

[claus]

так ведь работает же когда он один-единственный модуль.

[ANDLL]

claus
Еще раз, по русски.
Me это ключевое слово в контексте модуля класса. Не используй его как имя переменной.

[Goettsch]

Вместо Me.UsedRange.Columns пишите ссылку на нужный Вам лист, например: ActiveSheet или Worksheets("SomeName") итп. А что касается Me, то оно тут совершенно "не в кассу". "Me" — это обращение к объекту изнутри этого самого объекта. Использовать можно в 2 случаях: (1) Вы создали свой объект (т.е. класс в терминах VB(A), но я предпочитаю называть "объект") и внутри его кода используете "Me"; (2) Внутри кода формы для ссылок, например, на элементы управления, расположенные на этой форме итп.

[tyomitch]

1) "класс" и "объект" -- не альтернативные названия одного и того же. Это разные вещи.
3) внутри объектов Workbook и Worksheet слово Me тоже допустимо и имеет вполне конкретный смысл

[KL]

Когда это единственный модуль в этом файле - все прекрасно, но когда кроме него есть и другие модули - выдает приведенную выше ошибку.

Как уже было сказано...
1) Me - это обращение к объекту, в модуле класса которого находится код.
2) Модули Лист1, Лист2, ... (Sheet#), ЭтаКнига (ThisWorkbook), UserForm1, UserForm2, ..., Class1, Class2, ..., и т.д. - это модули класса, а значит допускают использование Me
3) Модули типа Модуль1, Модуль2, ...(Module#) не допускают использования Me

Отсюда вопросы:
1) изначальный код, в каком модуле находится, когда работает?
2) другие модули, какого они типа?
3) другие модули, содержат ли они слово Me?