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

  • #5827 Delila_1 veterán Pá #5824
    Új Válasz #5827
    Ú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 Pá #5824 üzenetére

    Na még egy utolsó. A költségek nevei az A1:A10 tartományban vannak, az eddigi összegek pedig B1:B10-ben.
    Állítsd pirosra azokat az összegeket (B oszlop), ahova az új összeget szét akarod osztani.
    A szétosztandó összeget írd be a D1-be.

    Sub Eloszt_1()
    For sor = 1 To 10
    If Cells(sor, 2).Font.ColorIndex = 3 Then Db = Db + 1
    Next

    For sor = 1 To 10
    If Cells(sor, 2).Font.ColorIndex = 3 Then
    Cells(sor, 2) = Cells(sor, 2) + Round(Cells(1, 4) / Db)
    End If
    Next
    End Sub

    A makró végig szalad a B1:B10 tartományban, és összeszámolja a piros karakteres cellákat, ezek darabszáma lesz az osztó. Újra végig lépked ugyanott, és a piros cellák tartalmához hozzáadja a D1-ben talált összeg annyiad részét, ahány piros cellát talált.
    Azt hiszem, ez volt az eredeti kérdésed.

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