BERMAIN DENGAN CONTROL TEXTBOX (2) [MACRO VBA EXCEL TUTORIAL SERIES] – Belajar Microsoft Excel : Tips, Tricks & Tutorial

BERMAIN DENGAN CONTROL TEXTBOX (2) [MACRO VBA EXCEL TUTORIAL SERIES]

VBA microsoft visual basic for application excel

Assalamualaikum Warohmatullahi Wabarokatuh

Sodara2 sekaliYan para pembatja jang boediman … melanjutkan artikel sebelOmnya tentang bermaEn2 dengan Control TextBox yang bisa sOdara disini … telah dibahas dalam artikel tersebOt tentang cara mencari nilai sebuah Control TextBox yang diambil dari properti Value dan Text …. selanjOtnya dalam artikel ini akan dibahas tentang cara menghubungkan Control TextBox dengan Cell Worksheet Excel  yang meliputi :

  • Memasukkan/mengambil nilai Cell Worksheet Excel ke Control TextBox
  • Memasukkan nilai Control TextBox ke Cell Worksheet Excel

SebelOm lanjOt silahkan sOdara bukan lagi file contoh yang sudah sOdara download  … kalO belOm silahkan download di Folder 2017 >> 07JUL 

B. Memasukkan/mengambil nilai Cell ke TextBox

dalam file contoh tersebut TextBox1 akan dihubungkan dengan Cell A2 …. untuk Memasukkan/mengambil nilai Cell ke TextBox kita bisa manpaatkan properti “Value” … pakai properti  “Text” jugaK boleh asalkan sesuai kebutuhan … silahkan baca artikel sebelumnya disini untuk mengetahui perbedaannya

sebuah Cell Worksheet Excel bisa sOdara ekspresikan dengan beberapa sintaks …. contoh untuk Cell A2 bisa  sOdara gunakan alternatip berikut ini :

  • Cells(2,1).Value
  • Cells(2,"A").Value
  • Range("A2").Value
  • [A2].Value

Karena dalam satu Workbook Excel sOdara bisa mempunyai beberapa Sheet … dimana pada masing2 Sheet tersebut terdapat Cell A2 …. contoh Sheet1!A2, Sheet2!A2, Sheet3!A2 dst … maka agar tidak terjadi salah alamat jika diperlukan kita bisa menuliskan alamat Cell A2 yang kita maksud secara lengkap …. dalam file contoh Cell A2 yang kita maksud ada pada Sheet1 sehingga alamat lengkapnya bisa kita tulis dengan beberapa alternatip :

  • Workbooks("TextBox.xlsm").Sheets("Sheet1").Range("A2")
  • ThisWorkbook.Sheets("Sheet1").Range("A2")
  • Workbooks("TextBox.xlsm").Sheets("Sheet1").Cells(2,1)
  • dsb

seperti yang bisa sOdara lihat pada gambar UserForm diatas … ada beberapa contoh tombol yang bisa sOdara gunakan untuk mengambil nilai Cell A2 dan memasukkannya sebagai nilai TextBox1 … Tombol tersebut adalah Command Button B1 (kuning) , Command Button B2 (idjo) , Command Button B3 (ungu) dan Command Button B4 (biru) … adapun kode untuk masing2 Command Button tersebut sebagai beriKot

dari kode2 diatas bisa kita lihat beberapa variasi sintaks yang bisa kita pakE untuk mengambil nilai Cell A2 dan memasukkannya sebagai nilai TextBox1 yaitu :

  • TextBox1.Value = Cells(2,1).Value
  • TextBox1.Value = Cells(2,"A").Value
  • TextBox1.Value = Range("A2").Value
  • TextBox1.Value = [A2].Value

silahkan pilih sesuai selera sOdara2 sekaliYan 😉

C. Memasukkan nilai TextBox ke Cell

untuk memasukkan nilai TextBox ke Cell ndak perlu dijelaskan secara luas (panjang kali lebar) 🙂  😆  😉  … saya yakin kalO sOdara sudah baca dan paham penjelasan cara memasukkan/mengambil nilai Cell ke TextBox diatas … sOdara akan langsung bisa membuat kode VBA untuk  memasukkan nilai TextBox ke Cell wong kodenya cuman dibalik

yang tadinya untuk memasukkan/mengambil nilai Cell A2 ke TextBox1 mengunakan kode ini

TextBox1.Value = Cells(2,1).Value

maka untuk menjadi memasukkan nilai TextBox1 ke Cell A2 kodenya tinggal dibalik

Cells(2,1).Value = TextBox1.Value

berikut adalah kode selengkapnya Command Button C1 sampai Command Button C4

demikiyanlah sOdara2 sekaliYan artikel tentang cara memasukkan/mengambil nilai Cell Worksheet Excel ke Control TextBox …. dan sebaliknya cara memasukkan nilai Control TextBox ke Cell Worksheet Excel … yang merupakan kelanjutan dari artikel Mengambil nilai TextBox yang sudah publish sebelumnya

file contoh TexyBox.xlsm bisa sodara download dari folder 2017 >> 08JUL …  artikel selanjutnya tentang Control TextBox  akan dibahas tentang cara memberikan Validasi Data yang berupa angka pada Control TextBox yang bisa sOdara baca dengan klik disini

sekiYan semoga manpaat dan MDLMDL 😉

 

bingung cara downloadnya ??

Baca aja halaman download dengan klik icon di samping

feed , email and my social media

4 Comments

Jika sOdara menemukan sesuatu yang bermanpaat di marih .... silahkan kasih komennya