Daftar Isi:
Video: Cara Menggunakan Inputbox Dengan Visual Basic 6 2024
Fungsi VBA InputBox berguna untuk mendapatkan satu informasi yang diketik oleh pengguna di Excle 2016. Informasi itu bisa berupa nilai, string teks, atau bahkan rentang alamat. Ini adalah alternatif yang baik untuk mengembangkan UserForm saat Anda hanya membutuhkan satu nilai.
Sintaks InputBox
Berikut adalah versi sintaks dari fungsi InputBox yang disederhanakan:
InputBox (prompt [title] [default])
Fungsi InputBox menerima argumen yang tercantum di sini.
Argumen | Apa yang Mempengaruhi |
---|---|
Prompt | Teks yang ditampilkan di kotak input |
Judul | Teks yang ditampilkan di bilah judul kotak input
opsional] |
Default | Nilai default untuk input pengguna (opsional) |
Contoh InputBox
Berikut adalah pernyataan yang menunjukkan bagaimana Anda dapat menggunakan fungsi InputBox:
TheName = InputBox ("Apa nama Anda?", "Salam")
Saat Anda mengeksekusi pernyataan VBA ini, Excel menampilkan kotak dialog ini. Perhatikan bahwa contoh ini hanya menggunakan dua argumen pertama dan tidak memberikan nilai default. Saat pengguna memasukkan nilai dan klik OK, kode tersebut memberi nilai pada variabel TheName.
Contoh berikut menggunakan argumen ketiga dan memberikan nilai default. Nilai default adalah username yang disimpan oleh Excel (objek UserName objek aplikasi).
Sub GetName () Dim TheName As String TheName = InputBox ("Apa nama Anda?", _ "Salam", Aplikasi. UserName) End Sub
The InputBox selalu menampilkan tombol Cancel. Jika pengguna mengklik Batal, fungsi InputBox mengembalikan sebuah string kosong.
Fungsi VBA's InputBox selalu mengembalikan sebuah string, jadi jika Anda memerlukan nilai, kode Anda perlu melakukan pengecekan tambahan. Contoh berikut menggunakan fungsi InputBox untuk mendapatkan nomor. Menggunakan fungsi IsNumeric untuk memeriksa apakah string adalah angka. Jika string itu berisi angka, semuanya baik-baik saja. Jika entri pengguna tidak dapat diartikan sebagai angka, kode akan menampilkan kotak pesan.
Sub AddSheets () Dim Prompt Sebagai String Dim Caption As String Dim DefValue As Long Dim NumSheets As String Prompt = "Berapa lembar yang ingin Anda tambahkan? "Caption =" Katakan padaku … "DefValue = 1 NumSheets = InputBox (Prompt, Caption, DefValue) Jika NumSheets =" "Lalu Keluar Sub & apos; Dibatalkan If IsNumeric (NumSheets) Then If NumSheets> 0 Then Sheets. Add Count: = NumSheets Else MsgBox "Nomor tidak valid" End If End Sub
Centang kotak dialog yang dihasilkan rutin ini.
Contoh lain menggunakan fungsi InputBox.Jenis InputBox lainnya
Informasi yang disajikan di sini berlaku untuk fungsi VBA's InputBox. Microsoft tampaknya menyukai kebingungan, jadi Anda juga memiliki akses ke metode InputBox , yang merupakan metode objek Aplikasi.
Salah satu keuntungan besar menggunakan metode Application InputBox adalah kode Anda dapat meminta pilihan rentang. Pengguna kemudian dapat memilih rentang di worksheet dengan menyoroti sel. Berikut adalah contoh singkat yang meminta pengguna untuk memilih rentang:
Sub GetRange () Dim Rng As Range Pada Error Resume Next Set Rng = Application. InputBox _ (prompt: = "Tentukan range:", Type: = 8) Jika Rng Tidak Ada Lalu Keluar dari Sub MsgBox "You selected range" & Rng. Alamat End Sub
Beginilah tampilannya.
Menggunakan metode Application InputBox untuk mendapatkan range.Dalam contoh sederhana ini, kode memberitahu pengguna alamat kisaran yang dipilih. Dalam kehidupan nyata, kode Anda benar-benar akan melakukan sesuatu yang berguna dengan rentang yang dipilih. Hal yang baik tentang contoh ini adalah bahwa Excel menangani penanganan kesalahan. Jika Anda memasukkan sesuatu yang bukan rentang, Excel akan memberitahukan hal itu dan membiarkan Anda mencoba lagi.
Aplikasi Metode InputBox mirip dengan fungsi VBA's InputBox, namun juga memiliki beberapa perbedaan. Periksa sistem Bantuan untuk rincian lengkap.