Geschachtelte With-Anweisung hiearchy

Ich habe über diese ein paar mal vor kurzem und war nur neugierig, ob es einen einfacheren Weg, dies zu tun...

With Activeworkbook
  'Do Stuff
  With .Sheets(1)
    'More stuff Done
    '...
    'But now I need to refer to or pass the Sheet in the last With Statement
    SomeFunctionAnswer = SomeFunction Activeworkbook.Sheets(1)
  End With
  'Yet more stuff Done
End With

Muss es vollständig geschrieben, oder gibt es eine Möglichkeit der Notation macht es einfacher/sauberer? Vielleicht gibt es eine Art von Eigenschaft oder Methode übergeben sich nur für diese Instanz? Was ist die Bezugnahme auf eine Eigenschaft oder Methode aus der höheren Mit?

SomeFunctionAnswer =  SomeFunction .Self  '???
'OR
SomeFunctionAnswer =  SomeFunction .Parent.Name  '???

Hoffe das macht Sinn...

  • Wenn ich meine eigenen Klassen habe ich oft über eine einfache Public Property Get Self() As [WhateverTheClassIs] und machen es Set Self = Me spezifisch, so dass ich es verwenden können, in Aussagen wie With New SomeClass und Implementierung einer factory-Methode auf die default-Instanz (erfordert das Bearbeiten der exportierten module mit einer VB_PredeclaredId = True Modul Attribut, dann re-importieren Sie diese wieder in das Projekt). Aber für den built-in Klassen, ist es "Nein". =)
  • Mug: Hey! Du nur mich gelehrt VB_PredeclaredId = True , danke, das ist ein Juwel. Ich kann jetzt laufen Klassen über das Direktfenster, wow.
  • Sie sind herzlich willkommen! Ich habe dieses leere StaticClass.cls Klasse Modul, das in meine Dokumente mit diesem Attribut festgelegt True also immer wenn ich eine "statische Klasse" ich habe einfach das import Modul =) ...es ist ein zweischneidiges Schwert, obwohl; eine UserForm Klasse hat das Attribut auf True wie gut das ist, wie Sie ein Formular anzeigen, ohne die Instanziierung eines... das ist nicht best practice); die Objekte sind gedacht, um instanziiert zu werden! Ich in der Regel halten diese für factory-Methoden.
InformationsquelleAutor Rdster | 2017-01-23
  1. 11

    Die Antwort ist schlicht und einfach, Nein, Nein.

    Den With - Klausel ermöglicht den Zugriff auf die member und Methoden von Ihrem Gegenstand, aber Sie bietet keine Einrichtung verweisen auf das Subjekt selbst. Wenn nötig, schreiben Sie den Namen des Objekts vollständig oder finden Sie es mit anderen Mitteln.

    Beim Zugriff auf Methoden und member eines Objekts, die Gegenstand einer äußeren With - Klausel, wieder, müssen Sie den Namen vollständig. Die innere With, und für den ganzen Umfang, komplett verdeckt den äußeren With.

    Daher, die Art, wie Sie schrieb, Ihr code ist der richtige Weg, es zu tun.

    • Davor hatte ich Angst.
    • ja, das ist bedauerlich, und wir alle wünschen es war mehr die Sprache als das.
    InformationsquelleAutor A.S.H
  2. 0

    Vielleicht einfacher, Sie einfach einer variable zuordnen, aber hier ist ein Ansatz:

    With Activeworkbook
  'Do Stuff
  With .Sheets(1)
    'More stuff Done
    '...
    'But now I need to refer to or pass the Sheet in the last With Statement
    SomeFunctionAnswer = SomeFunction Sheets(.name)
  End With
  'Yet more stuff Done
End With
    • Um vollständig zu qualifizieren, obwohl dies, dass Sie müssten zu verwenden Activeworkbook.Sheets(.name) die enden, die oben sogar noch länger.
    • In diesem speziellen Beispiel, werden Sie nicht brauchen, um sich zu qualifizieren, wie es die aktive Arbeitsmappe ist, aber ich Stimme zu, dass im Allgemeinen dieser Ansatz ist ein bisschen eine Sackgasse.
    InformationsquelleAutor SJR
  3. 0

    Konnten Sie es aus dem inneren, mit und in dem äußeren mit. Dann könnte man die drop Activeworkbook Qualifikation.

    With Activeworkbook
  'Do Stuff
  With .Sheets(1)
    'More stuff Done
    '...
  End With
  SomeFunctionAnswer = SomeFunction .Sheets(1)
  'Yet more stuff Done
End With
    • Das ist fein und toll, wenn man nicht noch andere Linien, die innen Mit nach es. Natürlich, wenn Sie nicht brauchen, um mit der Innenseite Mit, würden Sie einfach bewegen Sie die Linie an der Außenseite ein.
    • Ok. Ich war jetzt nur das Beispiel, das Sie gebucht. In Ihrem Beispiel haben Sie Sachen zu tun, bevor Sie die Funktion aufrufen, und dann kommt nichts nach. Ich war nicht in Anbetracht Szenarien, dass Sie nicht abzugrenzen. Ich dachte, deine Frage war über diese spezifische Szenario. Ich wusste nicht, dass es gemeint war eher eine generalisierte Diskussion.
    InformationsquelleAutor J. Garth
Schreibe einen Kommentar