Excel VBA Karekök (SQR) İşlevi
VBA'da "SQR" adında yerleşik bir işleve sahibiz, bu işlev girdide verilen sayı için karekök döndürür. Karekök işlevi, işlevi için yalnızca bir bağımsız değişken, yani Sayı gerektirir.
SQRT, hem excel hem de VBA'da bir karekök işlevidir. Bu işlevi kullanma yöntemi aşağıdaki gibidir SQR (sayı) ve excel'de belirli bir sayının karekökünü hesaplamak için kullanılır; ancak, terminoloji farklıdır ve VBA'daki SQR ile karşılaştırıldığında SQRT olarak yazılmıştır.
SQR işlevinin sözdizimi aşağıdadır.
Sayı: Bu argüman için, karekökünü bulmaya çalıştığımız sayıyı sağlamamız gerekiyor. Numara, değişkene atanan doğrudan bir sayı veya sayı kaynağı olabilir veya hücre referanslı bir sayı geçerlidir.
Bu işlev hem çalışma sayfası işlevleriyle hem de VBA işleviyle kullanılabilir, ancak bir çalışma sayfasında SQRT olarak mevcuttur.
Excel VBA'da Karekök Örnekleri
Örnek 1
Şimdi 64 sayısının karekökünü bulmak için kod yazmaya çalışacağız.
İlk önce, VBA alt yordamını başlatın.
Kod:
Sub Square_Root_Example () End Sub
İki değişkeni Tamsayı olarak tanımlayın, biri sayıyı saklamak ve diğeri karekök değerinin sonucunu göstermektir.
Kod:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer End Sub
"Gerçek Sayı" değişkeni için 64 rakamının değerini atayın.
Kod:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 64 End Sub
Başka bir değişken için, karekök değerini atayacağız, değişken adını gireceğiz, eşit şarkı koyacağız ve SQR işlevini açacağız.
SQR fonksiyonunun tek argümanı "Number" dır, çünkü 64 sayısını zaten "ActualNumber" değişkenine atamıştık, hadi SQR fonksiyonunda aynı değişken adını sağlayalım.
Ardından, sonucu mesaj kutusunda gösterin. Şimdi "KareNumarası" değişkenine atanan karekök numarası, mesaj kutusuna aynı değişken adını gösterir.
Kod:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 64 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Tamam, kodlamayla işimiz bitti.
F5 excel kısayol tuşunu kullanarak kodu çalıştırın ve mesaj kutusunda ne aldığımızı görün.
64 sayısının Karekökü 8, yani 8 * 8 = 64
Örnek 2
VBA'da sqrt'yi hesaplarken aklımızda tutmamız gereken bir şey, değişken veri türü tam sayı veya uzun olduğunda, sonucun en yakın tam sayıya veya tam sayı değerine yuvarlanmasıdır.
Örneğin, 70 sayısının karekökünü bulmaya çalışıyorsanız, bunun karekökü yoktur, ancak VBA'da yalnızca 8 en yakın karekök tamsayı değeri olduğu için 8 olarak gösterilir.
Aşağıdaki koda bakın.
Kod:
Alt Kare_Kök_Örnek1 () Dim Gerçek Sayı As Tamsayı Dim KareNumarası As Tamsayı Gerçek Sayı = 70 KareNumarası = Sqr (Gerçek Sayı) MsgBox KareNumarası Son Alt
70 için gerçek karekök sayı sonucu 8.3666'dır, ancak VBA ile en yakın tam sayı değeri 8'e yuvarlayacaktır.
Bu hatayı düzeltmek için yapabileceğimiz bir şey, "SquareNumber" değişkeninin veri türünü "Double" olarak değiştirmemiz gerektiğidir.
Kod:
Sub Square_Root_Example1 () Dim ActualNumber As Integer Dim SquareNumber As Double ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Şimdi kodu manuel olarak veya F5 tuşu ile çalıştırın ve sonucu görün.
Gördüğünüz gibi, sonuç şimdi doğru, yani 8.366602. Bunun nedeni, "SquareNumber" değişkenine atadığımız veri tipidir.
Hatırlanacak şeyler
- VBA'da sayı formülünün karekökünü bulmak için SQR ve çalışma sayfasında SQRT'dir.
- KAREKÖK işlevine sağladığımız sayı pozitif bir sayı olmalıdır, aksi takdirde #SAYI! hata.
