Šiame straipsnyje parodyta, kaip formatas a ląstelė kaip tekstas naudojant VBA kodas "Excel" naudojant 3 skirtingus metodus. Tekstas ir Formato funkcijos , ir Diapazonas . NumberFormat nuosavybė , galime nustatyti skaičių formato kodą, kad ląstelės reikšmę lengvai paverstume tekstu. Pasinerkime į pavyzdžius ir pritaikykime šiuos metodus.

Atsisiųsti praktikos sąsiuvinį

Atsisiųskite šį pratybų sąsiuvinį, kad galėtumėte atlikti pratimus skaitydami šį straipsnį.

3 tinkami būdai formuoti ląstelę kaip tekstą naudojant VBA programoje "Excel

Šiame skyriuje parodysime, kaip galime suformatuoti ląstelę kaip tekstą naudodami "Excel" VBA. Tačiau pirmiausia turime žinoti, kaip "Excel" atidaryti "Visual Basic" redaktoriaus langą.

Kodo rašymas "Visual Basic" redaktoriuje

Sekite žingsniai į Atviras . "Visual Basic" redaktorius ir parašykite ten tam tikrą kodą.

• Eikite į Kūrėjas skirtuką iš "Excel" juostelė .
• Spustelėkite . "Visual Basic" parinktis.

• Į "Visual Basic for Applications langą, spustelėkite Įterpti išskleidžiamąjį langelį į pasirinkite . Naujas modulis

Dabar, kai a naujas modulis yra . atidaryta , įrašykite ten tam tikrą kodą ir paspauskite F5 į paleisti.

1. Range.NumberFormat savybės naudojimas ląstelės formatavimui kaip teksto

Šiame pavyzdyje naudosime Savybė Range.NumberFormat mūsų VBA kodas į formatas a ląstelė kaip tekstas . Toliau pateiktoje ekrano kopijoje ląstelėje C5 turime trumpa data kad mes ketiname keisti kaip tekstas .

Dabar "Visual Basic" redaktoriuje kopijuoti ir įklijuokite šie dalykai kodas .

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

Dabar paspauskite F5 į paleisti kodą.

Čia matome trumpa data suformatuota ląstelė yra pakeistas į teksto reikšmė .

Kodo paaiškinimas:

• Mes naudojome Kategorijos objektas į pasirinkite . ląstelė darbalapyje, kuriame yra įvestis
• Į formatas . įvesties vertė kaip tekstas , turime įdėti NumberFormat vertė kaip "@".

Panašiai, taikydami tą pačią kodo dalį, galime pakeisti skirtingi skaičių formatai į tekstas .

Skaityti daugiau: Kaip formatuoti ląstelę ir centruoti tekstą naudojant "Excel VBA" (5 būdai)

Panašūs skaitiniai

• Kaip pakeisti viso lapo šrifto dydį naudojant "Excel VBA
• Kaip rašyti 001 "Excel" programoje (11 veiksmingų metodų)
• Teksto lygiavimas naudojant "Excel" VBA komandos mygtuką (5 metodai)
• Kaip pridėti tekstą po skaičiaus naudojant pasirinktinį "Excel" formatą (4 būdai)
• Kaip "Excel" programoje rašyti pirmąją kiekvieno žodžio raidę didžiąja raide (4 būdai)

2. Nuoroda į TEXT funkciją VBA kode, norint suformatuoti ląstelę kaip tekstą

Svetainė T EXT funkcija "Excel" programoje yra darbalapio funkcija kad konvertuoja a skaitinė reikšmė arba eilutė į nurodytas formatas . Nors tai ne a VBA funkcija , galime jį naudoti nurodydami į Darbalapio funkcijos objektas į formatas a ląstelė į tekstas Tarkime, kad turime Ilga data svetainėje ląstelė B6 kad mes norime formatas kaip tekstas .

Įdėkite šis kodas į "Visual Basic" redaktorius kad tai pasiektumėte.

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

Pagal veikia kodą naudodami F5 konvertuotas . ilgas pasimatymas į tekstas Panašiai galime suformatuoti ląstelę, kurioje yra skirtingi skaičių formatai į tekstas .

Kodo paaiškinimas:

• Mes naudojome Kategorijos objektas į pasirinkite . ląstelės darbalapyje, kuriame yra įvestis ir išvesties vertės.
• Svetainė Objektas WorksheetFunction leido mums naudoti TEKSTO funkcija svetainėje VBA kodas .
• Svetainė TEKSTO funkcija reikia 2 argumentai -

vertė - ... įvesties langelio nuoroda (šiame pavyzdyje B6 ).

format_text- naudojome " ' 0 " į konvertuoti . vertė į teksto formatas.

Skaityti daugiau: Kaip formatuoti tekstą "Excel" ląstelėje (10 būdų)

3. VBA formato funkcijos naudojimas formuojant ląstelę kaip tekstą "Excel" programoje

Svetainė Formato funkcija yra vienas iš konvertavimo funkcijos VBA Excel programoje. Tai grąžina suformatuota išraiška remiantis formatas tai yra nurodyta kaip antrasis argumentas iš funkcija . Šiame pavyzdyje naudojant šis kodas mes trokštamas a Ilga data ląstelėje C5 į tekstas .

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

Kodo paaiškinimas:

• Mes naudojome Kategorijos objektas į pasirinkite . ląstelės darbalapyje, kuriame yra įvestis ir išvesties vertės.
• Svetainė Formato funkcija reikia 2 argumentai -

išraiška - ... įvesties langelio nuoroda (šiame pavyzdyje B6 ).

formatas - naudojome " ' 0 " į konvertuoti . vertė į teksto formatas.

Alternatyvus kodas:

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

Skaityti daugiau: Kaip "Excel" formatuoti tekstą, kad būtų rašoma pirmoji didžioji raidė (10 būdų)

Pastabos

• Pridėjome vienguba kabliataškė ( " ) prieš nulis įvesti numerio formato kodas kaip " ' 0 " į Tekstas ir Formato funkcijų argumentas į formatas a ląstelė į teksto reikšmė.
• Į peržiūrėti . kodas susiję su 3 skirtingais metodais, spustelėkite . dešinysis mygtukas apie lapo pavadinimas ir pasirinkite . Peržiūrėti kodo parinktį.

Išvada

Dabar žinome, kaip suformatuoti ląstelę kaip tekstą naudojant VBA kodą "Excel" programoje, pateikdami 3 skirtingus pavyzdžius. Tikimės, kad tai padės jums drąsiau naudoti šiuos metodus. Jei turite klausimų ar pasiūlymų, nepamirškite jų pateikti toliau esančiame komentarų laukelyje.