Cara Menciptakan Input Box Di Vba Excel

[.] com - melaluiataubersamaini memakai Input Box, Anda sanggup meminta pengguna memasukkan nilai atau teks tertentu, penerapanya juga tidak terlalu susah, bahkan hampir menyerupai dengan penerapan Message Box.

Bentuk penulisan sintaksis InputBox adalah:

InputBox(Prompt, [Title], [Default], [XPos], [YPos], [HelpFile],[Context] As String

Penjelasan:
√ Prompt ialah pesan yang ingin ditampilkan pada Input Box. Panjang Maksimum hingga 1024 karakter.

√ Title ialah judul pada Input Box. Jika tidak di isi atau dibiarkan kosong maka nama aplikasi yang di jadikan judul pada Input Box.

√ Default ialah teks default yang ditampilkan pada Input Box.

√ XPos ialah posisi sumbu X yang mewakili jarak yang di konfirmasi dari sisi kiri layar horizontal. Jika tidak di isi atau dibiarkan kosong maka Input Box akan terpusat secara horizontal.

√ YPos adalah posisi sumbu Y yang mewakili jarak yang di konfirmasi dari sisi kiri layar vertikal. Jika tidak di isi atau dibiarkan kosong maka Input Box akan terpusat secara vertical.

√ HelpFile ialah ekspresi teks yang mengidentifikasi file help yang dipakai untuk mempersembahkan menolongan.

√ Context ialah ekspresi numerik yang mengidentifikasi nomor yang didiberikat oleh help.

Untuk lebih jelasnya perhatikan gambar diberikut ini:

misal-misal Penggunaan Input Box

Misalnya dengan memakai script vba sebagai diberikut:

Sub TesInputBox() Dim Nama As Variant Nama = InputBox("Masukkan Nama Anda", "Belajar VBA", "Fulan bin Fulan") MsgBox "Nama engkau adalah: " & Nama End Sub

atau sanggup juga di tulis menyerupai ini:

Sub TesInputBox() Dim Nama As Variant Nama = InputBox(Prompt:="Masukkan Nama Anda", _        Title:="Belajar VBA", _        Default:="Fulan bin Fulan") MsgBox "Nama engkau adalah: " & Nama End Sub

Ketika di Run Sub Hasilnya adalah:

Anda sanggup juga menambahkan baris gres di Prompt Inputnya, yakni dengan memakai salah satu instruksi untuk membuat baris gres yaitu vbCr, vbLf, vbCrLf atau vbNewLine.

contohnya adalalah:

Sub TesInputBox() Dim Nama As Variant Nama = InputBox("Masukkan Nama Anda" & vbCrLf & _        "Boleh Nama Depan atau Nama Belakang", _        "Belajar VBA", "Fulan bin Fulan") MsgBox "Nama engkau adalah: " & Nama End Sub

Hasilnya pada pesan prompt ada dua baris:

Sekian tutorial terkena Teknik Membuat Input Box di VBA Excel, Semoga Bermanfaat...