Avaleht
uus teema   vasta Tarkvara »  Tarkvara »  Excel - Jaga numbrid kahte gruppi võimalikult võrdselt märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale.  :: Teata moderaatorile teata moderaatorile
otsing:  
ArvQ
HV Guru
Keelatud avatar

liitunud: 29.01.2009
sõnum 30.10.2014 21:50:40 Excel - Jaga numbrid kahte gruppi võimalikult võrdselt vasta tsitaadiga
Mul on rida numbreid ja need on vaja jagada võimalikult võrdselt kahte gruppi (summaarselt võrdselt). Kuidas seda saavutada ? Manuaalselt üritada neid gruppe tasakaalustada on päris tüütu. On Parem viis?
Numbrid järgnevad:
49,56 €
61,95 €
70,21 €
75,64 €
131,08 €
180,60 €
210,00 €
220,66 €
289,00 €
305,28 €
366,49 €
408,00 €
610,00 €
836,98 €
1 200,00 €
1 497,60 €
2 357,54 €
Kommentaarid: 176 loe/lisa Kasutajad arvavad:  :: 2 :: 1 :: 149
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 31.10.2014 21:45:03 vasta tsitaadiga
Eeldusel, et Su "rida numbreid" asuvad tulbas A:A lisa moodulisse1 kood ja jooksuta makrot...

Sub Grupeeri()
Dim Lastrow As Long
Dim i As Long
Dim SumDD, SumEE, ColNr

Range("A1").Activate
Lastrow = Range("A1").End(xlDown).Row
Cells(Lastrow, "A").Activate
   
    For i = Lastrow To 1 Step -1
        Cells(i, 1).Activate
   
        If i = Lastrow Then
            Cells(1, 4) = ActiveCell.Value
            GoTo 10
        End If
       
        If i = Lastrow - 1 Then
            Cells(1, 5) = ActiveCell.Value
            GoTo 10
        End If
   
        SumDD = [SUM(D:D)]
        SumEE = [SUM(E:E)]
   
            If SumDD < SumEE Then
                ColNr = 4
            Else
                ColNr = 5
            End If
   
            Cells(2, ColNr).Insert Shift:=xlDown
            Cells(2, ColNr) = Cells(i, 1)
SumDD = 0
SumEE = 0
   
10
    Next i
   
    Columns("D:E").NumberFormat = "#,##0.00 [$€-425]"
End Sub
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
ArvQ
HV Guru
Keelatud avatar

liitunud: 29.01.2009
sõnum 06.11.2014 10:30:27 vasta tsitaadiga
numbirte järjestusest sõltuvalt annab koguaeg erinevat tulemust. Seega ei ole päris see mida vaja kuid ajab asja ära siis kui järjestada numbrid vähimast suurema poole.
Tänud. Abiks ikka thumbs_up.gif
Kommentaarid: 176 loe/lisa Kasutajad arvavad:  :: 2 :: 1 :: 149
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 06.11.2014 20:13:22 vasta tsitaadiga
tsitaat:
numbirte järjestusest sõltuvalt annab koguaeg erinevat tulemust.


Loomulikult ju.
Numbrid on erinevad ja järjestuse muutumisest tulenevalt muutub ju ka arvutamise tulemus.

tsitaat:

Seega ei ole päris see mida vaja kuid ajab asja ära siis kui järjestada numbrid vähimast suurema poole.


Arvutamise tulemusel saadakse ühte tulpa 4441,22 € ja teise 4429,37 € ehk erinevuseks 11,85€ ehk erinevuseks saadakse alla 1%

tsitaat:
Ülesannne oli: Jaga numbrid kahte gruppi võimalikult võrdselt.
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
pmq
HV kasutaja

liitunud: 29.01.2007



Autoriseeritud ID-kaardiga
sõnum 08.11.2014 00:21:48 vasta tsitaadiga
Kui pikk see jagamist vajav numbrite nimekiri tavaliselt on?
Kui mitte eriti üle 20ne, siis need mõned miljonid kombinatsioonid proovib üsna kiirelt läbi.

pets.planet.ee/rida-pooleks.xlsm
Kommentaarid: 121 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 95
tagasi üles
vaata kasutaja infot saada privaatsõnum
ArvQ
HV Guru
Keelatud avatar

liitunud: 29.01.2009
sõnum 09.11.2014 15:33:03 vasta tsitaadiga
Vat see on see mida vaja oli. Amazing!
Numbreid ei ole liiga palju ja praktiliselt instant värk.

Võib teema lõppetatuks pidada icon_cool.gif
Kommentaarid: 176 loe/lisa Kasutajad arvavad:  :: 2 :: 1 :: 149
tagasi üles
vaata kasutaja infot saada privaatsõnum
pmq
HV kasutaja

liitunud: 29.01.2007



Autoriseeritud ID-kaardiga
sõnum 09.11.2014 17:30:53 vasta tsitaadiga
Jackinthex kirjutas:
Vat see on see mida vaja oli. Amazing!
Numbreid ei ole liiga palju ja praktiliselt instant värk.

Võib teema lõppetatuks pidada icon_cool.gif
thumbs_up.gif
Väike täiendus ka. Teeb asja kiiremaks olukorras, kus piisavalt head lahendust ei leita:
Lisa õigele reale / 2 + 1

    For n = 1 To numbrid.Count / 2 + 1
         edasi 1, n
    Next n
Kommentaarid: 121 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 95
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Tarkvara »  Excel - Jaga numbrid kahte gruppi võimalikult võrdselt
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.