2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

  • 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

  • #32251 Fferi50 őstag gyu84 #32249
    Új Válasz #32251
    Ú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

    őstag

    válasz gyu84 #32249 üzenetére

    Szia!

    Excel 2010-es verziója óta elérhető a cellák tényleges színe, ezt be lehet állítani az elküldendő munkalapon, makróval:
    Sub szines()
    Dim wshuj As Worksheet, rngregi As Range, cl As Range
    Set rngregi = Workbooks("eredeti").Sheets("eredeti").Munka1.UsedRange.SpecialCells(xlCellTypeAllFormatConditions) ' ide helyettesítsd be a forrás munkalap elérési útját
    Set wshuj = Workbooks("uj").Sheets("uj") ' ide pedig az új munkalapét
    For Each cl In rngregi.Cells
    wshuj.Range(cl.Address).Interior.Color = cl.DisplayFormat.Interior.Color
    Next
    End Sub

    Először átmásolod az új munkalapra az adatokat értékként, formázva, majd lefuttatod a makrót.

    Ha nem csak szinezés van, hanem mást is állítasz, akkor a DisplayFormat megfelelő tulajdonságait kell az adott cellához "átmásolni'. (pl. font.color, font.size stb.)

    Üdv.

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