Excel VBA: oblikovanje celice kot besedila (3 metode)

Hugh West

06-06-2023 Makroji in Excel VBA
  • Deliti To
Hugh West

Ta članek prikazuje, kako format a celica kot besedilo uporaba VBA kodo v Excel s tremi različnimi metodami. S pomočjo Besedilo in . Funkcije formata in Razpon . NumberFormat lastnost , lahko nastavimo kodo formata števila za enostavno pretvorbo vrednosti celice v besedilo. Potopimo se v primere in uporabimo te tehnike.

Prenesi delovni zvezek za prakso

Prenesite ta delovni zvezek za vadbo, ki ga lahko uporabljate med branjem tega članka.

Oblikujte celico kot besedilo.xlsm

3 primerne metode za oblikovanje celice kot besedila z uporabo VBA v Excelu

V tem razdelku bomo prikazali, kako lahko v Excelu z uporabo VBA celico oblikujemo kot besedilo. Najprej pa moramo vedeti, kako odpreti okno urejevalnika Visual Basic v Excelu.

Pisanje kode v urejevalniku Visual Basic

Sledite koraki na . odprta . urejevalnik Visual Basic in vanj napišite nekaj kode.

  • Pojdite na Razvijalec v zavihku Excelov trak .
  • Kliknite . . Možnost Visual Basic.

  • V Visual Basic za aplikacije kliknite na okno Vstavljanje spustne vrstice na . izberite . Nov modul

Zdaj, ko je a nov modul je . odprl , napišite nekaj kode in pritisnite F5 na . teči.

1. Uporaba lastnosti Range.NumberFormat za oblikovanje celice kot besedila

V tem primeru bomo uporabili Lastnost Range.NumberFormat v našem Koda VBA na . format a celica kot besedilo Na spodnji sliki zaslona je v celici C5 imamo a kratek datum da bomo sprememba kot besedilo .

Zdaj v urejevalniku Visual Basic kopiranje in . prilepite naslednje koda . 

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

Zdaj pritisnite F5 na . zagnati kodo.

Tukaj lahko vidimo kratek datum formatirana celica je spremenjeno v vrednost besedila .

Razlaga kode:

  • Uporabili smo Objekt obsega na . izberite . celica v delovnem listu, ki vsebujejo vnos
  • Na naslov format . vhodna vrednost kot besedilo , moramo vnesti NumberFormat vrednost kot "@".

Podobno lahko z uporabo istega dela kode spremenimo različne oblike številk na . besedilo .

Preberite več: Kako oblikovati celico in osrednje besedilo z Excelovim programom VBA (5 načinov)

Podobna branja

  • Kako spremeniti velikost pisave celotnega lista s programom Excel VBA
  • Kako napisati 001 v Excelu (11 učinkovitih metod)
  • Poravnava besedila z ukaznim gumbom VBA v Excelu (5 metod)
  • Kako dodati besedilo za številko z obliko po meri v Excelu (4 načini)
  • Kako v Excelu zapisati prvo črko vsake besede z veliko začetnico (4 načini)

2. Uporaba funkcije TEXT v kodi VBA za oblikovanje celice kot besedila

Spletna stran T EXT funkcija v Excelu je funkcija delovnega lista na spletni strani . pretvori a številčna vrednost ali niz v določen format Čeprav je ne a Funkcija VBA , ga lahko uporabimo tako, da se sklicujemo na Objekt funkcije delovnega lista na . format a celica na . besedilo Recimo, da imamo Dolgi datum na spletnem mestu celica B6 ki jih želimo format kot besedilo .

Postavite naslednja koda v urejevalnik Visual Basic za dosego tega cilja. 

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

Po teče kodo z uporabo F5 pretvorjeno . dolg datum v besedilo Podobno lahko oblikujemo celico, ki vsebuje različne oblike številk na . besedilo .

Razlaga kode:

  • Uporabili smo Objekt obsega na . izberite . celice v delovnem listu, ki vsebujejo vnos in . izhodne vrednosti.
  • Spletna stran Objekt WorksheetFunction nam je omogočil uporabo Funkcija TEXT na spletnem mestu Koda VBA .
  • Spletna stran Funkcija TEXT potrebuje 2 argumenta -

vrednost - ... sklic na vhodno celico (v tem primeru B6 ).

format_text- smo uporabili " ' 0 " na . pretvori . vrednost na . oblika besedila.

Preberite več: Kako oblikovati besedilo v Excelovi celici (10 pristopov)

3. Uporaba funkcije VBA Format za oblikovanje celice kot besedila v Excelu

Spletna stran Funkcija formata je eden od funkcije pretvorbe v Excelu VBA. Ta vrne formatiran izraz na podlagi format to je navedeno . kot drugi argument o funkcija . V tem primeru uporabite naslednja koda smo zaželeni a Dolgi datum v celici C5 v besedilo . 

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

Razlaga kode:

  • Uporabili smo Objekt obsega na . izberite . celice v delovnem listu, ki vsebujejo vnos in . izhodne vrednosti.
  • Spletna stran Funkcija formata potrebuje 2 argumenta -

izraz - ... sklic na vhodno celico (v tem primeru B6 ).

format - smo uporabili " ' 0 " na . pretvoriti . vrednost na . oblika besedila.

Alternativna koda: 

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

Preberite več: Kako oblikovati besedilo za prvo veliko črko v Excelu (10 načinov)

Opombe

  • Dodali smo enojni narekovaj ( ' ) pred nič za vstop v koda formata številke kot " ' 0 " v Besedilo in . Argument funkcije formata na . format a celica v vrednost besedila.
  • Na naslov ogled . koda povezane s tremi različnimi metodami, kliknite . desni gumb na ime lista in . izberite . Možnost prikaza kode.

Zaključek

Zdaj vemo, kako v Excelu s 3 različnimi primeri oblikujemo celico kot besedilo z uporabo kode VBA. Upamo, da vam bo to pomagalo pri bolj samozavestni uporabi teh metod. Morebitna vprašanja ali predloge ne pozabite postaviti v spodnje polje za komentarje.

Prejšnja objava Kako uporabiti funkcijo TRUE v Excelu (10 idealnih primerov)
Naslednja objava Kako urediti tabelo Pivot v Excelu (5 metod)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.