Как обратиться к объекту

Question

Как я могу обратиться к объекту, который я использую внутри With, если я хочу сам объект, а не его свойства/методы?

With ThisWorkbook.Sheets("MySheet") 
    Call MySub(ThisWorkbook.Sheets("MySheet")) ' works OK, but duplicated 
    Call MySub(this) ' does not works 
    .Range(...).Value2 = 1 
    ... 
End With 

+ что это за правильная терминология? я даже не знаю, как составить запрос Google для этого и получить некоторые результаты Usefull (с with общеупотребительное слово) ...

---

UPDATE: уточнить, я мыслил в терминах обрабатывать как with ... as handle от синтаксиса питона, а не об объектно-ориентированной this ключевое слово

Answer 1

Как насчет не используя with в первую очередь? Это делает ваш код более читабельным, не использует больше памяти (так как оператор with должен все равно распределять временную переменную), и он менее запутан.

Dim WS as WorkSheet 
WS = ThisWorkBook.Sheets("MySheet") 
Call vymaz_obrazky(WS) 
WS.Range(...).Value2 = 1 

В приведенном выше коде, общая стоимость одной дополнительной строки кода (The DIM заявление), и 9 меньше нажатий клавиш в целом. (The DIM заявление 19 нажатий клавиш, изменение в WS в трех строках 6 нажатий клавиш, но вы сохранили with (4) и дублирования (30), экономя около 9 нажатий клавиш.)

Answer 2

Попробуйте

Sub Sample() 
    Dim ws As Worksheet 

    Set ws = ThisWorkbook.Sheets("MySheet") 

    With ws 
     MySub ws 
     '~~> Rest of the code 
    End With 
End Sub 

или

Sub Sample() 
    Dim ws As Worksheet 

    Set ws = ThisWorkbook.Sheets("MySheet") 

    MySub ws 

    With ws  
     '~~> Rest of the code 
    End With 
End Sub 

Edit:

у вас есть информация о несуществовании "это"? - deathApril 19 мин. Назад

this в основном ключевое слово из C#, которое относится к текущему экземпляру класса. Эквивалент this в VB равен Me.

Ключевое слово Me предоставляет способ обращения к конкретному экземпляру класса или структуры, в которой код в настоящее время выполняет. Например, в UserForm вы можете использовать

Me.textBox1.Text = "Blah Blah" 

В VBA Me также может быть использован для thisworkbook. Например, если вставить этот код в ThisWorkbook коды области, то это даст вам имя книги

Sub Sample() 
    Debug.Print Me.Name 
End Sub 

Аналогично при запуске приведенный выше кода из листа Код зоны вы получите лист имя.

НТН

Answer 3

Использование .Cells.Parent.Это работает только для рабочих листов, но есть подобные вещи для некоторых других объектов (для книги вы можете использовать .Sheets.Parent)

With ThisWorkbook.Sheets("MySheet") 
    Call MySub(.Cells.Parent) 
    .Range(...).Value2 = 1 
    ... 
End With