Zdar a silu Mifko, dna 11.04.2002 si napisal(a):
> > Dnes jsem se pustil poprve do maker a potreboval bych poradit s jednou
> veci.
> > Mam tady tabulku, kde je v jedne bunce vzdy zapsane jmeno a prijmeni.
> > Potrebuji to rozdelit tak, aby bylo jmeno v jedne a prijmeni ve druhe.
> Je
> to
>
> ahoj, pekne ti na to posluzia funkcie:
> InStr - vrati poziciu hladaneho retazca v inom retazci (v tvojom pripade
> budes hladat medzeru)
> Left - vrati stanoveny pocet znakov zo zaciatku retazca (v tvojom
> pripade
> bude pocet znakov: pozicia medzery v retazci minus jedna)
> Mid - vrati stanoveny pocet znakov od stanovenej pozicie v retazci (v
> tvojom
> pripade od pozicie medzery plus jedna az do konca, preto nezadavas treti
> nepovinny parameter)
> Left - vrati stanoveny pocet znakov od konca retazca
>
> ukazka ako vydolujes priezvisko a meno z bunky a1 (do toho tvojho makra
> si
> to uz zapasujes, no nie?):
> Dim strCeleMeno As String
> strCeleMeno = Range("a1").Text
> MsgBox Left(strCeleMeno, InStr(strCeleMeno, " ") - 1)
> MsgBox Mid(strCeleMeno, InStr(strCeleMeno, " ") + 1)
>
> na pohyb po bunkach relativne vzhladom k nejakej inej bunke sa v helpe
> pozri
> na metodu Offset objektu Range
>
> mifko
>
plne obsiahle a funguje od MS 97 do xp to co ti dal mifko.
doplnim
od 2000 funguje fcia "split" pozri do helpu
--
s pozdravom
AleXXX
Remember: there are no strangers in the world,
only friends who have not yet met.
This archive was generated by hypermail 2.1.2 : 12. 04. 2002, 08:54 CEST