Cuprins
Acest articol ilustrează cum să format a celulă ca text folosind VBA cod în Excel cu ajutorul a 3 metode diferite. Text și Funcții de formatare , iar Gama . NumberFormat proprietate , putem seta codul de format al numerelor pentru a converti cu ușurință valoarea unei celule în text. Să ne scufundăm în exemple și să aplicăm aceste tehnici.
Descărcați caietul de practică
Descărcați acest caiet de exerciții pentru a vă antrena în timp ce citiți acest articol.
Format Cell as Text.xlsm3 Metode adecvate pentru a formata celula ca text utilizând VBA în Excel
În această secțiune, vom demonstra cum putem formata celula ca text folosind VBA în Excel. Dar mai întâi, trebuie să știm cum să deschidem fereastra editorului Visual Basic în Excel.
Scrieți cod în Visual Basic Editor
Urmați etape la deschis la editor visual basic și să scrieți niște cod acolo.
- Mergeți la Dezvoltator din fila Panglica Excel .
- Faceți clic pe la Opțiunea Visual Basic.
- În Visual Basic pentru aplicații faceți clic pe fereastra Introduceți picătură la selectați la Modul nou
Acum că o modul nou este deschis , scrieți un cod acolo și apăsați F5 la a alerga.
1. Utilizarea proprietății Range.NumberFormat pentru a formata celula ca text
În acest exemplu, vom folosi Proprietatea Range.NumberFormat în Cod VBA la format a celulă ca text În captura de ecran de mai jos, în celula C5 avem un dată scurtă că vom schimbare ca text .
Acum, în editorul Visual Basic copie și pasta următoarele cod .
Sub FormatCellAsText() Range("C5").NumberFormat = "@" End Sub 
Acum apăsați F5 la rulează codul.
Aici putem vedea dată scurtă celula formatată este schimbat la un valoarea textului .
Codul Explicație:
- Am folosit Obiect de gamă la selectați la celulă din foaia de lucru care conține intrare
- La format la valoarea de intrare ca text , trebuie să punem NumberFormat valoare ca "@".
În mod similar, aplicând aceeași bucată de cod, putem schimba diferite formate de numere la text .
Citește mai mult: Cum să formatați celula și să centrați textul cu Excel VBA (5 moduri)
Lecturi similare
- Cum să schimbați dimensiunea fontului din întreaga foaie cu Excel VBA
- Cum să scrieți 001 în Excel (11 metode eficiente)
- Alinierea textului cu butonul de comandă VBA în Excel (5 metode)
- Cum să adăugați text după număr cu format personalizat în Excel (4 moduri)
- Cum să capitalizezi prima literă a fiecărui cuvânt în Excel (4 moduri)
2. Consultați funcția TEXT într-un cod VBA pentru a formata celula ca text
The T EXT funcția în Excel este un funcția foaie de lucru că convertește a valoare numerică sau șir de caractere la un format specificat . deși este nu a Funcția VBA , îl putem folosi făcând referire la un Fișă de lucru Funcție Obiect la format a celulă la text Să spunem că avem un Data lungă în celula B6 pe care dorim să format ca text .
Puneți următorul cod în editor visual basic pentru a realiza acest lucru.
Sub FormatCellAsText() Range("C6") = WorksheetFunction.Text(Range("B6"), "'0") End Sub De către rulează codul prin utilizarea F5 convertit la dată lungă într-un text De asemenea, putem formata o celulă care conține o valoare diferite formate de numere la text .
Codul Explicație:
- Am folosit Obiect de gamă la selectați la celule din foaia de lucru care conțin intrare și valorile de ieșire.
- The Obiect WorksheetFunction ne-a permis să folosim Funcția TEXT în Cod VBA .
- The Funcția TEXT are nevoie de 2 argumente...
valoare - de la referința celulei de intrare (în acest exemplu B6 ).
format_text- am folosit " ' 0 " la convertiți la valoare la format text.
Citește mai mult: Cum să formatați textul în celula Excel (10 abordări)
3. Utilizarea funcției VBA Format pentru a formata celula ca text în Excel
The Funcția de formatare este unul dintre funcții de conversie în VBA Excel. Aceasta returnează un expresie formatată pe baza format care este specificat ca al doilea argument a funcția . în acest exemplu, folosind următorul cod noi râvnit a Data lungă în celulă C5 la un text .
Sub FormatCellAsText() Range("C6").Value = Format(Range("B6").Value, "'0") End Sub 
Codul Explicație:
- Am folosit Obiect de gamă la selectați la celule din foaia de lucru care conțin intrare și valorile de ieșire.
- The Funcția de formatare are nevoie de 2 argumente...
expresie - de la referința celulei de intrare (în acest exemplu B6 ).
format- am folosit " ' 0 " la convertiți la valoare la format text.
Cod alternativ:
Sub FormatCellAsText() Range("C6").Value = " ' ' " & Format(Range("B6").Value, "0") End Sub Citește mai mult: Cum să formatați textul pentru a capitaliza prima literă în Excel (10 moduri)
Note
- Am adăugat un ghilimele simple ( ' ) înainte de zero pentru a intra în codul formatului de număr ca " ' 0 " în Text și Formatul funcțiilor argument la format a celulă la un valoarea textului.
- La vezi la cod asociate cu 3 metode diferite, click la butonul din dreapta pe numele foii și selectați la Opțiunea Vizualizare cod.
Concluzie
Acum, știm cum să formatați o celulă ca text folosind codul VBA în Excel cu 3 exemple diferite. Sperăm că vă va ajuta să folosiți aceste metode cu mai multă încredere. Orice întrebări sau sugestii nu uitați să le puneți în caseta de comentarii de mai jos.
