Putar Suara Di Excel - Tip Excel

Dan dari Wauconda mengajukan pertanyaan tentang Excel minggu ini.

Saya memiliki lembar kerja Excel yang menghitung nilai. Jika nilai sel> 100 saya membutuhkan file midi untuk diputar.
Memutar File Suara

Tip ini memanfaatkan event handler yang didiskusikan di sini pada tanggal 23 Desember. Jika Anda tidak terbiasa dengan event handler, harap tinjau tip itu terlebih dahulu.

Langkah pertama adalah menempelkan salinan file MIDI ke tempat yang tidak terlihat di lembar kerja Anda.

  • Buka pemutar media WIN95. Program> Aksesoris> Multimedia
  • Buka file midi yang dipilih di pemutar media.
  • Di pemutar media, Pilih Edit, lalu Salin objek.
  • Di Excel, temukan lokasi terpencil. Dalam contoh ini, saya memilih Sheet1 Cell Z99. Klik di sini lalu tekan Edit> Tempel
  • Lihat kotak nama di Excel. Di kotak nama, itu akan memberi nama file midi. Punyaku disebut Objek 1.

Makro VBA untuk memutar file midi itu adalah:

Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End Sub

Bergantung pada apakah Anda memiliki Excel 97 atau Excel 95 / 7.0, Anda akan menggunakan pengendali kejadian yang sesuai untuk menjalankan kode di atas. Berikut adalah contoh untuk Excel 97. Asumsikan jika nilai baru dimasukkan di sel A1, Anda ingin memeriksa apakah sel terhitung di A2> 100. Pengatur kejadian adalah sebagai berikut:

Buka Editor Visual Basic. Di jendela kiri, klik kanan Sheet1 dan pilih View Code. Di bagian atas kotak dialog Book1 - Sheet1 Code, ada dua dropdown. Dari dropdown kiri pilih Worksheet. Dari tarik-turun kanan, pilih Ubah. Masukkan baris kode berikut:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then If Range("A2")> 100 Then ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End If End If End Sub

Artikel yang menarik...