Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-priklady-kodu » excel-vba-prace-s-textem

Práce s textem - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak pracovat s textem s využitím VBA v Microsoft Excel. Počty znaků, záměny písmen, pozice znaků, atd.

Doplněno: 16.7.2014

Senzam příkladů

Microsoft Excel logo

K dispozici jsou tyto příklady:


Pozice znaku

Najdi na které pozici se nachází hledaný znak. V ukázkovém kódu hledáme pozici středníku.

Dim text As String Dim pozice As Long text = "Hledej pozici středníku v textu." pozice = InStr(1, text, ";", vbTextCompare) MsgBox pozice

Pro zpestření

aneb co udělá čárka umístěna na jiném místě ;)

  • Udělit milost nelze, popravit! versus Udělit milost, nelze popravit!
  • Zde se pracuje zbytečně, nerušte. versus Zde se pracuje, zbytečně nerušte.
  • Pojďme jíst děti. versus Pojďme jíst, děti.

Počet znaků

Zjistit kolikrát se opakuje námi hledaný znak, v ukázkovém příkladu písmeno B.

Dim text As String text = "ABCBB" MsgBox Len(text) - Len(Replace(text, "B", ""))

Pro zjišťování počtu v buňkách:

MsgBox Len(Range("A1")) - Len(Replace(Range("A1"), "B", ""))

Celkem znaků

Kolik znaků obsahuje námi kontrolováný text.

Dim text As String text = "Počet znaků v textu." MsgBox Len(text)

Pro zjišťování počtu znaku v buňce A1:

MsgBox Len(Range("A1"))

Zaměnit znaky

Jak zaměnit v textu jeden znak za jiný znak. Například písmeno o za a. Takže ze slova konec se stane kanec ;)

Dim ZdrojText As String Dim UpravenText As String ZdrojText = "Konec" UpravenText = Replace(ZdrojText, "o", "a") MsgBox UpravenText

Načtení zdroje z buňky:

ZdrojText = Range("A5").Value

Další příklady v přípravě

Další příklady přenesu z komentářů.

Ke stažení

Práce s textem - s VBA Excel - náhled souboru

Soubor Práce s textem - s VBA Excel soubor ve formátu *.xlsm ke stažení zdarma. Soubor využívá makra. Sešit obsahuje výše uvedené kód, ať si můžete rovnou vyzkoušet jejich práci.


Závěrem

Máte nějaký zajímavý příklad na práci s textem? Můžete kód umístit do komentářů.

Článek byl aktualizován: 01.11.2014 14:23

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:



Komentáře


Kuba

Přidáno: 04.04.16 05:12

Dobrý den, snažím se nahradit ve dvou sloupcích nahradit tečku za čárku v desetiném čísle. Boužel mi to vždy nahradí všechny tečky co to najde. Našel jsem nějaký kód, ale zdá se, že nefunguje. Dokážete mi prosím poradit? ActiveSheet.Columns("H:I").Replace _ What:=".", Replacement:=",", _ SearchOrder:=xlByColumns, MatchCase:=True Děkuji







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články

25.03.2017:
ROUNDUP, ROUNDDOWN - zaokrouhlování

07.04.2017:
Řazení Excel - bug - problém

09.04.2017:
Podmínkové funkce Excel - bug - problém


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2017 | 12055

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.