Репродукујте звук у програму Екцел - Екцел Савети

Преглед садржаја

Дан из Вауцонде поставио је овонедељно Екцел питање.

Имам Екцел радни лист који израчунава вредност. Ако је вредност ћелије> 100, треба ми миди датотека за репродукцију.
Репродукција звучне датотеке

Овај савет користи руковаоце догађајима о којима је овде било речи 23. децембра. Ако нисте упознати са водитељима догађаја, прво прегледајте тај савет.

Први корак је да налепите копију МИДИ датотеке у место на вашем радном листу.

  • Отворите ВИН95 медиа плејер. Програми> Додатна опрема> Мултимедија
  • Отворите изабрану миди датотеку у медиа плејеру.
  • У програму за репродукцију медија изаберите Уреди, а затим Копирај објекат.
  • У програму Екцел пронађите локацију која се не налази на путу. У овом примеру бирам Схеет1 Целл З99. Кликните овде, а затим притисните Едит> Пасте
  • Погледајте оквир са именом у програму Екцел. У пољу са именом дато ће миди датотеци име. Моја се зове Објекат 1.

ВБА макро за репродукцију те миди датотеке је:

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

У зависности од тога да ли имате Екцел 97 или Екцел 95 / 7.0, користили бисте одговарајући руковатељ догађајима за позивање горњег кода. Ево примера за Екцел 97. Претпоставимо ако се у ћелију А1 унесе нова вредност, желите да проверите да ли је израчуната ћелија у А2> 100. Обрађивач догађаја је следећи:

Отворите Висуал Басиц Едитор. У левом прозору кликните десним тастером миша Схеет1 и изаберите Виев Цоде. На врху дијалошког оквира Боок1 - Схеет1 Цоде налазе се два падајућа менија. У левом падајућем менију изаберите Радни лист. Са десног падајућег менија изаберите Промени. Унесите следеће редове кода:

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

Занимљиви Чланци...