Репродуковање звучних белешки помоћу ВБА у програму Мицрософт Екцел

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

У Екцел -има 5 и 95 могуће је приложити белешке ћелији помоћу звучне датотеке.
Овај звучни запис се може репродуковати отварањем дијалога за уређивање бележака ћелије.
Доњи макро такође може да вам репродукује звучну белешку причвршћену за ћелију:

Суб ПлаиСоундНотесИнЕкцел95 (ЦеллАддресс Ас Стринг) 'само за Екцел 5 и 95 ако није апликација.ЦанПлаиСоундс Затим изађите са Суб Он Еррор Ресуме Нект' у случају да нема опсега звучне белешке (ЦеллАддресс).

Екцел 97 или новија верзија више не подржава употребу звучних белешки.
Са доле наведеним макроима могуће је направити решење за постизање истог ефекта:

Јавно објави функцију сндПлаиСоунд Либ "винмм.длл" _ Алиас "сндПлаиСоундА" (БиВал лпсзСоундНаме Ас Стринг, _ БиВал уФлагс Ас Лонг) Ас Лонг Суб ПлаиВавФиле (ВавФилеНаме Ас Стринг, Ваит Ас Боолеан) Иф Дир (ВавФилеНа тхен) Суб 'нема датотеке за репродукцију Ако чекате онда' репродукујте звук пре него што покренете било који други код сндПлаиСоунд ВавФилеНаме, 0 Иначе 'репродукујте звук док је код покренут сндПлаиСоунд ВавФилеНаме, 1 Енд Иф Енд Суб Суб ПлаиСоундНотесИнЕкцел97 (ЦеллАддресс Ас Стринг)' заобилазно решење за репродукцију звучних белешки у програму Екцел 97 или новијим Дим СоундФилеНаме Ас Стринг СоундФилеНаме = "" Он Еррор Ресуме Нект 'долази до грешке ако ћелија нема белешку СоундФилеНаме = Ранге (ЦеллАддресс) .Цоммент.Тект Он Еррор ГоТо 0 Иф СоундФилеНаме = "" Затим Изађи из под-белешке без ћелије Ако је ИнСтр (1, СоундФилеНаме, Цхр (10))> 0 Затим „белешка садржи прелом редова“ користите први ред као назив датотеке СоундФилеНаме = Лефт (СоундФилеНаме, ИнСтр (1, СоундФилеНаме, Цхр (10)) - 1) Енд Иф ПлаиФилеВав СоундФилеНаме, Фалсе Енд Суб

Како да направите звучну белешку:
Уметните коментар у ћелију тако што ћете кликнути десним тастером миша у ћелију и изабрати Уметни коментар ….
Попуните комплетно име датотеке и путању до звучне датотеке која ће се репродуковати у првој реченици у коментару ћелије,
на пример. Ц: \ Име фасцикле \ Име звучне датотеке.вав.
Ако желите додати звучну поруку поред назива звучне датотеке, притисните тастер ЕНТЕР иза назива датотеке
да бисте створили нову реченицу у коментару. Додајте текст који желите новој реченици.
Макро ПлаиСоундНотесИнЕкцел97 може се активирати евентмацро Ворксхеет_СелецтионЦханге (),
ово ће активирати звучни запис сваки пут када корисник активира ћелију звучним напоменама.

Ви ће помоћи развој сајта, дељење страницу са пријатељима

wave wave wave wave wave