Bagaimana Menambahkan Kotak Dialog ke Makro Excel dengan Editor Visual Basic - dummies

Anda dapat menggunakan fungsi InputBox untuk menambahkan kotak dialog ke makro Excel 2013 Anda. Saat Anda menjalankan makro, fungsi Visual Basic ini menyebabkan Excel menampilkan kotak dialog Input di mana Anda dapat memasukkan judul apa pun yang masuk akal untuk lembar kerja baru. Makro kemudian memasukkan teks itu ke dalam sel saat ini dan memformat teks ini, jika itu yang Anda latih untuk dilakukan makro Anda berikutnya.

Untuk melihat betapa mudahnya menggunakan fungsi InputBox untuk menambahkan interaktivitas ke makro yang dinyatakan tenang, ikuti langkah-langkah untuk mengubah makro Company_Name yang saat ini memasukkan teks "Mind Over Media" ke salah satu yang benar-benar meminta Anda untuk mendapatkan namanya. yang ingin kamu masuk Fungsi InputBox menggunakan sintaks berikut:

Dalam fungsi ini, hanya

prompt > argumen diperlukan dengan sisa argumen yang bersifat opsional. Argumen prompt menentukan pesan yang muncul di dalam kotak dialog Input, mendorong pengguna untuk memasukkan nilai baru (atau dalam kasus ini, nama perusahaan yang baru). Argumen prompt

bisa sampai maksimal 1, 024 karakter. Jika Anda ingin pesan prompt muncul pada baris yang berbeda di dalam kotak dialog, Anda akan memasukkan fungsi Chr (13) dan Chr (10) ke dalam teks (untuk memasukkan carriage return dan linefeed dalam pesan, masing-masing).

Argumen opsional

judul

menentukan teks apa yang akan ditampilkan di bilah judul kotak dialog Input. Jika Anda tidak menentukan argumen title , Excel akan menampilkan nama aplikasi pada bilah judul. Argumen opsional default menentukan respons default yang muncul secara otomatis di kotak teks di bagian bawah kotak dialog Input. Jika Anda tidak menentukan argumen default, kotak teks kosong dalam kotak dialog Input.

Argumen opsional

helpfile

dan tentukan nama file Bantuan khusus yang Anda buat tersedia bagi pengguna untuk menjelaskan cara kerja kotak dialog Masukan serta jenisnya. dari data yang diterimanya. Sebagai bagian dari proses pembuatan file bantuan khusus untuk digunakan dalam sistem Bantuan Excel, Anda menetapkan topik ini sebuah nomor konteks yang sesuai dengan isinya, yang kemudian ditetapkan sebagai argumen konteks

untuk Fungsi InputBox. Bila Anda menentukan argumen bantuan dan argumen konteks untuk fungsi ini, Excel menambahkan tombol Bantuan ke kotak dialog Input khusus yang dapat diklik pengguna untuk mengakses file bantuan khusus di jendela Bantuan. Sebelum Anda dapat menambahkan baris kode ke makro dengan fungsi InputBox, Anda perlu menemukan tempat itu dalam perintah Visual Basic di mana jalurnya harus pergi. Untuk memasukkan teks Mind Over Media ke dalam sel aktif, makro Company_Name menggunakan perintah Visual Basic berikut ini: ActiveCell. FormulaR1C1 = "Mind Over Media"

Untuk menambahkan interaktivitas ke makro, Anda perlu memasukkan fungsi InputBox pada sebuah baris di jendela Kode tepat di atas ActiveCell ini. Pernyataan FormulaR1C1, sebagai berikut: Posisikan titik penyisipan pada jendela Kode pada awal ActiveCell. Pernyataan FormulaR1C1 dan tekan Enter untuk memasukkan baris baru. Sekarang setelah menambahkan baris baru, Anda perlu memindahkan titik penyisipan ke sana.

Tekan tombol panah atas untuk menempatkan titik penyisipan di awal baris baru. Pada baris ini, Anda ingin membuat variabel yang memasok argumen prompt

