Відтворення звуку в Excel - Поради Excel

Ден з Вауконди поставив запитання Excel цього тижня.

У мене є аркуш Excel, який обчислює значення. Якщо значення комірки> 100, мені потрібно відтворити файл midi.
Відтворення звукового файлу

Ця порада використовує обробники подій, обговорені тут 23 грудня. Якщо ви не знайомі з обробниками подій, спочатку перегляньте цю підказку.

Перший крок - це вставити копію файлу MIDI у місце, яке не стоїть на шляху до вашого робочого аркуша.

  • Відкрийте медіаплеєр WIN95. Програми> Аксесуари> Мультимедіа
  • Відкрийте вибраний файл midi у медіаплеєрі.
  • У медіаплеєрі виберіть Редагувати, а потім Копіювати об’єкт.
  • У програмі Excel знайдіть місце, яке не стосується дороги. У цьому прикладі я вибираю Sheet1 Cell Z99. Клацніть тут, а потім натисніть Редагувати> Вставити
  • Подивіться на поле з іменами в Excel. У полі імені файлу midi буде вказано ім'я. Шахта називається Об’єктом 1.

Макрос VBA для відтворення цього файлу midi:

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

Залежно від того, чи є у вас Excel 97 або Excel 95 / 7.0, ви використовуєте відповідний обробник подій для виклику наведеного вище коду. Ось приклад для Excel 97. Припустімо, якщо в комірку А1 введено нове значення, ви хочете перевірити, чи обчислювана комірка в А2> 100. Обробник подій такий:

Відкрийте редактор Visual Basic. У лівому вікні клацніть правою кнопкою миші Аркуш1 і виберіть Переглянути код. У верхній частині діалогового вікна Book1 - Sheet1 Code є два спадні меню. У спадному меню ліворуч виберіть Робочий аркуш. У правому спадному меню виберіть Змінити. Введіть наступні рядки коду:

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

Цікаві статті...