Fungsi Excel VBA Asc
Fungsi Asc di VBA digunakan untuk mengembalikan nilai integer yang mewakili kode karakter yang sesuai dengan karakter pertama dari string yang diberikan (string disediakan sebagai argumen / parameter) ke fungsi. Ini dapat digunakan atau diberikan dalam kode makro yang umumnya dimasukkan melalui Editor Visual Basic.
Lingkungan Excel di mana makro berjalan di Visual Basic Editor (VBE) yang bisa digunakan untuk mengedit dan men-debug kode makro. Ini menyimpan kode makro dan menautkannya ke buku kerja Excel.
Nilai integer yang dikembalikan oleh fungsi Asc adalah kode karakter ASCII yang sesuai di VBA. ASCII (American Standard Code for Information Interchange) adalah pengkodean karakter 7-bit yang memiliki total 128 karakter yang ditentukan di dalamnya, termasuk huruf Latin, sepuluh angka Arab, beberapa tanda baca, dan karakter kontrol. Ini tidak termasuk karakter diakritik karena membutuhkan ruang minimal 8-bit untuk encoding. Pengodean 8-bit ini dilakukan dengan ANSI (American National Standards Institute) yang memiliki total 256 karakter yang ditentukan. ANSI juga disebut ASCII diperpanjang.
Sintaks Fungsi VBA Asc
Sintaks Umum untuk fungsi ASC adalah sebagai berikut:
Sintaks rumus ASC memiliki argumen berikut:
String: Wajib, mewakili string teks yang kode karakter terkait karakter pertamanya diinginkan dan akan dikembalikan.
Jika string yang diberikan hanya memiliki satu karakter, maka fungsi tersebut jelas mengembalikan kode karakter numerik untuk karakter itu sendiri.
Contoh Excel VBA Asc
Mari kita lihat di bawah ini bagaimana Asc dapat digunakan di Excel VBA.
Contoh 1
Katakanlah kami memiliki file Excel yang berisi beberapa string, dan kami ingin menggunakan fungsi Asc dengan string ini. Mari kita lihat string yang ada di file:
Kami menggunakan fungsi Asc di VBA dalam makro yang dapat ditulis di Editor Visual Basic dan dapat diakses sebagai berikut:
Pergi ke Pengembang, lalu klik Makro:
Sekarang buat nama makro: Di bawah 'Nama Makro' tulis nama makro yang ingin dibuat dan pilih PERSONAL.XLSB di dropdown 'Makro Masuk.' Makro bisa disimpan di buku kerja pribadi yang merupakan buku kerja tersembunyi yang terbuka di latar belakang setiap kali Excel dimulai. Memilih PERSONAL.XLSB akan menyimpan makro di buku kerja Pribadi, sehingga membuat makro selalu tersedia karena Buku Kerja Pribadi tidak spesifik untuk sistem / file.
Klik 'Buat.'
Ini akan membuka jendela dengan subprocedure VBA di Visual Basic Editor sebagai berikut:
Sekarang, tentukan variabel Result1
Kode:
Sub Kode () Redup Hasil1 Akhir Sub
Sekarang tetapkan variabel Result1 dengan rumus untuk mengembalikan kode karakter dari string:
Kode:
Sub Kode () Dim Result1 Result1 = Asc ("Raj") End Sub
Sekarang nilai resultan dari Result1 dapat ditampilkan dan dikembalikan menggunakan kotak pesan VBA (MsgBox) sebagai berikut:
Kode:
Sub Kode () Redup Hasil1 Hasil1 = Asc ("Raj") MsgBox Hasil1 Akhir Sub
Sekarang ketika kita menjalankan kode ini secara manual dengan mengklik 'Run' di bagian atas jendela atau dengan menekan F5, kita mendapatkan kode karakter dari huruf pertama dari string: "Raj" yang ditampilkan di Kotak Pesan sebagai berikut:
Jadi, kita dapat melihat pada gambar di atas bahwa saat menjalankan makro, '82' dikembalikan dalam kotak pesan. Ini menyiratkan bahwa kode karakter untuk 'R' adalah 82.
Sekarang, mari kita katakan dalam contoh di atas, kita ingin menemukan kode karakter untuk string: "Karan." Untuk melakukan ini, kami mengikuti langkah-langkah yang sama seperti di atas.
Dalam kodenya, alih-alih Raj, kita akan menulis Karan untuk mendapatkan kode karakternya.
Kode:
Sub String2 () Redup Hasil2 Result2 = Asc ("Karan") MsgBox Result2 End Sub
Sekarang kita menjalankan kode ini secara manual atau dengan menekan F5, dan kita mendapatkan kode karakter dari huruf pertama dari string: “Karan” yang ditampilkan di Kotak Pesan sebagai berikut:
Jadi, kita dapat melihat pada gambar di atas bahwa saat menjalankan makro, '75' dikembalikan dalam kotak pesan. Ini menyiratkan bahwa kode karakter untuk 'K' adalah 75.
Sekarang mari kita lihat bagaimana hasil berubah untuk string yang tersisa:
Kode:
Sub String3 () Redup Hasil2 Result2 = Asc ("Heena") MsgBox Result2 End Sub
Sub String4 () Redup Hasil2 Result2 = Asc ("Arun") MsgBox Result2 End Sub
Sub String5 () Redup Hasil2 Result2 = Asc ("A") MsgBox Result2 End Sub
Sub String6 () Redupkan Result2 Result2 = Asc ("a") MsgBox Result2 End Sub
Saat menjalankan sub-prosedur ini satu per satu, kode karakter berikut dikembalikan dalam kotak pesan (satu per satu, masing-masing). Ini adalah daftar nilai terkait yang dikembalikan untuk string di atas.
Jadi, seperti yang diilustrasikan oleh screenshot di atas, kita dapat melihat bahwa fungsi ASC mengembalikan kode karakter sebagai 65 untuk string: "Arun" dan juga untuk string: "A." Ini karena kode karakter yang dikembalikan adalah VBA ASCII atau kode karakter yang setara untuk huruf pertama dari string jika string lebih dari satu karakter. Oleh karena itu, 65 dikembalikan untuk karakter awal atau pertama string: "Arun" juga 'A.'
Contoh # 2
Jika string yang diberikan sebagai parameter / argumen ke fungsi VBA ASC adalah string kosong / kosong (atau string tanpa karakter), maka fungsi tersebut mengembalikan kesalahan waktu proses.
Kode berikut menjelaskan hal yang sama.
Sub blank () Hasil redup = Asc ("") MsgBox (hasil) End Sub
Saat kami menjalankan kode ini, kami mendapatkan error Run-time sebagai berikut.
Jadi, kita dapat melihat pada gambar di atas bahwa ketika string yang diberikan sebagai parameter atau argumen ke fungsi ASC kosong / kosong, dan kemudian fungsi tersebut mengembalikan kesalahan run-time.
Hal-hal untuk diingat
- String yang dipasok ke fungsi VBA ASC dapat berupa ekspresi string apa pun yang valid.
- Fungsi Asc peka huruf besar kecil.
- Nilai integer yang dikembalikan oleh fungsi Asc berada dalam kisaran 0-255.
- Kode ASCII di VBA untuk AZ adalah 65-90, dan untuk az 97-122.
- Nama yang diberikan ke makro atau sub-prosedur tidak bisa menjadi nama dari beberapa fungsi default di VBA. Jika dinamai demikian, maka sub-prosedur akan menampilkan kesalahan.
