Telefonszámunk: 1-472-0679

[Resolved] url kiírása cellába

Kezdőlap Fórumok Excel programozás [Resolved] url kiírása cellába

Topic Resolution: Resolved

Ennek a témakörnek tartalma 2 hozzászólás, 2 résztvevő. Utolsó frissítés:  Potus 1 hónap, 2 hete telt el a bejegyzés óta.

3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • #5142

    Potus
    Résztvevő

    Sziasztok!
    Egy Excel munkalapon “műkődtetek” egy wmp controlt. A lejátszandó fájlok kiválasztása az előadók fényképére kattintva az alábbi kódon keresztűl történik, persze minden képnek van saját kódja.

    Sub commandbutton_Zséda_click()
    Dim FName As Variant
    FName = Application.GetOpenFilename(filefilter:=”Zséda files,*.mp3″, Title:=”Please select a Zséda File”, MultiSelect:=False)
    If FName <> False Then
    WindowsMediaPlayer1.url = FName
    End If
    End Sub

    kiegészíteném a kódot olyan formában, hogy a kiválasztott fájl nevét megjeleníteném a munkalap egy cellájában (dizájnolt formában).

    Tudna valaki segíteni egy kód kiegészítéssel a fájl név kiírásában?

    Előre is köszönöm! Potus

    #5143

    horvimi
    Kulcsmester

    Az Fname változóban benne van, hogy a párbeszédben mit választott ki.
    A módosított kód beírja ezt a C1 cellába.

    If FName <> False Then
        WindowsMediaPlayer1.url = FName
        Range("C1").Value = Fname
    End If

    Imre

    • A hozzászólás módosításra került: 1 hónap, 2 hete telt el a bejegyzés óta- horvimi.
    #5146

    Potus
    Résztvevő

    nagyon köszönöm! Most jelenleg így néz ki. Még finomitok rajta:

    Potus

    Attachments:
    You must be logged in to view attached files.
3 bejegyzés megtekintése - 1-3 / 3

Be kell jelentkezni a hozzászóláshoz.