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.



Cara Membuat Excel Berbicara

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 tentang cara membuat excel berbicara.

Bila anda memiliki pengalaman lain atau ingin menyampaikan kritikan, saran dan pertanyaan silahkan share di kolom komentar.

Jika artikel ini dirasakan bermanfaat dan bisa menambah wawasan anda di bidang excel mohon dapat dishare ke media sosial agar teman-teman yang lain juga mengetahuinya.


Berlangganan update artikel terbaru via email:

4 Responses to "Cara Membuat Excel Berbicara"

  1. Replies
    1. Iyeah Oom... Maklum Otodidak Menulis...!! Maaf Oom..

      Delete
  2. bagaimana cara membuat kode aktivasi bebeda jika aplikasi dipakai di komputer lain .Mohon Tutorialnya dan kode macronya

    ReplyDelete
    Replies
    1. Untuk aktifasi berbeda Komputer.. Admin lagi pelajari... Lom bisa bikin artikel Masalah Konci Mengonci...
      Namun Menurut Admin untuk sementara bisa dikunci dengan Expired/Masa Trial Aplikasi VBA Excel Dengan Jumlah Buka Berikut linknya : http://www.senbakusen.com/2016/06/expiredmasa-trial-aplikasi-vba-excel.html

      Semoga membantu

      Delete

Komentar Anda Sangat Menentukan Kelangsungan Blog ini

Iklan Atas Artikel

Iklan Tengah Artikel 2

Iklan Bawah Artikel