Kezdőlap › Fórumok › Excel programozás › [Resolved] wmp control vs 5 mp3 file
- This topic has 9 hozzászólás, 3 résztvevő, and was last updated 5 years, 10 months telt el by horvimi.
-
SzerzőBejegyzés
-
2018-12-01-09:45 #5339
Sziasztok!
Egy Excel munkalapba beillesztettem egy WMP controlt. Szeretném, ha mondjuk egymás után lejátszana – egy kattintásra – 5 mp3 file-t. Ehhez kreáltam az alábbi makrót. Probálom megúszni a bonyolultnak tűnő play list-et. Az a baj vele, hogy ha lejátsza az első mp3 file-t megáll és csak egy újbóli kattintásra ugrik a következőre. Sőt, ha így lejátszotta az összeset és újra kattintok az utolsó file-t kezdi ismételgetni.
Mit kellene tennem, hogy magától lejátsza mind az 5 file-t, ill. a végén ugorjon vissza az elsőre és ne ragadjon be az utolsón.Sub commandbutton_play_CD1_5()
Dim Path As String
Path = Range(„d150”)
If Path = „” Then Exit Sub
With Me.WindowsMediaPlayer1
.url = Path
DoEvents
.Controls.play
DoEvents
End With
Path = Range(„d151”)
If Path = „” Then Exit Sub
With Me.WindowsMediaPlayer1
.url = Path
DoEvents
.Controls.play
DoEvents
End With
Path = Range(„d152”)
If Path = „” Then Exit Sub
With Me.WindowsMediaPlayer1
.url = Path
DoEvents
.Controls.play
DoEvents
End With
Path = Range(„d153”)
If Path = „” Then Exit Sub
With Me.WindowsMediaPlayer1
.url = Path
DoEvents
.Controls.play
DoEvents
End With
Path = Range(„d154”)
If Path = „” Then Exit Sub
With Me.WindowsMediaPlayer1
.url = Path
DoEvents
.Controls.play
DoEvents
End With
End Subüdv. Potus
2018-12-01-12:20 #5340Tedd az 5 fájlt hiperhivatkozásként az 5 cellába.
Sub Zene() Dim sor As Integer Application.DisplayAlerts = False For sor = 150 To 155 If Range("D" & sor) = "" Then Exit Sub Range("D" & sor).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True DoEvents Next Application.DisplayAlerts = True End Sub
2018-12-02-15:24 #5341Köszönöm a választ!
Ahogy én értelmeztem : a sub zene() -t tettem a play gombra. A d140-d144 cellákban hoztam létre a hiperhivatkozásokat. pl:
d140: =hiperhivatkozás(„C:\Users\attic\Music\Sting\Sting_An_English_man_in_New_York.mp3”).
Persze átírva az eredeti cella sorokat. A play gombra kattintva „subscript out of range” üzenet jön folyamatosan.Pontosítanám a programom leírását.
Van egy (serviceaudio) munkalap.Ezen kilistázva a gépemen található összes mp3 file elérési útja előadónként oszlopokba. Van olyan mp3 file ami csak egy szám, van olyan ami egy album. Ezen a munkalapon van még 5 oszlop elnevezve előadók1, előadók2 stb..
Van egy (audio) munkalap. Ezen van a wmp control. Van ezen egy olyan makró(előadonként) ami segítségével kiválasztom a gépemen lévő eőadók mappájából a lejátszani kívánt mp3 file-t. Ezen a munkalapon hoztam létre az a150-a154 és a d150-d154 cellákban azt a kétszíntű legördűlő listát amivel alkalmanként összeállítanám a fentebb említett 5 mp3 egymás utáni automatikus lejátszását. Persze a lísta összetétele ezáltal változtatható lenne elképzelésem szerint.
Ha jól értelmezem az általad ajánlott megoldásban ez nem lehetséges ill. mindig át kellene írni a hiperhivatkozásokat. Ami nem lenne baj, ha lehetne automatizálni 🙂 .Üdv Potus
_
2018-12-03-07:44 #5342Tanulmányozd Horváth Imre csodás leírását a többszintű legördülőkről. http://excel-bazis.hu/tutorial/tobbszintu-legordulo-lista-profi-megoldas
A megfelelő, zenét tartalmazó oszlop kiválasztása után makróval megszámoltatod, hány számot (sort) tartalmaz. Ennek megfelelően beíratod a hiperhivatkozások képleteit oda, ahova akarod, majd indítod a lejátszó ciklust.Én is hallgatok zenét munka közben, de nem Excellel, hanem a jó öreg Winamp segítségével, amit erre fejlesztettek.
2018-12-03-15:56 #5343A két szintű legördülő már régen meg van , pont ezen link alapján készítettem el. Ez nem probléma…
Bocsi, hogy értetlenkedem, de…
Ezzel a makróval mindig 5 mp3-at játszanék le (muszáj megszámoltatni, meg egyáltalán hogyan kell? ), az albumos mp3 is valójában egy mp3, össze vannak fűzve a számok.
A sub zene() makróban mit jelent a hyperlinks után ez (1) ? Ezzel kell valamit kezdenem, át kell írnom 5-re, a sorok számára?
Beírtam a cellákba a hiperlink képleteket. De még mindig azt írja ki a sub zene() -re, hogy subscript out of range…Amúgy az én régi macrom felejtős, csak a sub zene() kell?
Bocsi, hogy ilyen ostoba vagyok , meg igaz, hogy nem létszükséglet, nem munkához kell, csak amolyan kialakuló félben lévő hobby… De nagyon szeretném „megoldani” a dolgot.
2018-12-03-20:36 #5346így néz ki a dolog, kicsit lebutitva, de még így is nagy.
2018-12-03-21:55 #53472018-12-03-21:56 #53482018-12-04-15:59 #5351Óriási a fájlod, apait-anyait pakolsz bele, ráadásul a makróid másik fájlban vannak.
Igazán jobban tennéd, ha a kész (ingyenes) alkalmazásokat használnád arra, amikre hozzáértők létrehozták.Előbb érdemes lenne az Excellel és a programozásával jó közepes szintre eljutnod, majd azután kellene foglalkoznod a csicsázással. Meglátod, ha már érted is, mit csinálsz, nem foglalkozol majd ilyen felesleges dolgokkal.
Attachments:
You must be logged in to view attached files.2018-12-07-19:28 #5383Csatlakozom Delilához.
-
SzerzőBejegyzés
- Be kell jelentkezni a hozzászóláshoz.