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; de nomenclatuur is echter anders en wordt in VBA geschreven als SQRT vergeleken met SQR.
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 werkbladfuncties als VBA-functie, maar in een werkblad is het beschikbaar als SQRT.
Voorbeelden van vierkantswortel in Excel VBA
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, de ene is om het getal op te slaan en de andere is om het resultaat van de vierkantswortelwaarde weer te geven.
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 wijzen we de vierkantswortelwaarde toe, voeren we de variabelenaam in, zetten we gelijk aan sing en openen we de SQR-functie.
Het enige argument van de SQR-functie is "Getal". Aangezien we al het getal 64 hebben toegewezen aan de variabele "ActualNumber", 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 lang 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 te verhelpen, is dat we het gegevenstype van de variabele "SquareNumber" moeten wijzigen 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 u kunt zien, is het resultaat nu nauwkeurig, dwz 8.366602. Dit komt door het gegevenstype dat we hebben toegewezen aan de variabele 'SquareNumber'.
Dingen om te onthouden
- In VBA om de vierkantswortel van de getalformule te vinden, is SQR en in het werkblad is dit SQRT.
- Het nummer dat we aan de SQR-functie leveren, moet een positief getal zijn, anders krijgen we #GETAL! fout.
