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

  • #3497 Delila_1 veterán Dolby #3495
    Új Válasz #3497
    Ú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

    Delila_1

    veterán

    válasz Dolby #3495 üzenetére

    Nagyon jó a PC fórumos válasz. Átmásolom ide, hogy más is okulhasson belőle.
    Dongetto ezt írta:

    Function pelda(munkalapszama As Integer, cella As String)
    pelda = Sheets(munkalapszama).Range(cella).Value
    End Function

    Ezt a makrót ebbe a füzetbe, vagy az egyéni makrófüzetbe (hogy minden más füzet is elérje) beírva működik az alábbi képlet:

    =pelda(5;"B3") -> az ötödik, bármilyen nevű lap B3 cellájának értékét adja.

    Átírtam ennek megfelelően az előző makrómat.

    Sub Keplet()
    Sheets("Munka1").Select
    For sor = 2 To 69
    Cells(sor, 2).Select
    ActiveCell.FormulaR1C1 = "=pelda(" & sor & ",""B3"")"
    Next
    End Sub

    Ha jól emlékszem, 69 lapod tartalmazza az adatokat, amiket az első lapra B2-től kezdve gyűjtesz ki egymás alá (ezzel együtt 70 lapod van). A makróban Munka1-nek neveztem a gyűjtő lapot. Ezt teszed előre, azért indul a ciklus 2-től.

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