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
3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • 2018-09-29-10:10 #5142
    Potus
    Felhasználó

      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

      2018-09-29-10:39 #5143
      horvimi
      Adminisztrátor

        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: 6 years, 1 month telt el-horvimi.
        2018-09-29-11:07 #5146
        Potus
        Felhasználó

          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.
        • Szerző
          Bejegyzés
        3 bejegyzés megtekintése - 1-3 / 3
        • Be kell jelentkezni a hozzászóláshoz.