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

Nový videokurz na Seduo: Excel pro začátečníky

     

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

Práce s textem - Excel VBA


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


Přidání nového komentáře

Poznámka: Z časových důvodu není v mých sílách zodpovědět všechny dotazy. Děkuji za pochopení.




(vlož číslo padesátpět)

Z bezpečnostních důvodu dočasně nemůžete použít HTML značky, kromě <code> a </code> (pro vkládání VBA kódu). Děkuji za pochopení.
Děkuji, za Vaše komentáře.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu. V komentářích si tykáme. ;-)






Sdílejte

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

Nové články


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 - 2016 | 9040

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