Excel VBA: Formátování buňky jako textu (3 metody)

Hugh West

06-06-2023 Makra & Excel VBA
  • Sdílet Toto
Hugh West

Tento článek ukazuje, jak formát a buňka jako text pomocí VBA kód v Excel pomocí 3 různých metod. S pomocí Text a Formátovací funkce a Rozsah . NumberFormat majetek , můžeme nastavit kód pro formátování čísel a snadno tak převést hodnotu buňky na text. Ponořme se do příkladů a použijme tyto techniky.

Stáhnout cvičebnici

Stáhněte si tento cvičební sešit a procvičujte si při čtení tohoto článku.

Formátovat buňku jako text.xlsm

3 vhodné metody formátování buněk jako textu pomocí VBA v aplikaci Excel

V této části si ukážeme, jak můžeme v Excelu formátovat buňku jako text pomocí VBA. Nejprve však musíme vědět, jak v Excelu otevřít okno editoru Visual Basic.

Psaní kódu v editoru Visual Basic

Sledujte kroky na otevřít . editor Visual Basic a napište tam nějaký kód.

  • Přejděte na Vývojář na kartě Pás karet aplikace Excel .
  • Klikněte na . Možnost Visual Basic.

  • V Visual Basic pro aplikace klikněte na Vložení rozevíracího seznamu na vybrat . Nový modul

Nyní, když nový modul je otevřeno , napište tam nějaký kód a stiskněte F5 na běh.

1. Použití vlastnosti Range.NumberFormat k formátování buňky jako textu

V tomto příkladu použijeme Vlastnost Range.NumberFormat v našem Kód VBA na formát a buňka jako text Na obrázku níže je v buňce C5 máme krátké datum že se chystáme změna jako text .

Nyní v editoru Visual Basic kopírovat a vložit následující kód . 

 Sub FormatCellAsText() Range("C5").NumberFormat = "@" End Sub

Nyní stiskněte F5 na spustit kód.

Zde můžeme vidět krátké datum naformátovaná buňka je změněno na textová hodnota .

Vysvětlení kódu:

  • Použili jsme Objekt rozsahu na vybrat . buňka v pracovním listu, které obsahují vstup
  • Na formát na vstupní hodnota jako text , musíme vložit NumberFormat hodnota jako "@".

Podobně můžeme použitím stejného kusu kódu změnit různé formáty čísel na text .

Přečtěte si více: Jak formátovat buňky a centrovat text pomocí aplikace Excel VBA (5 způsobů)

Podobná čtení

  • Jak změnit velikost písma celého listu pomocí aplikace Excel VBA
  • Jak psát 001 v Excelu (11 efektivních metod)
  • Zarovnání textu pomocí příkazového tlačítka VBA v aplikaci Excel (5 metod)
  • Jak přidat text za číslo pomocí vlastního formátu v aplikaci Excel (4 způsoby)
  • Jak psát první písmeno každého slova v aplikaci Excel velkými písmeny (4 způsoby)

2. Odkaz na funkci TEXT v kódu VBA pro formátování buňky jako textu

Na stránkách T EXT funkce v aplikaci Excel je funkce pracovního listu že převádí a číselná hodnota nebo řetězec na zadaný formát Ačkoli je to ne a Funkce VBA , můžeme jej použít odkazem na a Objekt funkce pracovního listu na formát a buňka na text Řekněme, že máme Dlouhé datum na adrese buňka B6 že chceme formát jako text .

Vložte následující kód v editor Visual Basic k dosažení tohoto cíle. 

 Sub FormatCellAsText() Range("C6") = WorksheetFunction.Text(Range("B6"), "'0") End Sub

Podle běh kód pomocí F5 převedeno na dlouhé datum do text Stejně tak můžeme formátovat buňku, která obsahuje různé formáty čísel na text .

Vysvětlení kódu:

  • Použili jsme Objekt rozsahu na vybrat . buňky v pracovním listu, které obsahují vstup a výstupní hodnoty.
  • Na stránkách Objekt WorksheetFunction nám umožnil použít Funkce TEXT na adrese Kód VBA .
  • Na stránkách Funkce TEXT potřebuje 2 argumenty -

hodnota - ... odkaz na vstupní buňku (v tomto příkladu B6 ).

format_text- jsme použili " ' 0 " na převést . hodnota na formát textu.

Přečtěte si více: Jak formátovat text v buňce aplikace Excel (10 přístupů)

3. Použití funkce formátování VBA k formátování buňky jako textu v aplikaci Excel

Na stránkách Funkce formátování je jedním z konverzní funkce ve VBA Excelu. Tato funkce vrací formátovaný výraz na základě formát to znamená. zadané jako druhý argument o funkce . V tomto příkladu pomocí následující kód my vytoužený a Dlouhé datum v buňce C5 na text . 

 Sub FormatCellAsText() Range("C6").Value = Format(Range("B6").Value, "'0") End Sub

Vysvětlení kódu:

  • Použili jsme Objekt rozsahu na vybrat . buňky v pracovním listu, které obsahují vstup a výstupní hodnoty.
  • Na stránkách Funkce formátování potřebuje 2 argumenty -

výraz - ... odkaz na vstupní buňku (v tomto příkladu B6 ).

formát - jsme použili " ' 0 " na převést . hodnota na formát textu.

Alternativní kód: 

 Sub FormatCellAsText() Range("C6").Value = " ' " & Format(Range("B6").Value, "0") End Sub

Přečtěte si více: Jak formátovat text tak, aby se v Excelu psalo první písmeno velkým písmem (10 způsobů)

Poznámky

  • Přidali jsme jednoduchá uvozovka ( ' ) před zero pro vstup do kód formátu čísla jako " ' 0 " v Text a Argument formátovacích funkcí na formát a buňka na textová hodnota.
  • Na zobrazit na kód spojené se 3 různými metodami, klikněte na . pravé tlačítko na název listu a vybrat . Možnost zobrazení kódu.

Závěr

Nyní víme, jak formátovat buňku jako text pomocí kódu VBA v aplikaci Excel na 3 různých příkladech. Doufejme, že vám to pomůže používat tyto metody s větší jistotou. Jakékoli dotazy nebo návrhy nezapomeňte uvést v komentáři níže.

Předchozí příspěvek Jak používat funkci TRUE v aplikaci Excel (10 ideálních příkladů)
Další příspěvek Jak upravit tabulku Pivot v aplikaci Excel (5 metod)

Hugh West je velmi zkušený školitel a analytik Excelu s více než 10 lety zkušeností v oboru. Má bakalářský titul v oboru Účetnictví a finance a magisterský titul v oboru Business Administration. Hugh má vášeň pro výuku a vyvinul jedinečný přístup k výuce, který lze snadno sledovat a pochopit. Jeho odborné znalosti Excelu pomohly tisícům studentů a profesionálů po celém světě zlepšit své dovednosti a vyniknout ve své kariéře. Prostřednictvím svého blogu Hugh sdílí své znalosti se světem a nabízí bezplatné výukové programy Excelu a online školení, které jednotlivcům a firmám pomohou dosáhnout jejich plného potenciálu.