Tutorial membuat Text Box pada Microsoft Office Excel

Hello gaes... pada blog yang kedua ini saya akan memberikan info tentang cara membuat text box di Microsoft Excel

PENGERTIAN TEXT BOX

Text Box adalah tulisan di dalam kotak di lembar kerja microsoft excel. Dan untuk fungsi dari text box itu sendiri, sering kali digunakan untuk memberikan keterangan di lembar kerja. kenapa?  karena dengan menggunakan fasilitas text box keterangan yang nantinya kita buat itu berbeda dengan isi yang ada di dalam lembar kerja. Dan tentu, tidak itu saja, dengan menggunakan fasilitas text box kita dapat mengubah warna background dari keterangan yang akan kita buat nantinya.

Nah.. berikut ini adalah langkah langkah membuat text box pada Microsoft Office Excel

Syarat mutlak yang harus dipenuhi untuk menjalankan trik sederhana ini adalah nama dari TextBox harus mengandung angka dan berurutan, akan lebih mudah jika angka ditulis di bagian belakang TextBox, contoh TextBox1 atau kotak1. Syarat lainnya adalah, data-data yang akan diambil dari lembar kerja juga harus diletakkan secara berurutan, contoh, data diletakkan di sel A1 hingga A5, dan seterusnya

 Untuk mengawali pembelajaran excel kali ini, saya sudah menyiapkan data-data yang ingin ditempatkan ke dalam kotak TextBox yang saya tulis di lembar kerja seperti berikut

Langkah berikutnya adalah mendesain sebuah UserForm yang di dalamnya berisi beberapa TextBox serta beberapa CommandButton untuk menjalankan beberapa perintah yang berbeda, yang kurang lebih tampilannya seperti berikut ini

Setelah bahan-bahannya selesai dibuat, kini saatnya kita merancang script kode VBA-nya untuk tiap-tiap CommandButton yang ada.

Ambil data (baris)

For a = 1 To 9
With UserForm1.Controls("TextBox" & a)
    .Value = Cells(a, 1)
    Cells(a, 10) = Controls("TextBox" & a)
End With
Next

Ambil data (kolom)

For a = 1 To 9
With UserForm1.Controls("TextBox" & a)
    .Value = Cells(1, a)
    Cells(a, 10) = Controls("TextBox" & a)
End With
Next

For a = 1 To 9
With UserForm1.Controls("TextBox" & a)
    .Value = ""
    Cells(a, 10).ClearContents
End With
Next

Catatan
Perbedaan kode antara Ambil data (baris)dengan Ambil data (kolom) terletak pada bagian .Value = Cells... (warna merah) dimana konsep penulisan kode Cells diawali dengan indeks baris kemudian dilanjutkan dengan indeks kolom.
Ketika kita menuliskan script kode Cells(a,1), maka ini berarti posisi barisnya akan berubah mengikuti nilai a, begitu pula sebaliknya.
Perhatikan hasil akhir berikut agar semakin memahami tutorial kali ini

Tugas TIK SPELANSKA dari Sekolah SMP NEGERI 9 SURAKARTA dengan panduan dariMas Anto