VBA-vierkantswortel

Excel VBA Square Root (SQR) -functie

In VBA hebben we een ingebouwde functie genaamd "SQR", deze functie retourneert de vierkantswortel voor het opgegeven getal in de invoer. De functie Vierkantswortel vereist slechts één argument voor zijn functie, namelijk Getal.

SQRT is een vierkantswortelfunctie in zowel Excel als VBA, de methode om deze functie te gebruiken is als volgt SQR (getal) en wordt gebruikt om de vierkantswortel van een bepaald getal in Excel te berekenen, maar de nomenclatuur is anders en wordt geschreven als SQRT vergeleken naar SQR in VBA.

Hieronder staat de syntaxis van de SQR-functie.

Getal: voor dit argument moeten we het getal opgeven waarvoor we de vierkantswortel proberen te vinden. Het nummer kan een directe levering zijn van een nummer of nummer dat aan de variabele is toegewezen of een nummer met celverwijzing is geldig.

Deze functie is beschikbaar met zowel de werkbladfunctie als de VBA-functie, maar in een werkblad is het beschikbaar als SQRT.

Voorbeelden van vierkantswortel in Excel VBA

U kunt deze VBA SQRT-functie Excel-sjabloon hier downloaden - VBA SQRT-functie Excel-sjabloon

Voorbeeld 1

Nu zullen we proberen code te schrijven om de vierkantswortel voor het getal 64 te vinden.

Start eerst de vba-subroutine.

Code:

 Sub Square_Root_Example () End Sub 

Definieer twee variabelen als geheel getal, een is om het getal op te slaan en een andere om het resultaat van de vierkantswortelwaarde te tonen.

Code:

 Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer End Sub 

Wijs voor de variabele "ActualNumber" de waarde van nummer 64 toe.

Code:

 Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 64 End Sub 

Voor een andere variabele zullen we de vierkantswortelwaarde toewijzen, de variabelenaam invoeren, gelijk zingen en de SQR-functie openen.

Het enige argument van de SQR-functie is "Getal", aangezien we al het getal 64 hebben toegewezen aan de variabele "ActualNummer", laten we dezelfde variabelenaam opgeven in de SQR-functie.

Toon vervolgens het resultaat in het berichtvenster. Nu is het vierkantswortelnummer toegewezen aan de variabele "SquareNumber" toont dezelfde variabelenaam aan het berichtvenster.

Code:

 Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 64 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub 

Oké, dat is alles wat we gedaan hebben met coderen.

Voer de code uit met Excel-sneltoets F5 en kijk wat we in het berichtvenster krijgen.

Vierkantswortel van het getal 64 is 8, dwz 8 * 8 = 64

Voorbeeld # 2

Nog een ding dat we in gedachten moeten houden bij het berekenen van sqrt in VBA is dat wanneer het variabele gegevenstype een geheel getal of een lang getal is, het resultaat wordt afgerond op het dichtstbijzijnde gehele getal of de gehele getalwaarde.

Als u bijvoorbeeld de vierkantswortel voor het getal 70 probeert te vinden, is hiervoor geen vierkantswortel, maar in VBA wordt dit alleen weergegeven als 8 omdat 8 de dichtstbijzijnde gehele vierkantswortelwaarde is.

Kijk naar de onderstaande code.

Code:

 Sub Square_Root_Example1 () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub 

Het werkelijke resultaat van het vierkantswortelgetal voor 70 is 8,3666, maar met VBA wordt het afgerond op het dichtstbijzijnde gehele getal 8.

Een ding dat we kunnen doen om deze fout recht te zetten, is dat we het datatype van de variabele "SquareNumber" moeten veranderen in "Double".

Code:

 Sub Square_Root_Example1 () Dim ActualNumber As Integer Dim SquareNumber As Double ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub 

Voer de code nu handmatig of via de F5-toets uit en bekijk het resultaat.

Zoals je kunt zien is het resultaat nu juist, dwz 8.366602 dit komt door het gegevenstype dat we hebben toegewezen aan de variabele "SquareNumber"

Dingen om te onthouden

• In VBA is de vierkantswortel van de getalformule SQR en in het werkblad SQRT.
• Het nummer dat we aan de SQR-functie leveren, moet een positief getal zijn, anders krijgen we #GETAL! fout.