ke fungsi InputBox. Untuk melakukan ini, Anda menyebutkan nama variabel (InputMsg dalam kasus ini) diikuti oleh entri saat ini. Pastikan untuk melampirkan teks pesan di sisi kanan tanda sama dengan tanda kutip ganda.

Ketik kode berikut untuk membuat variabel InputMsg pada baris 8 dan kemudian tekan tombol Enter untuk memulai baris baru 9:

InputMsg = "Masukkan nama perusahaan atau judul untuk worksheet ini di kotak teks di bawah ini dan kemudian klik OK: "

Selanjutnya, Anda membuat sebuah variabel bernama InputTitle yang memasok argumen

judul
opsional untuk fungsi InputBox. Variabel ini membuat teks "Spreadsheet Title" muncul sebagai judul kotak dialog Input. Sekali lagi, pastikan untuk menyertakan nama untuk bilah judul kotak dialog dalam tanda petik.

Ketik kode berikut untuk membuat variabel InputTitle pada baris 9 dan kemudian tekan Enter untuk memasukkan baris baru 10: InputTitle = "Judul Spreadsheet" Selanjutnya, Anda membuat nama variabel DefaultText yang memasok pilihan
default
```
argumen ke fungsi InputBox. Variabel ini membuat teks, "Mind Over Media", muncul sebagai entri default pada kotak teks di bagian bawah kotak dialog Input Nama Perusahaan.
```
Ketik kode berikut untuk membuat variabel DefaultText pada baris 10 dan kemudian tekan Enter untuk memasukkan baris baru 11: DefaultText = "Mind Over Media" Selanjutnya, Anda membuat variabel akhir bernama CompanyName yang menentukan fungsi InputBox sebagai entri (menggunakan variabel InputMsg, InputTitle, dan DefaultText yang baru saja Anda buat) dan menyimpan hasil fungsi ini.
Ketik kode berikut untuk membuat variabel SpreadsheetTitle yang menggunakan fungsi InputBox pada baris 11:
```
SpreadsheetTitle = InputBox (InputMsg, InputTitle, DefaultText)
```
Akhirnya, Anda mengganti nilainya, "Mind Over Media" di ActiveCellProperti FormulaR1C1 dengan variabel SpreadsheetTitle (yang nilainya ditentukan oleh apa pun yang dimasukkan ke dalam kotak dialog Input Spreadsheet Title), sehingga secara efektif mengganti konstanta ini dalam makro dengan sarana untuk membuat masukan ini benar-benar interaktif. Pilih "Mind Over Media" pada baris 12 dan ganti dengan SpreadsheetTitle (tanpa tanda petik). Simpan makro yang telah diedit dengan mengklik tombol Save pada toolbar Visual Basic dan kemudian kembali ke worksheet dengan mengklik tombol View Microsoft Excel atau menekan Alt + F11. Kemudian, klik tombol Sembunyikan di grup Window pada tab VIEW.
Sekarang, Anda siap untuk membuka buku kerja baru dan menjalankan makro yang diedit dengan menekan Ctrl + N.
```
Angka tersebut menunjukkan jendela Kode dengan makro Company_Name yang diedit setelah menambahkan pernyataan yang membuatnya interaktif.
```
Gambar berikut menunjukkan kotak dialog Judul Spreadsheet yang sedang berlangsung di lembar kerja. Kotak dialog masukan ini sekarang otomatis muncul dan meminta masukan Anda kapan pun Anda menjalankan versi makro perusahaan_edit yang diedit dan sekarang sepenuhnya interaktif.
Untuk terus maju dan memasuki Mind Over Media ke dalam sel saat ini dan kemudian memformatnya dengan menggunakan sisa perintah makro, Anda tinggal klik OK di kotak dialog kustom ini. Untuk memasukkan dan memformat nama perusahaan lain, Anda cukup mengetikkan nama perusahaan (yang secara otomatis mengganti Mind Over Media di kotak teks) sebelum Anda mengklik OK.