Stránka 1 z 1

Excel VBA: Jak vybrat první slovo z věty?

Napsal: 16 pro 2009 23:30
od atari
v buňce A1 mám tyto věty např:
Bridgeport Season Schedule
Lowell Season Schedule
Hartford Season Schedule
atd.
Potřebuji vždy první slovo zkopírovat do buňky A2.
(Takže například v prvním případě bude v buňce A2: Bridgeport)
Potřebuji to ve VBA. Zkopírovat zadaný počet znaků od začátku bych uměl pomocí funkce "MID", ale tady je nutné oddělit pokaždé jiný počet znaků a to už neumím.
Poradí někdo?

Re: jak vybrat jedno slovo z věty

Napsal: 17 pro 2009 00:25
od CZechBoY
Je v Excelu funkce InStr ? pak by šlo udělat Mid(0,Instr(" ",A1),A1) nebo jak se píše Mid a InStr.
Tohle je návod kdyžtak to uprav do formy jak to má být, už jdu spát takže nevim :)

Re: jak vybrat jedno slovo z věty  Vyřešeno

Napsal: 17 pro 2009 04:55
od mike007
Použij toto:

[syntax lang=vb]Sub prvni_slovo()
Cells(2, 1) = Left(Range("a1"), InStr(1, Range("a1"), " ", vbTextCompare))
End Sub[/syntax]

Do přílohy jsem ti též hodil ukázku, jak se dá první slovo separovat pomocí vzorečku. Třeba se ti to bude někdy hodit.

Re: Excel VBA: Jak vybrat první slovo z věty?

Napsal: 17 pro 2009 17:16
od atari
Díky za radu i za vzorečky.
Tak jsem si to makro ještě musel upravit. To makro zapisovalo za slovo i tu mezeru. Tu tam mít nemůžu (buňku pak provnávám příkazem IF)
Napsal jsem na konec ještě "-1". A funguje! :D
Cells(2, 1) = Left(Range("a1"), InStr(1, Range("a1"), " ", vbTextCompare)-1)

Re: Excel VBA: Jak vybrat první slovo z věty?

Napsal: 17 pro 2009 18:02
od mike007
Šikula ;) To víš, makro jsem ti psal v noci a to mi už moc hlava neslouží :P