2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
  • 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

  • #38897 Fferi50 Topikgazda dm1970 #38896
    Új Válasz #38897
    Ú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

    Fferi50

    Topikgazda

    válasz dm1970 #38896 üzenetére

    Szia!

    Sajnos nem látok igazán direkt képletes megoldást.
    Viszont a keres-cserél képletekben szerintem elég gyorsan működik, nem kell kézzel átírni az egészet.
    Vagy ugyanaz makróval:
    Range("D1").Formula = Left([a1].Formula, InStr([a1].Formula, "[")) & [i1].Value & Mid([a1].Formula, InStr([a1].Formula, "]"))
    Ez a sor a D1 cellába beírja az A1 cellában levő képletet, módosítva az I1 cellában levő fájlnévre.

    A makrót beírhatod pl. a munkalap Change eseménykezelőjébe.
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 1 Then 'ha az a1 cella v?ltozott
    Range("D1").Formula = Left([a1].Formula, InStr([a1].Formula, "[")) & [i1].Value & Mid([a1].Formula, InStr([a1].Formula, "]"))
    End If
    End Sub

    Valahányszor az A1 cella értékét módosítod, a D1 cella képlete módosulni fog.

    Ez persze csak elindító gondolatnak jó, a pontos paramétereket neked kell kiókumulálni.
    Természetesen ha a fájlnevekben van szabályosság, azt lehet a makróban is kezelni.

    Üdv.

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