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

  • #3869 Delila_1 veterán Anor #3856
    Új Válasz #3869
    Ú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 Anor #3856 üzenetére

    Úgy tűnik, programozás nélkül nem megy.

    Amit Lúzer ajánlott – Cella("szín",A2), az sajnos nem arra vonatkozik. Sikerült megtalálni a súgóban, aztán gyorsan el is vesztettem. Olyasmit tartalmaz, hogy ha negatív szám esetén más színt adunk a karakternek, mint pozitívnál, akkor 1 lesz az értéke a képletnek, azonos színnél 0 (vagy fordítva(?)).
    Miért nem akarsz makróval dolgozni?

    Mindenesetre megírtam két makrót. Az első a színezett cellán állva egy üzenetboxban kiírja a háttér színkódját, ezt a kódot add meg a második makró If-fel kezdődő sorában.

    Sub szin()
    MsgBox Selection.Interior.ColorIndex
    End Sub

    Nálam a színkód 44 (sötétsárga) volt.
    A második makró számolja a nem színezett cellák tartalmának átlagát, mégpedig A2-től (feltételezve, hogy az A1 oszlopcímet tartalmaz) addig, amíg az A oszlopban talál adatot. Az utolsó adat utáni cellába írja az eredményt.

    Sub Atlag()
    For sor = 2 To Range("A65536").End(xlUp).Row
    If Cells(sor, 1).Interior.ColorIndex <> 44 Then
    osszeg = osszeg + Cells(sor, 1)
    oszto = oszto + 1
    End If
    Next
    Cells(sor, 1) = osszeg / oszto
    End Sub

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