Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #32174 bteebi veterán Delila_1 #32173
    Új Válasz #32174
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    bteebi

    veterán

    válasz Delila_1 #32173 üzenetére

    Ezt is köszönöm! :R

    Végül összeállt minden, és jó is lett. Bemásolom ide a végső kódokat:

    Sub listakereso()
    Dim datum As Long, file As Variant
    datum = ActiveSheet.Range("C4")
    file = Dir("D:\Proba\lista_" & datum & "*.pdf")
    Do While (file <> "")
    UserForm1.ListBox1.AddItem file
    file = Dir()
    Loop
    If UserForm1.ListBox1.ListCount = 0 Then
    MsgBox "Nem találom a listát!", vbExclamation
    Exit Sub
    End If
    UserForm1.Show
    End Sub

    Az OK gombhoz rendelve pedig:

    Private Sub ButtonOK_Click()
    Dim sor As Integer
    For sor = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(sor) = True Then
    Shell CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AcroRd32.exe\") _
    & " /A " & Chr(34) & "&zoom=95" & Chr(34) & " " & Chr(34) & "D:\Proba\" & ListBox1.List(sor) & Chr(34), vbNormalFocus
    End If
    Next sor
    Unload Me
    End Sub

    Lényeges elem, hogy bár a kiválasztást a ListBox1.Selected(sor) adja, a listaelem nevét viszont a ListBox1.List(sor) - időbe telt, amíg megtaláltam :).

Új hozzászólás Aktív témák