Goedemiddag experts,
Ik heb een excel met ongeveer 110 rijen data
Aan elke rij wil ik een 5 tal knoppen toevoegen, elk in een eigen kolom (play 1-5), die zonder een audio player te openen elk een andere audio file afspelen (.wav bestand)
De locatie van het .wav bestand zal ik middels Matlab, waarmee ik de audio bestanden opneem, in een eigen tabblad en cel wegschrijven
Ik heb het nu voor elkaar dat ik middels een knop een .wav bestand met een pad uit een cel kan afspelen, zie voorbeeld
in module 1 heb ik de functie gemaakt om .wav bestanden mee af te spelen:
Vervolgens wordt die aangeroepen door de knop met als pad de waarde in cel B3 op blad Audio Links:
Ik heb voor dezelfde rij nog 2 knoppen gemaakt, die naar C3 en D3 verwijzen
Dat gaat allemaal prima!
Nu wil ik echter voor de 100 rijen eronder dezelfde 3 knoppen per rij maken, steeds verwijzend naar dezelfde kolommen op blad Audio Links als de drie bestaande knoppen
Het liefst zou ik hiervoor ook de verwijzing naar het pad relatief maken, dus ipv (Worksheets("Audio Links").Cells(3, "b").Value) zou ik liever niet die 3 van rij 3 gebruiken maar bijvoorbeeld deze rij of =VERT.ZOEKEN([@[Rij Nr]];Tabel2[#Alles];2;ONWAAR)
Dan kan de functie van de knoppen voor elke kolom voor elke rij hetzelfde zijn en hoeft de knop enkel nog gekopieerd te worden
Volgens mij kan dit niet zo makkelijk omdat een knop niet in een cel zit, maar corrigeer me als ik het fout heb
Ik hoop dat het zo duidelijk is
Alvast hartelijk dank voor het meedenken!
ps, je zal niets horen tenzij je een map C:\Test hebt met Alarm01.wav tot en met Alarm09.wav
sorry, ik kon geen voorbeeld maken die verwijst naar geluiden die iedereen heeft (geen idee waar die staan namelijk)
Verander gerust de verwijzingen naar geluiden die jij wel hebt om het te kunnen testen
Ik heb een excel met ongeveer 110 rijen data
Aan elke rij wil ik een 5 tal knoppen toevoegen, elk in een eigen kolom (play 1-5), die zonder een audio player te openen elk een andere audio file afspelen (.wav bestand)
De locatie van het .wav bestand zal ik middels Matlab, waarmee ik de audio bestanden opneem, in een eigen tabblad en cel wegschrijven
Ik heb het nu voor elkaar dat ik middels een knop een .wav bestand met een pad uit een cel kan afspelen, zie voorbeeld
in module 1 heb ik de functie gemaakt om .wav bestanden mee af te spelen:
Code:
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe(StrSNDPath As String) As String
'Updateby Extendoffice 20161223
Call PlaySound(StrSNDPath, 0, SND_ASYNC Or SND_FILENAME)
SoundMe = ""
End Function
Vervolgens wordt die aangeroepen door de knop met als pad de waarde in cel B3 op blad Audio Links:
Code:
Private Sub CommandButton1_Click()
Call SoundMe(Worksheets("Audio Links").Cells(3, "b").Value)
End Sub
Ik heb voor dezelfde rij nog 2 knoppen gemaakt, die naar C3 en D3 verwijzen
Dat gaat allemaal prima!
Nu wil ik echter voor de 100 rijen eronder dezelfde 3 knoppen per rij maken, steeds verwijzend naar dezelfde kolommen op blad Audio Links als de drie bestaande knoppen
Het liefst zou ik hiervoor ook de verwijzing naar het pad relatief maken, dus ipv (Worksheets("Audio Links").Cells(3, "b").Value) zou ik liever niet die 3 van rij 3 gebruiken maar bijvoorbeeld deze rij of =VERT.ZOEKEN([@[Rij Nr]];Tabel2[#Alles];2;ONWAAR)
Dan kan de functie van de knoppen voor elke kolom voor elke rij hetzelfde zijn en hoeft de knop enkel nog gekopieerd te worden
Volgens mij kan dit niet zo makkelijk omdat een knop niet in een cel zit, maar corrigeer me als ik het fout heb
Ik hoop dat het zo duidelijk is
Alvast hartelijk dank voor het meedenken!
ps, je zal niets horen tenzij je een map C:\Test hebt met Alarm01.wav tot en met Alarm09.wav
sorry, ik kon geen voorbeeld maken die verwijst naar geluiden die iedereen heeft (geen idee waar die staan namelijk)
Verander gerust de verwijzingen naar geluiden die jij wel hebt om het te kunnen testen