|
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
K dispozici jsou tyto příklady:
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
aneb co udělá čárka umístěna na jiném místě ;)
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", ""))
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"))
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 přenesu z komentářů.
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.
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
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.
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ů.
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
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
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 - 2021 |