Fungsi Excel VBA Square Root (SQR)
Di VBA kami memiliki fungsi built-in yang disebut "SQR", fungsi ini mengembalikan akar kuadrat untuk nomor yang diberikan yang disediakan dalam input. Fungsi akar kuadrat hanya membutuhkan satu argumen untuk fungsinya yaitu Angka.
SQRT adalah fungsi akar kuadrat di excel dan VBA. Metode untuk menggunakan fungsi ini adalah sebagai berikut SQR (bilangan) dan digunakan untuk menghitung akar kuadrat dari bilangan tertentu di excel; Namun, nomenklaturnya berbeda, dan ditulis sebagai SQRT dibandingkan dengan SQR di VBA.
Di bawah ini adalah sintaks dari fungsi SQR.
Bilangan: Untuk argumen ini, kita perlu menyediakan bilangan yang ingin kita cari akar kuadratnya. Nomor tersebut dapat berupa pasokan langsung dari nomor atau nomor yang ditetapkan ke variabel, atau nomor dengan referensi sel valid.
Fungsi ini tersedia dengan fungsi lembar kerja serta fungsi VBA, tetapi dalam lembar kerja, tersedia sebagai SQRT.
Contoh Akar Pangkat Dua di Excel VBA
Contoh 1
Sekarang kita akan mencoba menulis kode untuk menemukan akar kuadrat untuk angka 64.
Pertama, mulai subrutin VBA.
Kode:
Sub Square_Root_Example () End Sub
Tentukan dua variabel sebagai Integer, satu untuk menyimpan angka, dan yang lainnya untuk menunjukkan hasil dari nilai akar kuadrat.
Kode:
Sub Square_Root_Example () Redupkan ActualNumber Sebagai Integer Redup SquareNumber Sebagai Integer End Sub
Untuk variabel "ActualNumber", tetapkan nilai angka 64.
Kode:
Sub Square_Root_Example () Redupkan ActualNumber Sebagai Integer Redup SquareNumber Sebagai Integer ActualNumber = 64 End Sub
Untuk variabel lain, kita akan menetapkan nilai akar kuadrat, memasukkan nama variabel, menempatkan sing yang sama, dan membuka fungsi SQR.
Argumen satu-satunya dari fungsi SQR adalah "Number" karena kita telah menetapkan angka 64 ke variabel "ActualNumber", mari berikan nama variabel yang sama dalam fungsi SQR.
Selanjutnya, tunjukkan hasilnya di kotak pesan. Sekarang nomor akar kuadrat diberikan ke variabel "SquareNumber" menunjukkan nama variabel yang sama ke kotak pesan.
Kode:
Sub Square_Root_Example () Redupkan ActualNumber Sebagai Integer Redup SquareNumber Sebagai Integer ActualNumber = 64 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Ok, itu saja kita selesai dengan pengkodean.
Jalankan kode menggunakan tombol pintas excel F5 dan lihat apa yang kita dapatkan di kotak pesan.
Akar Pangkat Dua dari angka 64 adalah 8 yaitu 8 * 8 = 64
Contoh # 2
Satu hal lagi yang perlu kita ingat saat menghitung sqrt di VBA adalah ketika tipe data variabel adalah bilangan bulat atau panjang, hasilnya dibulatkan ke bilangan bulat terdekat atau nilai bilangan bulat.
Misalnya, jika Anda mencoba mencari akar kuadrat untuk bilangan 70, tidak ada akar kuadrat untuk ini, tetapi di VBA, ini ditampilkan sebagai 8 hanya karena 8 adalah nilai bilangan bulat akar kuadrat terdekat.
Lihat kode di bawah ini.
Kode:
Sub Square_Root_Example1 () Dim ActualNumber Sebagai Integer Dim SquareNumber Sebagai Integer ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Hasil bilangan akar kuadrat aktual untuk 70 adalah 8,3666, tetapi dengan VBA, angka tersebut akan dibulatkan ke nilai bilangan bulat terdekat 8.
Satu hal yang dapat kita lakukan untuk memperbaiki kesalahan ini adalah kita perlu mengubah tipe data dari variabel "SquareNumber" menjadi "Double."
Kode:
Sub Square_Root_Example1 () Dim ActualNumber Sebagai Integer Dim SquareNumber As Double ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Sekarang jalankan kode secara manual atau melalui tombol F5 dan lihat hasilnya.
Seperti yang Anda lihat, hasilnya sekarang akurat, yaitu 8.366602. Ini karena jenis data yang telah kami tetapkan ke variabel "SquareNumber".
Hal-hal untuk diingat
- Di VBA untuk menemukan akar kuadrat dari rumus angka adalah SQR, dan di lembar kerja, adalah SQRT.
- Angka yang kami berikan ke fungsi SQR harus berupa angka positif, atau kami akan mendapatkan #NUM! kesalahan.
