Deklarieren und verwenden-Bereich in vba

Ich bin ganz neu in der VBA

Heute entwickeln Sie ein makro bemerkte ich etwas komisches.

Mit Range wie das funktioniert : 

Dim rg As Range     
Set rg = ActiveSheet.Range("A1:B2")

Mit Range wie dieser funktioniert nicht und resultiert in Fehlermeldung "Objektvariable nicht festgelegt" : 

Dim rg As Range   
rg = ActiveSheet.Range("A1:B2")

aber mit Range wie das funktioniert : 

Dim rg,rg2 As Range  
rg = ActiveSheet.Range("A1:B2")

Wie ist es möglich?

  • Ich glaube, du wirst finden, dass Sie nicht "wirklich" funktioniert es einfach nicht Auslöser der compiler Fehler beim kompilieren. Zum Beispiel, fügen Sie Debug.Print rg.Address am Ende und es wird nur funktionieren, wenn Sie Set
  • Fast ein Duplikat von stackoverflow.com/a/17877644/11683, mit dem Zusatz von stackoverflow.com/a/19234210/11683.
InformationsquelleAutor SJGD | 2014-12-10
  1. 10

    Entdecken Sie Variant - und Objekt-Referenzen.

    Einen Range ist ein Objekt - ein Variant werden kann alles einschließlich ein Objekt.

    Dies ist der richtige Weg, um darüber zu gehen:

    Dim rg As Range     
Set rg = ActiveSheet.Range("A1:B2")

    Weil:

    1. Sie sind explizit zu deklarieren rg als Range Objekt.
    2. Du bist richtig zuweisen der Objektreferenz mit der Set Stichwort.

    Wenn Sie nicht specity die Set Stichwort, du bist die Zuweisung einer Objekt-Referenz mit der VBA-syntax für Werte Aufgaben, und das ist ein Fehler:

    rg = ActiveSheet.Range("A1:B2")

    Wenn Sie deklarieren mehrere Variablen mit dem gleichen Befehl, und nur einen Typ angeben, der für die Letzte, dann rg ist ein Variant hier:

    Dim rg,rg2 As Range  ' this is like doing Dim rg As Variant, rg2 As Range
rg = ActiveSheet.Range("A1:B2")

    - Und VBA-gerne lassen, weisen Sie eine Variant mit nur etwa alles... aber die Dinge sprengen, die zur Zeit ausführen.

    • + 1 - bestätigen Sie Ihre Argumentation hier ist ein link zu cpearson, navigieren Sie zu achten Sie Auf Variablen, die Mit Einer Dim-Anweisung
    • Die nächste version von Rubberduck-add-in für den VBE (open-source-Projekt, die ich arbeite mit einem Freund) ein code-Inspektion & quick-fix für das 🙂
    • Kann jeder weiß es, aber trotzdem ... wenn rg erklärt wird Variant dann rg = ActiveSheet.Range("A1:B2") weist Werte von "A1:B2" zu rg (kein Fehler existiert). rg ist dann array von Varianten (1 to 2, 1 to 2).
    • ja, es macht Spaß :-). Ich habe es in den Objekt-browser und Value ist nicht die default-Eigenschaft von Range ... zumindest in meiner Excel-version 2007. stackoverflow.com/questions/17877536/...
    • Ich habe nie gesagt, das können wir nicht machen (das ist, warum die full erweiterte syntax wird in einem Kommentar in der letzten snippet) - ich weiß, implizieren wir grundsätzlich sollte nicht benutzen Sie diese syntax, obwohl; das ist, warum Rubberduck flags Sie.
    • Sie haben Recht, lassen Sie mich anders formulieren (ich löschte meinen vorherigen Kommentar): mehrere Variablen-Deklaration (einschließlich die type definition) kann man in "die gleiche Anweisung" verwenden Sie die korrekte syntax. Ich auf erweitert, dass in einer separate Antwort.

    InformationsquelleAutor Mathieu Guindon
  2. 1

    Erweiterung auf Mathieu Guidon Antwort:

    Wenn Sie möchten, um anzugeben, dass zwei Objekte mit dem gleichen Befehl (eine Zeile), sollten Sie die folgende syntax verwenden:

    Dim rg as Range, rg2 As Range

    Dies richtig zuordnen kann sowohl rg und rg2 als ein range-Objekt.

    Mit Dim rg, rg2 As Range nur rg2 zugeordnet ist als eine Wut-Objekt (rg wird eine Variante), Mathieu Guidon richtig erklärt.

    InformationsquelleAutor Albin
Schreibe einen Kommentar