Isi kandungan:
Video: Cara Menggunakan Inputbox Dengan Visual Basic 6 2025
Fungsi InputBox VBA berguna untuk mendapatkan satu maklumat yang ditaip oleh pengguna di Excle 2016. Maklumat itu boleh menjadi nilai, rentetan teks, atau juga julat alamat. Ini adalah alternatif yang baik untuk membangunkan UserForm apabila anda hanya perlu mendapatkan satu nilai.
Syntax InputBox
Berikut ialah versi mudah sintaks fungsi InputBox:
InputBox (prompt [title] [default])
Fungsi InputBox menerima hujah-hujah yang disenaraikan di sini.
| Argumen | Apa Yang Mempengaruhi |
|---|---|
| Prompt | Teks yang dipaparkan dalam kotak input |
| Tajuk | Teks yang dipaparkan dalam bar tajuk kotak input
pilihan) |
| Lalai | Nilai lalai untuk input pengguna (pilihan) |
Contoh InputBox
Berikut adalah pernyataan yang menunjukkan bagaimana anda boleh menggunakan fungsi InputBox:
TheName = InputBox ("Apa nama anda?", "Salam")
Apabila anda melaksanakan pernyataan VBA ini, Excel memaparkan kotak dialog ini. Perhatikan bahawa contoh ini hanya menggunakan dua hujah pertama dan tidak membekalkan nilai lalai. Apabila pengguna memasuki nilai dan klik OK, kod tersebut memberikan nilai kepada variable TheName.
Contoh berikut menggunakan hujah ketiga dan memberikan nilai lalai. Nilai lalai ialah nama pengguna yang disimpan oleh Excel (objek Aplikasi UserName objek).
Sub GetName () Dim TheName Sebagai String TheName = InputBox ("Apa nama anda?", _ "Salam", Aplikasi.NameName) Sub Akhir
InputBox selalu memaparkan butang Batal. Jika pengguna mengklik Batal, fungsi InputBox mengembalikan rentetan kosong.
Fungsi InputBox VBA sentiasa mengembalikan rentetan, jadi jika anda perlu mendapatkan nilai, kod anda perlu melakukan pemeriksaan tambahan. Contoh berikut menggunakan fungsi InputBox untuk mendapatkan nombor. Ia menggunakan fungsi IsNumeric untuk memeriksa sama ada rentetan adalah nombor. Sekiranya rentetan itu mengandungi nombor, semuanya baik-baik saja. Sekiranya entri pengguna tidak dapat ditafsirkan sebagai nombor, kod tersebut akan memaparkan kotak mesej.
Sub AddSheets () Dim Prompt Sebagai Keterangan Dimensi String Sebagai String Dim DefValue Sebagai Long Dim Dimheets Sebagai Prompt String = "Berapa banyak helai yang anda mahu tambah? "Caption =" Tell me … "DefValue = 1 NumSheets = InputBox (Prompt, Caption, DefValue) Jika NumSheets =" "Kemudian Keluar Sub & apos; Dibatalkan Jika IsNumeric (NumSheets) Lalu Jika NumSheets> 0 Then Sheets. Add Count: = NumSheets Else MsgBox "Number invalid" End If End Sub
Lihat kotak dialog yang dihasilkan oleh rutin ini.
Satu lagi jenis InputBox
Maklumat yang dibentangkan di sini digunakan untuk fungsi InputBox VBA. Microsoft seolah-olah suka kekeliruan, jadi anda juga mempunyai akses kepada kaedah InputBox , iaitu kaedah objek Aplikasi.
Satu kelebihan besar menggunakan kaedah InputBox Aplikasi adalah bahawa kod anda boleh meminta pemilihan pelbagai. Pengguna kemudian boleh memilih julat dalam lembaran kerja dengan menonjolkan sel-sel. Berikut adalah contoh cepat yang menggesa pengguna untuk memilih julat:
Sub GetRange () Dim Rng Sebagai Range On Error Resume Set Set Rng = Permohonan. InputBox _ (prompt: = "Nyatakan pelbagai:", Taip: = 8) Jika Rng Tidak Ada Kemudian Keluar Sub MsgBox "Anda memilih julat" & Rng. Alamat Sub Akhir
Ini adalah bagaimana ia kelihatan.
Dalam contoh mudah ini, kod tersebut memberitahu pengguna alamat julat yang dipilih. Dalam kehidupan sebenar, kod anda sebenarnya akan melakukan sesuatu yang berguna dengan julat yang dipilih. Satu perkara yang baik tentang contoh ini adalah bahawa Excel mengendalikan pengendalian ralat. Jika anda memasukkan sesuatu yang bukan julat, Excel memberitahu anda mengenainya dan membolehkan anda mencuba lagi.
Permohonan. Kaedah InputBox serupa dengan fungsi InputBox VBA, tetapi ia juga mempunyai beberapa perbezaan. Semak sistem Bantuan untuk butiran lengkap.
