Tweet

Práce s textem - Excel VBA

Senzam příkladů

K dispozici jsou tyto příklady:

• Pozice znaku
• Počet určitého znaků
• Celkem znaků
• Zaměnit znaky
• ...
• Ke stažení... - praktické příklady ke stažení zdarma

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í

Soubor Práce s textem - s VBA Excel 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: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře