Akar Persegi VBA

Fungsi Excel VBA Square Root (SQR)

Di VBA kita memiliki fungsi bawaan yang disebut "SQR", fungsi ini mengembalikan akar kuadrat untuk bilangan yang diberikan dalam input. Fungsi Square Root hanya memerlukan satu argumen untuk fungsinya iaitu Number.

SQRT adalah fungsi kuasa dua di kedua excel dan VBA, kaedah untuk menggunakan fungsi ini adalah seperti berikut SQR (number) dan digunakan untuk mengira punca kuasa dua nombor tertentu dalam excel namun nomenklaturnya berbeza dan ia ditulis sebagai SQRT dibandingkan ke SQR dalam VBA.

Berikut adalah sintaks fungsi SQR.

Nombor: Untuk argumen ini, kita perlu memberikan nombor yang kita cari untuk mencari punca kuasa dua. Nombor itu boleh menjadi pembekalan langsung nombor atau nombor yang diberikan kepada pemboleh ubah atau nombor dengan rujukan sel adalah sah.

Fungsi ini tersedia dengan kedua-dua fungsi lembaran kerja dan juga fungsi VBA tetapi dalam lembaran kerja, ia tersedia sebagai SQRT.

Contoh Square Root dalam Excel VBA

Anda boleh memuat turun Templat Fungsi Excel VBA SQRT ini di sini - Templat Fungsi Excel VBA SQRT

Contoh # 1

Sekarang kita akan cuba menulis kod untuk mencari punca kuasa dua bagi nombor 64.

Pertama, mulakan subrutin vba.

Kod:

 Sub Square_Root_Contoh () Akhir Sub 

Tentukan dua pemboleh ubah sebagai Integer, satu adalah untuk menyimpan nombor dan yang lain adalah untuk menunjukkan hasil dari nilai punca kuasa dua.

Kod:

 Sub Square_Root_Contoh () Dim Sebenar Nombor Sebagai Integer Dim SquareNumber Sebagai Integer End Sub 

Untuk pemboleh ubah "ActualNumber" berikan nilai nombor 64.

Kod:

 Sub Square_Root_Contoh () Dim SebenarNumber Sebagai Integer Dim SquareNumber Sebagai Integer ActualNumber = 64 End Sub 

Untuk pemboleh ubah lain, kami akan menetapkan nilai akar kuadrat, masukkan nama pemboleh ubah, letakkan nyanyian sama dan buka fungsi SQR.

Satu-satunya argumen fungsi SQR adalah "Number" kerana kita telah memberikan nombor 64 kepada pemboleh ubah "ActualNumber" mari kita berikan nama pemboleh ubah yang sama dalam fungsi SQR.

Seterusnya tunjukkan hasilnya di kotak mesej. Sekarang nombor punca kuasa dua diberikan kepada pemboleh ubah "SquareNumber" menunjukkan nama pemboleh ubah yang sama ke kotak mesej.

Kod:

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

Ok, itu sahaja yang kita selesaikan dengan pengekodan.

Jalankan kod menggunakan kunci pintasan excel F5 dan lihat apa yang kita dapat di kotak mesej.

Square Root nombor 64 ialah 8 iaitu 8 * 8 = 64

Contoh # 2

Satu perkara lagi yang perlu kita ingat semasa mengira sqrt dalam VBA adalah apabila jenis data pemboleh ubah sama ada bilangan bulat atau panjang hasilnya dibundarkan ke bilangan bulat atau nombor bulat terdekat.

Contohnya, jika anda berusaha mencari punca kuasa dua untuk nombor 70, tidak ada punca kuasa dua untuk ini tetapi dalam VBA ia hanya menunjukkan 8 kerana 8 adalah nilai integer root square terdekat.

Lihat kod di bawah.

Kod:

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

Hasil nombor punca kuasa dua sebenar untuk 70 adalah 8.3666 tetapi dengan VBA ia akan membulatkan nilai integer terdekat 8.

Satu perkara yang dapat kita lakukan untuk memperbaiki kesalahan ini adalah kita perlu mengubah jenis data pemboleh ubah "SquareNumber" menjadi "Double".

Kod:

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

Sekarang jalankan kod secara manual atau melalui kekunci F5 dan lihat hasilnya.

Seperti yang anda lihat hasilnya tepat sekarang iaitu 8.366602 ini kerana jenis data yang telah kami tetapkan pada pemboleh ubah "SquareNumber"

Perkara yang Perlu Diingat

  • Dalam VBA untuk mencari punca kuasa dua formula nombor adalah SQR dan dalam lembaran kerja itu adalah SQRT.
  • Nombor yang kami berikan untuk fungsi SQR mestilah nombor positif atau tidak, kami akan mendapat #NUM! kesilapan.