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?
Excel VBA: Jak vybrat první slovo z věty? Vyřešeno
Excel VBA: Jak vybrat první slovo z věty?
Naposledy upravil(a) mike007 dne 17 pro 2009 05:11, celkem upraveno 1 x.
Důvod: Upřesnění názvu tématu
Důvod: Upřesnění názvu tématu
- CZechBoY
- Master Level 9.5
- Příspěvky: 8813
- Registrován: srpen 08
- Bydliště: Brno
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: jak vybrat jedno slovo z věty
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 :)
Tohle je návod kdyžtak to uprav do formy jak to má být, už jdu spát takže nevim :)
PHP, Nette, MySQL, C#, TypeScript, Python
IntelliJ Idea, Docker, Opera browser, Linux Mint
iPhone XS
Raspberry PI 3 (KODI, Raspbian)
XBox One S, PS 4, nVidia GeForce NOW
IntelliJ Idea, Docker, Opera browser, Linux Mint
iPhone XS
Raspberry PI 3 (KODI, Raspbian)
XBox One S, PS 4, nVidia GeForce NOW
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: jak vybrat jedno slovo z věty Vyřešeno
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.
[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.
- Přílohy
-
- pc-help_3877.xls
- (16.5 KiB) Staženo 155 x
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: Excel VBA: Jak vybrat první slovo z věty?
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!
Cells(2, 1) = Left(Range("a1"), InStr(1, Range("a1"), " ", vbTextCompare)-1)
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!
Cells(2, 1) = Left(Range("a1"), InStr(1, Range("a1"), " ", vbTextCompare)-1)
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel VBA: Jak vybrat první slovo z věty?
Šikula To víš, makro jsem ti psal v noci a to mi už moc hlava neslouží
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 2
- 915
-
od Karrex
Zobrazit poslední příspěvek
20 srp 2023 08:43
-
- 11
- 3551
-
od HelFix
Zobrazit poslední příspěvek
06 lis 2023 21:33
-
- 4
- 1900
-
od zeus
Zobrazit poslední příspěvek
24 led 2024 14:40
-
-
Jakou grafickou kartu RTX vybrat ?
od rg999 » 05 zář 2023 11:27 » v Rady s výběrem hw a sestavením PC - 6
- 1180
-
od rg999
Zobrazit poslední příspěvek
05 zář 2023 14:26
-
-
-
Který z těchto dvou mobilů vybrat
od Lukáš.v89 » 06 úno 2024 00:50 » v Mobily, tablety a jiná přenosná zařízení - 8
- 1984
-
od Smile
Zobrazit poslední příspěvek
07 úno 2024 07:40
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů