Excel VBA Quadratwurzelfunktion

In diesem Artikel sehen wir eine Übersicht über Excel VBA Square Root. Bei jeder Arbeit an Excel müssen Sie die SQRT-Funktion verwendet haben, die als Ergebnis die Quadratwurzel einer ganzen Zahl angibt. Ist es möglich, die Quadratwurzel einer Zahl unter VBA zu erfassen? Nun, die Antwort ist ein sicheres Ja! Mit der VBA-SQR-Funktion können Sie die Quadratwurzel jeder positiven Zahl über VBA ermitteln. Diese Funktion ist eine integrierte VBA-Funktion und kann für jede positive Ganzzahl verwendet werden, um die Quadratwurzel daraus zu erhalten. Nun, diese Funktion ist derjenigen, die wir als Tabellenkalkulationsfunktion SQRT verwenden, sehr ähnlich und nimmt auch das gleiche einzelne Argument "Zahl", das positiv sein sollte. Wir können auch die Quadratwurzeln von imaginären Zahlen nicht ermitteln, und die Eingabe negativer Werte ist sinnlos, da ein negativer Quadratwert einer Zahl nicht erfasst werden kann.

Syntax:

Die Syntax für die VBA-Quadratwurzelfunktion ist recht einfach und ähnelt der SQRT-Funktion für Tabellenkalkulationen.

