Re: ]] XL-mania [[ Bagaimana bikin program "Sule Prikitiew!"

 

Pak Eka, Mungkin bisa dicoba cara seperti ini: 1. Masukkan dulu file suaranya ke excel pilih insert - object pilih create from file lalu pilih filenya. 2. Setelah kedua file dimasukkan, supaya bisa otomatis setelah mengisi cell A1 ada suara masukkan kode di bawah ini (bisa dilihat di file contoh) Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'bunyi kalau habis ngisi A1 aja kalau ga ya ga bunyi If Selection.Row <> 2 Or Selection.Column <> 1 Then GoTo 10 'ambil no suara di cell A1 no_suara = Cells(1, 1).Value 'buat jaga-jaga kalau belum keisi cell A1nya On Error Resume Next 'bunyikan suaranya sesuai no suara Select Case no_suara     Case 1     ActiveSheet.Shapes("Object 1").Select     Selection.Verb Verb:=xlPrimary     Case 2     ActiveSheet.Shapes("Object 2").Select     Selection.Verb Verb:=xlPrimary End Select Cells(2, 1).Select 10 End Sub Semoga bermanfaat. --- On Wed, 3/24/10, Eka Subyantara <eka.subyantara@widyatama.ac.id> wrote: From: Eka Subyantara <eka.subyantara@widyatama.ac.id> Subject: ]] XL-mania [[ Bagaimana bikin program "Sule Prikitiew!" To: "XL-mania" <XL-mania@yahoogroups.com> Date: Wednesday, March 24, 2010, 12:27 AM   Tabik buat semua kawan dan penikmat XL-mania! Terlintas ide nakal buat mempercantik kerjaan kita di excel: Bagaimana caranya jika kita menulis angka 1 di sel A1 lalu terdengar suara "Awas ada SULEEE!" tapi bila yang ditulisnya angka 2 yang keluar adalah suara "Prikitiewwww!" Tentu saja kita sudah punya file MP3 ataupun WAV kedua kalimat di atas hasil tangkapan dari TV :) Nah, daku berharap keikhlasan para kawan-kawan untuk berbagi ... Yang lagi penasaran banget = eka =

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 78

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momods pecas ndaheeee... :( :( :(                                 | 
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___