MS Excel

Téma: jednoduchá funkce VBA - nevím si rady

Zaslal/a tobiasekl 4.12.2016 20:50

Zdravím všechny, zítra píšu písemku a učitel nám poslal typové zadání ,které máme vypracovat a vím, že pokud bych ho zvládl tak by mi to pomohlo, bohužel si nejsem rady.

Znění úkolu:

Vytvořte UDF s názvem FunkceOpak4if, která na základě vstupní hodnoty Datum (předpokládejme, že data jsou zadána v číselném formátu DD.MM.YYYY) vypíše příslušný kvartál (leden až březen = 1. kvartál…). Řešte pomocí konstrukce IF…THEN…ELSEIF…ELSE.

Stačilo by mi jestli by mi někdo úkazal jak má vypadat kod aspoň pro to aby mi fungoval jen ten první kvartál, ostatní už zvládnu sám. Děkuji moc vše za pomoct!!

A jak zapíšu do podmínky IF libovolný znak, na googlu nemůžu nic najít. Diky!

Zaslat odpověď >

Anonym(4.12.2016 21:02)#033660

Zítra? A to ses začal starat "už" v neděli večer? Seš dobrej.citovat

tobiasekl(4.12.2016 21:07)#033661

Ano, dosud jsem neměl s VBA problém, ale tohle mi nedává smysl. Zaskočilo mě a ano je to moje chyba, každopádně nejde ani o nijak náročné učivo, jen si prostě nejsem rady.

Dodatek: a sedím už u toho asi 3 hodinycitovat

Anonym(4.12.2016 21:37)#033662

No předpokládám, že znáš VBA funkci Month()?
Přiřaď hodnotu Měsíce do proměnné
no a pak můžeš tuto hodnotu ověřit v té konstrukci.
Dim xMesic as byte
xMesic = Month(Datum)
If xMesic < 4 Then
FunkceOpak4if = 1
ElseIf atd ...

A co myslíš tím
A jak zapíšu do podmínky IF libovolný znakcitovat

xlnc(4.12.2016 22:21)#033666

Výborný zadání, učitel nemá ani ponětí o algoritmech a pitomosti násobného ElseIf.citovat

Anonym(4.12.2016 22:32)#033667

Jasně, jde to řešit přímo jednoduchým vzorcem v Excelu.
A když už UDF tak "SelectCase".
Ale bohužel takové zadání chlapec dostal a bohužel tak se na naších školách učí.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.