< návrat zpět
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!
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 hodiny
citovat
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