Kemudian klik dua kali button command dan tuliskan code berikut. Private Sub CmdKirim_Click() Dim NoWA As String Dim Pesan As String NoWA = Range("D4").Value Pesan = vbNewLine & "*WARUNG ARLEEO*" & Range("E4").Value ActiveWorkbook.FollowHyperlink Address:="https://api.whatsapp.com/send?phone=" + NoWA + "&text=" & Pesan End Sub untuk lebih jelas lihat gambar
Selasa, 27 Juli 2021
Kirim Whatsapp dari excel
Kirim pesan whatsapp dari excel dengan menggunakan scripts VBA sangat berguna ketika kita ingin mengirimkan laporan atau apapun yang diminta oleh rekan kerja atau atasan kita. nah karena kita saat ini harus dan mau tidak mau menggunakan dan memanfatkan teknologi apalagi saat ini karyawan ataupun perusahaan dipaksa berubah dari yang manual menuju dan harus otomasi memanfaatkna teknologi 4.0. ok cukup orasinya. saatnya kita mulai tutorialnya.
tutoral ini sangat sederhana dengan beberapa baris kode saja untuk itu jika kalian perlu mengembangkannya menjadi lebih edvance silakan. :)
first of all kita buat sebuah tabel yang terdapat kolom header dan isi buat saja seperti gambar dan satu buah tombol button command yang di ambil dari menu developer lalu command button. untuk lebih jelasnya lihat gambar
sekarang klik pilih menu design mode lihat gambar
Kemudian klik dua kali button command dan tuliskan code berikut. Private Sub CmdKirim_Click() Dim NoWA As String Dim Pesan As String NoWA = Range("D4").Value Pesan = vbNewLine & "*WARUNG ARLEEO*" & Range("E4").Value ActiveWorkbook.FollowHyperlink Address:="https://api.whatsapp.com/send?phone=" + NoWA + "&text=" & Pesan End Sub untuk lebih jelas lihat gambar
sekarang disable mode design dengan cara klik design mode jika sudah sekarang coba untuk kirim pesan dengan mengklik tombol kirim
selesai dan jika kurang jelas silakan kunjungi youtube saya di link youtube atau www.youtube.com/c/leomjb semoga bermanfaat
Kemudian klik dua kali button command dan tuliskan code berikut. Private Sub CmdKirim_Click() Dim NoWA As String Dim Pesan As String NoWA = Range("D4").Value Pesan = vbNewLine & "*WARUNG ARLEEO*" & Range("E4").Value ActiveWorkbook.FollowHyperlink Address:="https://api.whatsapp.com/send?phone=" + NoWA + "&text=" & Pesan End Sub untuk lebih jelas lihat gambar
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar