CARA INPUT DATA KE INPUTBOX MELALUI EXCEL

Di dunia bisnis, data adalah segalanya. Setiap pengambilan keputusan yang dilakukan oleh perusahaan harus didasarkan pada data yang akurat dan terkini. Namun, kadangkala input data bisa menjadi suatu pekerjaan yang membosankan, terutama jika jumlahnya sangat banyak. Tapi jangan khawatir, ada beberapa cara untuk mengatasi hal itu, salah satunya adalah dengan menggunakan Excel dan formulir input data.

Cara Input Data Otomatis di Excel Menggunakan Form

Salah satu cara untuk melakukan input data otomatis di Excel adalah dengan menggunakan formulir input data. Caranya cukup mudah, berikut langkah-langkahnya:

1. Buka Microsoft Excel dan buatlah sebuah tabel
2. Klik Developer – Insert – Form
3. Isi Form dengan data yang ingin dimasukkan ke dalam tabel
4. Klik tombol “Add” untuk menambahkan data ke dalam tabel
5. Ulangi langkah 3-4 untuk menambahkan data lain

Cara Input Data Menggunakan Fungsi InputBox VBA Excel

Ada cara lain untuk melakukan input data di Excel, yaitu dengan menggunakan fungsi InputBox VBA Excel. Berikut langkah-langkahnya:

1. Buka Microsoft Excel dan buatlah sebuah tabel
2. Klik Developer – Visual Basic
3. Pilih Insert – Module untuk membuat sebuah module VBA
4. Tulis kode program berikut di dalam module tersebut:

Sub input_data()
  Dim data As String
  data = InputBox("Masukkan data:")
  Range("A1").Select
  If ActiveCell <> "" Then
    Selection.End(xlDown).Select
  End If
  ActiveCell.Offset(1, 0).Select
  ActiveCell.Value = data
  End Sub

5. Jalankan kode program tersebut dengan menekan tombol F5 atau dengan klik Run – Run Sub/UserForm
6. Akan muncul kotak dialog yang meminta Anda untuk memasukkan data. Masukkan data yang ingin dimasukkan ke dalam tabel dan klik OK
7. Ulangi langkah 5-6 untuk menambahkan data lain

Cara Menggunakan MsgBox dan InputBox VBA

Jika Anda ingin melengkapi input data dengan pesan yang menginstruksikan user, maka bisa menggunakan MsgBox dan InputBox VBA. Berikut contoh penggunaannya:

Sub input_data()
  Dim data As String
  data = InputBox("Masukkan data:")
  
  If data = "" Then
    MsgBox "Anda belum memasukkan data. Silakan coba lagi."
    Exit Sub
  End If
  
  Range("A1").Select
  If ActiveCell <> "" Then
    Selection.End(xlDown).Select
  End If
  ActiveCell.Offset(1, 0).Select
  ActiveCell.Value = data
  
  MsgBox "Data telah dimasukkan ke dalam tabel."
End Sub

FAQ

1. Apakah formulir input data di Excel hanya bisa digunakan untuk memasukkan satu data?

Tidak. Formulir input data di Excel bisa digunakan untuk memasukkan beberapa data sekaligus. Setelah mengisikan data pertama, cukup klik tombol “Add” untuk menambahkan data baru.

2. Apakah kode program VBA di Excel bisa digunakan secara universal atau hanya berlaku untuk satu file Excel saja?

Kode program VBA di Excel hanya berlaku untuk satu file Excel saja. Jika ingin menggunakan kode program yang sama di file Excel lain, maka harus meng-copy paste kode program tersebut ke dalam module baru di file Excel tersebut.

Video Tutorial: Cara Input Data Otomatis di Excel Menggunakan Form