Excel VBA program

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

spalekjirka
nováček
Příspěvky: 3
Registrován: únor 09
Pohlaví: Muž
Stav:
Offline

Excel VBA program

Příspěvekod spalekjirka » 11 črc 2016 09:47

Zdravím,
chtěl bych si trochu usnadnit práci a hodil by se mi na to malý prográmek v excelu, každopádně na to sám nestačím. Možná na to je in nějaká funkce v excelu ale nevím jaká. Asi takhle:
1)mám dejme tomu nějakou oblast "O" v excelu kde jsou různá čísla (list1 třeba )
2) na začátku bych si zadal nějaké číslo "X"
3)program by projel oblast O a načetl z ní všechny čísla O1;O2... a seřadil tyto čísla do řádku v maximálním součtu do X v nejlepší kombinaci (co nejméně zbytků)
př. v oblasti jsou čísla O: 5;6;8;3;4;4;4,1,1,1
zvolím X=10
výstup by byl:
8,1
6;4
5;4;1
3;4;1;1
každý řádek je menší 10 a zbytek je co nejmenší


Někdo mi poradil tento algoritmus - myslím že by to stačilo takhle:


Data v oblasti O seřadit od největšího po nejmenší: 8;6;5;4;4;4;3;1;1;1
Následně tento seznam procházet a pokud se číslo do batohu vejde tak ho tam umístit a odebrat ze seznamu O. Je to celkem jednoduché 8 se do prázdného batohu vejde, tak se tam umístí. 6 se tam už nevejde, 5 se nevejde, 4 se nevejde, 3 se nevejde, 1 se vejde (celkem už 9), 1 se vejde (celkem 10), 1 se nevejde.
Tj batoh1 bude po prvním průběhu obsahovat: 8;1;1. V O zbývá: 6;5;4;4;4;3;1
Pak znovu projít zbytek seznamu O a umístit to do dalšího batohu.
Batoh2: 6;4. O: 5;4;4;3;1
A znovu.
Batoh3: 5;4;1 O: 4;3
A pak poslední průběh:
Batoh4: 4;3 O: prázdné.
Výsledek:
Batoh1: 8;1;1 (10)
Batoh2: 6;4 (10)
Batoh3: 5;4;1 (10)
Batoh4: 4;3 (7)

Budu moc vděčný za pomoc, moje programovací schopnosti nesahají moc daleko :-)

Reklama
  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4778
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12192
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Pohoda a excel Příloha(y)
    od brownwld » 06 kvě 2025 17:28 » v Kancelářské balíky
    1
    4623
    od atari Zobrazit poslední příspěvek
    07 kvě 2025 09:41
  • Excel - výpočet nočních hodin Příloha(y)
    od Uziv00 » 17 říj 2024 11:22 » v Kancelářské balíky
    3
    3318
    od lubo. Zobrazit poslední příspěvek
    24 říj 2024 00:00
  • Tisk sloupců vedle sebe na A4 - Excel
    od atari » 24 dub 2025 10:51 » v Kancelářské balíky
    5
    3909
    od atari Zobrazit poslední příspěvek
    26 dub 2025 09:11

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů