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

    LOGOUT

    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

  • #19087 Mutt senior tag 81lendo$ #19077
    Új Válasz #19087
    Ú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

    Mutt

    senior tag

    válasz 81lendo$ #19077 üzenetére

    Szia,

    ...El tudnád küldeni, a kódját, az "ExportList" gombnak?
    Nincs jelszavazva, Alt+F11-el te is megtudod nézni alaposan, a kód részlet pedig ez:

    Private Sub bExportList_Click()
    Dim i As Integer
    Dim vHits As Integer
    Dim arryHits()
    Dim wsCel As Workbook

    'találatok száma
    vHits = 0

    'végigmegyünk a lista elemein
    For i = 0 To lbList.ListCount - 1
    'amely ki van jelölve azt egy találati tömbbe tesszük
    If lbList.Selected(i) Then
    'találatok számát növeljük
    vHits = vHits + 1
    'a találati tömböt átméretezzük hogy fogadja az új elemet
    ReDim Preserve arryHits(1 To vHits)
    'betöltjük az új elemet
    arryHits(vHits) = lbList.List(i)
    End If
    Next i

    If vHits Then
    'új fájl létrehozása
    Set wsCel = Workbooks.Add
    wsCel.Sheets(1).Range("A1") = "Munkalap neve"
    For i = 1 To vHits
    'kért adatok kiiratása
    wsCel.Sheets(1).Cells(i + 1, "A") = arryHits(i)
    wsCel.Sheets(1).Cells(i + 1, "B") = ThisWorkbook.Sheets(arryHits(i)).Range("E2")
    wsCel.Sheets(1).Cells(i + 1, "C") = ThisWorkbook.Sheets(arryHits(i)).Range("K27")
    wsCel.Sheets(1).Cells(i + 1, "D") = ThisWorkbook.Sheets(arryHits(i)).Range("K28")
    Next i
    End If

    'form bezárása
    Unload Me

    End Sub

    ...- Ilyenkor amikor konkrét cellát viszel át egy másik fájlba, akkor fomátuma is átmegy. (pl.: pénznem [Forint], [Euro])?

    A sima Copy nem viszi át VBA-ban, így nekem sem fogja a formázást másolni, de természetesen meg lehet csinálni (PasteSpecial).

    ...- Ugye én nem formon, hanem Munkalapon csináltam, de elvileg ott is működik ez a megoldás?
    Ha ActiveX vezérlőket használsz a lapon, akkor műkődhet. A gond azonban, hogy ezek a vezérlők egymástől függetlenül fognak létezni, ezért globális változók kellenek az adatok cseréjéhez.

    üdv.

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