Bagaimana Menggunakan Fungsi Wrapper di Excel 2016 VBA - dummies

Di sini, Anda akan menemukan beberapa fungsi lembar kerja Excel VBA sederhana yang relatif sederhana yang juga sangat berguna. Fungsi ini disebut fungsi wrapper karena terdiri dari kode yang melilit elemen VBA intrinsik. Dengan kata lain, mereka memungkinkan Anda untuk menggunakan fungsi VBA dalam formula lembar kerja.

Function User () 'Mengembalikan nama pengguna saat ini User = Application. UserName End Function

Fungsi ini, pada dasarnya, memungkinkan formula Anda mengakses properti UserName dari objek Aplikasi.

Fungsi NumberFormat

Fungsi ini hanya menampilkan format angka untuk sel. Ini bisa berguna jika Anda perlu memastikan bahwa sekelompok sel memiliki format angka yang sama.

Function NumberFormat (Cell) 'Mengembalikan nomor format sel NumberFormat = Sel (1). NumberFormat End Function

Perhatikan penggunaan Cell (1)? Jika rentang multicell digunakan sebagai argumen, hanya sel pertama yang digunakan.

Anda dapat dengan mudah menulis fungsi serupa yang mengembalikan warna teks sel, warna latar belakang, font, dan sebagainya.

Fungsi ExtractElement

Fungsi pembungkus ini mengembalikan substring dari string teks yang berisi beberapa elemen, dipisahkan oleh karakter pemisah. Misalnya, formula ini mengembalikan sapi, yang merupakan elemen ketiga dalam string yang menggunakan spasi sebagai pemisah. Argumennya, tentu saja, bisa jadi referensi sel.

= ExtractElement ("kucing kuda kuda anjing", 3, "")

Inilah kodenya, yang merupakan pembungkus fungsi Split VBA:

Function ExtractElement (Txt, n, Sep) 'Mengembalikan elemen ke-n dari string teks, di mana' elemen dipisahkan oleh karakter pemisah tertentu ExtractElement = Split (Aplikasi Trim (Txt), Sep) (n - 1) Fungsi Akhir

Gambar di bawah ini menunjukkan Fungsi ExtractElement digunakan dalam formula lembar kerja. Kolom A berisi string teks, Kolom B berisi nomor elemen yang akan diekstraksi, dan Kolom C berisi pembatas (sel yang tampak kosong berisi karakter spasi).

Menggunakan fungsi ExtractElement untuk mengembalikan elemen dari sebuah string.

Fungsi SayIt

Fungsi sederhana ini adalah pembungkus untuk metode Speak dari Aplikasi. Objek ucapan Ini menggunakan suara yang disintesis untuk "berbicara" dengan argumennya.

Fungsi SayIt (txt) 'Ucapkan argumen Permohonan. Pidato. Ucapkan txt, True End Function

Berikut adalah contohnya:

= IF (C10> 10000, SayIt ("Over Budget"), "OK")

Formula memeriksa sel C10. Jika nilainya lebih besar dari 10.000, fungsinya berbicara teks: "Lebih dari anggaran."Jika nilainya kurang dari 10.000, fungsi menampilkan teks OK (dan tidak mengatakan apapun).

Gunakan hemat. Jika Anda menggunakan fungsi ini lebih dari satu kali, itu bisa sangat membingungkan. Juga, ingatlah bahwa fungsi ini dievaluasi setiap kali lembar kerja dihitung, jadi suaranya mungkin menjadi sangat menyebalkan jika Anda membuat banyak perubahan. Fungsi ini mungkin lebih cocok untuk tujuan hiburan.

Fungsi IsLike

Operator VBA seperti itu adalah cara yang sangat fleksibel untuk membandingkan string teks. Lihat di sistem Bantuan VBA. Fungsi ini membawa kekuatan itu ke formula worksheet Anda:

Function IsLike (teks, pola) 'Mengembalikan nilai true jika argumen pertama seperti IsLike kedua = teks Seperti pola End Function