300x250 AD TOP

Selasa, 13 Mei 2014

Tagged under:

Memanggil Message Box pada Cell Excel

Program VBA - Pada posting sebelumnya saya sudah memberikan pengenalan pada topik Sepintas mengenal VBA, pada kesempatan kali ini saya akan memberikan tutorial / pembelajaran step by step awal dalam menggunakan VBA tentu dengan koding-koding sederhana.


Ok langsung saja kita mulai, yang yang perlu disiapkan dalam koding VBA adalah :

  1. Harus pakai komputer / laptop ( sudah jelas itu pasti ) 
  2. Harus dinyalakan dahulu komputer / laptopnya ( itu juga pasti ) 
  3. Komputer sudah terinstal Ms.Office.
TARA... KALAU SEMUA SUDAH SIAP, maka selanjutnya apa ?


Klik show untuk melihat
Ngopi atau nge-teh dulu yuk... sambil makan cemilan.


  • Buka Ms.Excel teman-teman.
  • Tulis Namaku di cell "B3", ISinya di Kotak "C3" & Buatlah Tombol dengan Shape tulis "Check", tepatnya seperti gambar dibawah ini...

  • Lalu pada shape check Klik Kanan, pilih Assign Macro.
  • Lalu pilih New
  • Maka akan tampil, tampilan bentuk kode seperti berikut ini.

Okays, sedikit pengenalan, disinilah kita akan membuat kode apabila shape yang kita buat di klik... ^_^
Masukan kode ini di tengah-tengah kode diatas hingga seperti kode dibawah ini...

-----------------------------------------------------------------------------------------------
Sub RoundedRectangle1_Click()
'Messagebox akan memunculkan pesan sesuai yang ada di area sel C3
MsgBox (Range("C3").Value)
End Sub
-----------------------------------------------------------------------------------------------

Jika sudah maka bisa dibuka lembar kerja Excel-nya kembali dengan cara meng-hidden lembar kerja editor VBA-nya atau menutupnya dengan tombol silang (x) pada lembar kerja editor vba.

Lalu coba klik shape yang sudah dimasukan kode-nya pada lembar kerja VBA, maka akan tampil seperti berikut ini....


Cukup mudah bukan teman - teman... sekarang teman-teman dapat men-save VBA dengan Save Type "Excel Macro Enabled Workbook". ( Andy Ajhis R )


0 komentar:

Posting Komentar