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

• #5827 Delila_1 veterán Pá #5824

  Új Válasz 2009-12-11 16:04:52 #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