Mainkan Suara Dalam Excel - Petua Excel

Dan dari Wauconda mengemukakan soalan Excel minggu ini.

Saya mempunyai lembaran kerja Excel yang mengira nilai. Sekiranya nilai sel> 100 saya memerlukan fail midi untuk dimainkan.
Memainkan Fail Bunyi

Petua ini memanfaatkan pengendali acara yang dibincangkan di sini pada 23 Disember. Sekiranya anda tidak biasa dengan pengendali acara, sila baca petua itu terlebih dahulu.

Langkah pertama adalah menampal salinan fail MIDI ke tempat yang tidak sesuai di lembaran kerja anda.

  • Buka pemain media WIN95. Program> Aksesori> Multimedia
  • Buka fail midi yang dipilih di media player.
  • Di pemain media, Pilih Edit, kemudian Salin objek.
  • Di Excel, cari lokasi yang tidak sesuai. Dalam contoh ini, saya memilih Sheet1 Cell Z99. Klik di sini dan tekan Edit> Tampal
  • Lihat kotak nama di Excel. Di kotak nama, ia akan memberikan nama fail midi. Tambang dipanggil Objek 1.

Makro VBA untuk memainkan fail midi adalah:

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

Bergantung pada jika anda mempunyai Excel 97 atau Excel 95 / 7.0, anda akan menggunakan pengendali acara yang sesuai untuk menggunakan kod di atas. Berikut adalah contoh untuk Excel 97. Andaikan jika nilai baru dimasukkan dalam sel A1, anda ingin memeriksa sama ada sel yang dikira di A2 adalah> 100. Pengendali acara adalah seperti berikut:

Buka Editor Visual Basic. Di tetingkap kiri, klik kanan Lembaran1 dan pilih Lihat Kod. Di bahagian atas kotak dialog Book1 - Sheet1 Code, terdapat dua dropdown. Dari menu lungsur kiri pilih Lembaran Kerja. Dari menu lungsur kanan, pilih Tukar. Masukkan baris kod 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 menarik...