Problém s VBA - poradna.net

Ahoj, Chtěl bych vás moc poprosit o radu, jak vyřešit tenhle úkol ve VBA, protože si s ním vůbec nevím rady...:

Do buňky A1 napiš slovo číslo.
Udělej makro s následujícími podmínkami:
1.Při spuštění se ukáže formulář "Zadej počet čísel:"
2.Po té pomocí formuláře zadáte jednotlivá čísla pod buňku A1. Text ve formuláři bude: "Zadej 1. číslo:", "Zadej 2. číslo:", atd. Čísla se zadávají jak kladná tak záporná.
3.Po zadání čísla se vynechá jeden řádek a pak do prvního sloupce se postupně vypíše Minimum, Maximum, Průměr a vedle jednotlivé hodnoty.
4.Průměr musí být vložen jako funkce Průměr(vzorec).
5.porovná všechny zadané buňky s průměrem a provede následující formátování: ◦Buňky menší než průměr budou mít červené pozadí, modré písmo, kurzívu a přeškrtnutí
◦Buňky větší než průměr budou mít zelené pozadí, žluté písmo, tučné a podtrhnutí jednoduché
◦Buňky rovnající se průměru budou mít černé pozadí, bílé písmo, velikost 20 a dvojité podtrhnutí
◦Buňky s textem průměr a se vzorcem průměru budou mít horní silné ohraničení a buňka se vzorce bude mít zelené pozadí.
Poznámka: Nezapomeňte, že formulář vrací datový typ řetězec. Pro velká čísla existuje datový typ LongLong. Náhled obrázků je na disku Y: (B44)

Předem díky za odpověď ;)

Předmět	Autor	Datum
Pokud školní úlohu někdo vyřeší za tebe, tratí původní smysl, aby ses něco naučil... Ara 27.03.2014 10:52	Ara	27.03.2014 10:52
A s čím konkrétně si nevíš rady? Předpokládám, že pokud jste takový úkol dostali, tak jste se o VBA… Jan Fiala 27.03.2014 13:28	Jan Fiala	27.03.2014 13:28
mno, zatím mám tohle Sub ZadaniCisel() Dim Cislo As Byte For Cislo = 1 To InputBox("Zadejte pocet c… samsam 27.03.2014 15:38	samsam	27.03.2014 15:38
A umíš přímo v excelu vytvořit vzoreček, který ti spočítá min, max a průměr? Tak to prostě udělej. K… Jan Fiala 27.03.2014 19:02	Jan Fiala	27.03.2014 19:02
no tak jsem vymyslel tohle, ale na 99% vím, že to bude špatně :/ Sub maxim() max = A1 For radek = 1… samsam 27.03.2014 21:52	samsam	27.03.2014 21:52
Jestli je to excel, pak použij přímo funkce excelu. ActiveSheet.Range("B1").Value = WorkSheetFunctio… Ara 27.03.2014 22:08	Ara	27.03.2014 22:08
Děkuju moc :) konečně to snad dokončím :) samsam 27.03.2014 22:15	samsam	27.03.2014 22:15
Mimochodem, stačilo: - zapnout záznam makra, - napsat vzorec do příslušné buňky, - stopnout makro -… poslední MachR55 28.03.2014 11:46	MachR55	28.03.2014 11:46

Pokud školní úlohu někdo vyřeší za tebe, tratí původní smysl, aby ses něco naučil...

A s čím konkrétně si nevíš rady? Předpokládám, že pokud jste takový úkol dostali, tak jste se o VBA učili.
Takže čekám konkrétní dotaz na tom, na čem jsi se zasekl, ještě lépe Excel s tím, co už jsi zatím udělal.

mno, zatím mám tohle

Sub ZadaniCisel()
 Dim Cislo As Byte
 
  For Cislo = 1 To InputBox("Zadejte pocet cisel", "Formulár")
    Cells(Cislo, 1) = InputBox("Zadejte císlo " & Cislo, "Formulár")
    
  Next


End Sub

Teď bych potřeboval vědět, co s tou minimální hodnotou, maximální hodnotou a průměrem, teda konkrétně, jak napsat ten příkaz, aby se ty hodnoty vypsaly do nějakého sloupce.

A umíš přímo v excelu vytvořit vzoreček, který ti spočítá min, max a průměr? Tak to prostě udělej. Když umíš do buňky zapsat hodnotu, zvládneš tam přece zapsat i vzorec.

no tak jsem vymyslel tohle, ale na 99% vím, že to bude špatně :/

Sub maxim()

max = A1
For radek = 1 To 99
If max < (A1) Then
max = A2
End If
max = B1
Next

End Sub

Prostě mi nenapadá, jak napsat ve VBA, aby se nejvyšší hodnota z buněk A1 až An vypsala třeba do buňky B1. Vím, že to pak bude s tím minimálním číslem a s průměrem stejný... a s těma barvama už si taky poradím, jen nad tímhle přemýšlím celý odpoledne :)

Jestli je to excel, pak použij přímo funkce excelu.
ActiveSheet.Range("B1").Value = WorkSheetFunction.Max(Range("A1:A10"))

Děkuju moc :) konečně to snad dokončím :)

Mimochodem, stačilo:
- zapnout záznam makra,
- napsat vzorec do příslušné buňky,
- stopnout makro
- podívat se na kód makra, kde bys ten příkaz našel

Zpět do poradny Odpovědět na původní otázku Nahoru