Příspěvky uživatele
< návrat zpět
http://www.akonasoftver.sk/index.php?sekcia=clanok&idclanku=121
Dáta treba previesť na tabuľku.
pomocou index takto
No zrejme som to pochopil trochu inak.
slabiky versus rozdeľovanie slov.
A aj pri sadzbe(DTP) sú iné pravidlá.
U nás je to asi takto.
http://www.slovencina.vselico.com/rozdelovanie.html
Kedysi som nechápal, prečo je a USA také dôležité vyhláskovať slová.
No zmysel slabikovania u nás doteraz celkom nechápem. Ešteže to nie je v maturitných otázkach. 
slabiky s "r" alebo "l" neriešim.
napríklad "vrhl" je jedna slabika
"trhat" sa asi tiež nedá rozdeliť na tr-hat
Aj so samohláskou na začiatku je to nejednoznačné
"aspoň" sa asi dá rozdeliť as-poň
ale "auto" na au-to je dosť podivné
a "alebo" nejde na a-le-bo
Toto je skôr úloha pre jazykovedcov.
@eLCHa
No aj češi môžu pracovať s anglickými textami. Netuším na aký účel to zadávateľ chce použiť v exceli.
Ja som vymyslel niečo takéto na eliminovanie dvoch samohlások za sebou.
Function slab(tex As String) As Long
slab = 0
tex = Replace(tex, "a", "#")
tex = Replace(tex, "e", "#")
tex = Replace(tex, "i", "#")
tex = Replace(tex, "o", "#")
tex = Replace(tex, "u", "#")
tex = Replace(tex, "y", "#")
' doplniť o diakritiku
tex = Replace(tex, "##", "#")
For i = 2 To Len(tex)
If Mid(tex, i, 1) = "#" Then slab = slab + 1
Next i
End Function
No asi bolo vhodné uviesť aj o aký jazyk ide. Vo francúzštine alebo angličtine budú výsledky asi problematické.
Hex2Dec
Dec2Hex
Preveď to na dekadické vlož ako hodnotu. Predĺž to na 50 a potom to preveď zase na hexadecimálne.
@elninoslov
Veď na to stačí jednoduchý kód a bude mať výsledok ako je v zadaní.
Sub rovnica()
k = 0
ytext = ""
For i = 1 To InputBox("zadaj x=")
xtext = ""
For j = 1 To i
k = k + 1
xtext = xtext & k & " "
Next j
ytext = ytext & xtext & Chr(13)
Next i
MsgBox ytext
End Sub
Marcelus napsal/a:
pro tenhle případ by rovnice byla Xn = Xn-1 + n
Nevím jak ji zapsat ve Vb
n=1: X1=X0+1=1
n=2: X2=X1+2=1+2=3
n=3: X3=X2+3=3+3=6
No nejaká logika tu je. Ale neviem prísť na to aká.
To má byť vo VBA? Ako to, že na to nikto doteraz neprišiel?
Čo je podľa teba rovnica?
No to posledné je logika ako sviňa.
Nejaký seznam, nejaké kódy... Možno to niekto nejako vysvetlí.
Union("SEZNAMJMEN", Range(Sheets("Detail").Range("Y2").Value)).Select
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články