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

• #5831 ulrik19 tag Pá #5824

  Új Válasz 2009-12-11 18:01:02 #5831

  Ú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

  

  ulrik19

  tag

  válasz Pá #5824 üzenetére

  Én így csinálnám. Ehhez a makróhoz célszerű hozzárendelni egy billentyű-kombinációt is.

  Public Sub ktgelosztas()
  Dim cella As Object, osszeg As Integer
  
  osszeg = Int(Val(InputBox("Felosztandó összeg a kijelölt cellák között:") / Selection.Count))
  For Each cella In Selection
  cella.Value = Val(cella.Value) + osszeg
  Next
  End Sub

  Használata:
  kijelölöd azokat a cellákat, amikre szét akarod osztani az értéket. (a ctrl nyomva tartva az egérrel ugye tudsz egymástól független cellákat sorban kijelölni, ahányat csak szeretnél)

  Majd indítod a makrót (pl. a hozzárendelt billentyűkombinációval).

  A progi bekéri a számot, amit szétoszt annyi részre, ahány cellát kijelöltél, és a kijelölt cellák értékét növeli a rá jutó résszel. (ha valamelyik kijelölt cellában szöveg volt, akkor azt nullának értelmezi, ha szöveget adsz be a felugró ablakban, akkor nullát ad mindenhova, vagyis nem változik az érték. Ha valamelyik kijelölt cellában képlet van, akkor az felül fog íródni a konkrét értékkel)

  hajrá!

• #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.

• #5826 Delila_1 veterán Pá #5824

  Új Válasz 2009-12-11 15:36:38 #5826

  Ú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

  Elkerülheted a sok tizedest, ha így adod meg:

  Function Eloszt(Összeg As Double, Részre As Integer) As Integer
  Eloszt = Összeg / Részre
  End Function

  A függvények között is megtalálod a makró bevitele után az Eloszt nevezetűt.

• #5825 Delila_1 veterán Pá #5824

  Új Válasz 2009-12-11 15:26:30 #5825

  Ú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

  Akkor a personal.xls-be vidd be:

  Function Eloszt(Összeg As Double, Részre As Integer)
  Eloszt = Összeg / Részre
  End Function

  Kijelölöd a cellákat, beírod: =Eloszt(26253;3), és Ctrl+Enterrel egyszerre beviszed a kijelölt cellákba. Az osztó és osztandó persze minden esetben más lehet.

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