Wobei Number ein einziges Argument ist, das angegeben werden muss und unbedingt positiv sein sollte. Da wir keine negativen Quadratwerte für eine beliebige Zahl haben können, ist es unmöglich, einen negativen Quadratwurzelwert zu erhalten. Auch gibt es keinen Spielraum, um die Quadratwurzeln der komplexen Zahlen herauszufinden. Dieses Argument kann direkt als Nummer oder Variable angegeben werden, die der Nummer zugewiesen ist, oder als Tabellenkalkulationszellenreferenz, in der die Nummer gespeichert ist. Der hier zu beachtende Punkt ist auch, dass das von Ihnen angegebene Argument standardmäßig als Double betrachtet wird, um die Quadratwurzel für eine beliebige Zahl zu erhalten, unabhängig davon, ob es sich um ein ganzes Quadrat handelt oder nicht (Bsp. 87, ist nicht das Ganzes Quadrat, erhält aber immer noch den Quadratwurzelwert, da der Zahlentyp doppelt ist. Sie können eine Zahl immer noch als Ganzzahl definieren und sie dann als Argument für die SQR-Funktion verwenden. Wenn die Zahl auf den nächsten Quadratwurzelwert gerundet wird vorausgesetzt, ist nicht ein ganzes Quadrat.

Wie verwende ich die Quadratwurzelfunktion in Excel VBA?

Im Folgenden finden Sie verschiedene Beispiele für die Verwendung der Quadratwurzelfunktion in Excel VBA.

Sie können diese VBA-Quadratwurzel-Excel-Vorlage hier herunterladen - VBA-Quadratwurzel-Excel-Vorlage

VBA-Quadratwurzel - Beispiel 1

Befolgen Sie die nachstehenden Schritte, um zu sehen, wie genau die VBA SQR-Funktion funktioniert.

Schritt 1: Klicken Sie auf die Registerkarte Entwickler und dann auf das Visual Basic- Symbol (ALT + F11).

Schritt 2: Öffnen Sie das Modul über die Registerkarte Einfügen (siehe unten).

Schritt 3: Definieren Sie eine neue Unterprozedur, die das Makro unter dem neu eingefügten Modul enthalten kann.

Code:

 Sub sqrt_Example1 () End Sub

Schritt 4: Verwenden Sie den Zuweisungsoperator, um den Wert der VBA-Quadratwurzelfunktion einer Variablen mit dem Namen " sqr_root " zuzuweisen, damit wir das Ergebnis drucken und prüfen können, ob es ordnungsgemäß funktioniert.

Code:

 Sub sqrt_Example1 () sqr_root = Sqr (121) End Sub

Schritt 5: Verwenden Sie die Funktion MsgBox, damit wir das Ergebnis als Meldungsfeld drucken können, das angezeigt wird, sobald wir den Code ausführen.

Code:

 Sub sqrt_Example1 () sqr_root = Sqr (121) MsgBox "Quadratwurzel der gegebenen Zahl ist:" & sqr_root End Sub

Schritt 6: Führen Sie diesen Code aus, indem Sie die Taste F5 oder Ausführen am obersten Bedienfeld drücken.

Sobald Sie diesen Code ausführen, sollte eine Ausgabe wie unten gezeigt angezeigt werden.

VBA-Quadratwurzel - Beispiel 2

Tauchen wir tiefer in die VBA SQR-Funktion ein und versuchen, verschiedene Fälle herauszufinden.

Schritt 1: Definieren Sie eine Unterprozedur, die Ihre Makros aufnehmen kann.

Code:

 Sub sqrt_Example2 () End Sub

Schritt 2: Wir müssen zwei neue Variablen als Ganzzahl definieren. Eine zum Speichern des Wertes, für den wir eine Quadratwurzel wollen. Eine andere Variable wäre, das Ergebnis der Quadratwurzel zu speichern, nachdem wir die SQR-Funktion angewendet haben.

Code:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer End Sub

Schritt 3: Weisen Sie der Variable square_num mit dem Zuweisungsoperator ('=') den Wert 87 zu. Dies ist die Zahl, für die wir den Quadratwurzelwert erfassen wollten.

Code:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 End Sub

Schritt 4: Verwenden Sie die SQR-Funktion und den Zuweisungsoperator, um der Variable square_root den Wert der Quadratwurzel zuzuweisen . Verwenden Sie square_num als Argument unter der SQR-Funktion (die Zahl, für die wir den Quadratwurzelwert wollten).

Code:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 square_root = Sqr (square_num) End Sub

Schritt 5: Verwenden Sie die Eigenschaft MsgBox, um den Wert der Quadratwurzel als Meldung anzuzeigen, die angezeigt wird, sobald Sie den Code ausführen.

Code:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 square_root = Sqr (square_num) MsgBox "Quadratwurzel für gegebene Zahl ist:" & square_root End Sub

Schritt 6: Führen Sie diesen Code aus, indem Sie die Taste F5 oder Ausführen drücken, die sich am obersten Band von VBE befindet.

Schritt 7: Zeigen Sie die Ausgabe in einem Meldungsfeld wie folgt an:

Dies ist jedoch nicht der tatsächliche Quadratwurzelwert für die Zahl 87. Dies ist der Quadratwurzelwert für die Zahl 81. Warum in der Welt gibt VBA eine falsche Ausgabe für die SQR-Funktion aus?

Nun, es ist nichts falsch mit VBA. Wenn etwas nicht stimmt, ist es mit unserem Code ideal.

Da wir die Variablen als Ganzzahlen definiert haben, beschränken wir die VBA darauf, nur die Quadratwurzeln der Zahlen anzugeben, bei denen es sich um ganze Quadratzahlen handelt (Bsp. 4, 9, 16, 25 usw.). Wenn eine Zahl kein ganzes Quadrat ist, gibt die VBA-SQR-Funktion anstelle eines Fehlers einen Quadratwurzelwert für eine Zahl aus, die nahe an der aktuellen Zahl liegt. Hier hat 87 die 81 als nächste ganze Quadratzahl. Daher erhalten Sie die Ausgabe als 9.

Schritt 8: Sehen wir uns an, was passiert, wenn wir den Code optimieren, indem wir die Variable square_root als Double anstelle von Integer definieren.

Code:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Double square_num = 87 square_root = Sqr (square_num) MsgBox "Quadratwurzel für gegebene Zahl ist:" & square_root End Sub

Schritt 9: Sie werden sehen, dass das System jetzt den tatsächlichen Quadratwurzelwert für die Zahl 87 erfassen kann.

Dinge, an die man sich erinnern sollte

  • Wenn Sie unter der VBA-SQR-Funktion eine negative Zahl als Argument angeben, wird der Laufzeitfehler '5' ausgegeben . Da es nicht möglich ist, eine Zahl mit negativen Quadratwerten zu haben.
  • Wenn Sie eine negative Zahl haben, stellen Sie sicher, dass Sie sie mit Hilfe der ABS-Funktion in eine positive Entität umwandeln. Sie können auch mit Hilfe der SGN-Funktion unter VBA prüfen, ob die Nummer positiv ist oder nicht.
  • Wenn Sie unter der VBA-SQR-Funktion Null als Argument angeben, erhalten Sie den Quadratwurzelwert als Null.

Empfohlene Artikel

Dies ist eine Anleitung zur VBA-Quadratwurzel. Hier wird die Verwendung der Quadratwurzelfunktion in Excel VBA zusammen mit praktischen Beispielen und einer herunterladbaren Excel-Vorlage erläutert. Sie können auch unsere anderen Artikelvorschläge durchgehen -

  1. VBA-IF-Anweisungen | Excel-Vorlagen
  2. Wie verwende ich die Excel VBA-Sortierfunktion?
  3. VBA While-Schleife (Beispiele mit Excel-Vorlage)
  4. Was ist ein VBA-Zähler (Beispiele)?

Kategorie:

VBA