Friday, August 11, 2017

Cara Membuat Excel Berbicara

"Kalau bulan bisa ngomong" itu sich "Kalau". 'Kalau Excel bisa ngomong" itu "Mungkin". Ya..!! Excel dapat diperintahkan dengan kode Vba agar bisa mengeluarkan suara dengan kata-kata yang tertanam dalam baris kode Vba Excel atau suara berdasarkan karakter yang ditulis pada cell tertentu. Perintah Vba yang digunakan Application.Speech.Speak.


Yuks kita buktikan sama-sama cara membuat Excel bisa mengeluarkan suara seolah-olah berbicara. 

Langkah-langkah Cara Membuat Excel Berbicara :
  • Buka Excel dan save dengan format xlsm atau xlsb
  • Selanjutnya kita akan memasukkan CommandButton yang akan kita isi kode perintah untuk mengeluarkan suara. Klik tab Developer pilih Insert yang terdapat pada group menu Insert klik pada CommandButton yang terdapat pada ActiveX Controls. Tambahkan CommandButton sebanyak 4 buah.
  • Ubah setiap caption. Klik kanan CommandButton1 ubah caption menjadi Talk 1 dan begitu juga untuk CommandButton lainnya menjadi Talk 2, Talk 3 dan Talk 4.
  • Masukkan kode berikut ini pada CommandButton1 dengan caption Talk 1. Klik kanan CommandButton1 pilih View Code.

Private Sub CommandButton1_Click()
Application.Speech.Speak "Thinking And Action"
End Sub

  • Masukkan kode berikut ini pada CommandButton2 dengan caption Talk 2. Klik kanan CommandButton2 pilih View Code.

Private Sub CommandButton2_Click()
Application.Speech.Speak "Excel is talking to me"
MsgBox "test"
End Sub

  • Masukkan kode berikut ini pada CommandButton3 dengan caption Talk 3. Klik kanan CommandButton3 pilih View Code.

Private Sub CommandButton3_Click()
Application.Speech.Speak "WellCome To Senbakusen.com", SpeakAsync:=True
MsgBox "test"
End Sub

  • Masukkan kode berikut ini pada CommandButton4 dengan caption Talk 4. Klik kanan CommandButton4 pilih View Code.

Private Sub CommandButton4_Click()
Application.Speech.Speak "Thinking And Action", SpeakAsync:=True
Application.Wait (Now + TimeValue("00:00:03"))
Application.Speech.Speak "senbakusen.com!", SpeakAsync:=True, Purge:=True
End Sub

  • klik modul dan masukkan kode dibawah ini.  Kode tersebut  berfungsi untuk mengatakan isi yang ditulis pada cell dengan memberikan perintah seperti yang terlihat pada gambar dibawah

Function Katakan(cell1 As Variant, Optional bAsync As Boolean, Optional bPurge As Boolean)
Application.Speech.Speak (cell1), bAsync, , bPurge
Katakan = "Speaking"
End Function





Silahkan dicoba setiap kode yang telah Admin paparkan diatas. Demikian posting Cara Membuat Excel Berbicara. Semoga menjadi referensi bagi yang mencari informasi.  Bila anda memiliki pengalaman lain atau ingin menyampaikan kritikan, saran dan pertanyaan silahkan share di kolom komentar. 

Nama Admin Zaki Fitriadi, Pengangguran, Blogger Awam Kelahiran Banda Aceh 1982, Mengenal Blog Tahun 2010, Baru Aktif Tahun 2015, Berbagi Apa Yang Dipejari Secara Otodidak di Dunia Maya

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon