Teksts ir Excel darblapas funkcija, taču to var izmantot arī VBA, vienlaikus izmantojot ar to diapazona rekvizītu, šīs funkcijas funkcija ir līdzīga darblapas funkcijai, un tas prasa vienādu skaitu argumentu, kas ir vērtības, kas jāievada konvertēts un noteikts ciparu formāts.
Excel VBA teksta funkcija
TEXT ir funkcija, kas pieejama kopā ar darblapu, taču diemžēl tā nav iebūvēta funkcija programmā Excel VBA. Lai piekļūtu šai funkcijai, mums VBA jāizmanto darblapas funkciju klases objekts. Teksta funkcija programmā Excel pārveido vērtību noteiktā skaitļa formātā.
Viena no šīs funkcijas kā argumentu problēmām. Ikreiz, kad izmantojam VBA darblapas funkciju klasi, mēs nesaskatām skaidru sintaksi līdzīgi kā mūsu darblapā. Tajā vienkārši ir teikts “Arg1” un “Arg2”.
- Arg1 ir vērtība, kurai mums jāpielieto formatējums.
- Arg2 ir formatējums, kas mums jāpielieto, un mums jānorāda formatēšanas kods.
VBA teksta funkcijas piemēri programmā Excel
Tālāk ir norādīti Excel VBA teksta funkcijas piemēri.
1. piemērs
Ļaujiet man jums parādīt vienkāršu TEXT piemēru VBA Excel. Apskatiet zemāk redzamo kodu Visual Basic.
Kods:
Apakšteksta_piemērs1 () Dim FormattingValue kā virkne Dim FormattingResult As String FormattingValue = 0,564 FormattingResult = WorksheetFunction.Text (FormattingValue, "hh: mm: ss AM / PM") MsgBox FormattingResult End Sub
Pirmkārt, divus mainīgos esmu deklarējis kā virkni VBA.
Dim FormattingValue as String Dim FormattingResult As String
Pirmajam mainīgajam esmu piešķīris formatēšanas numuru, kas mums jāformatē.
FormattingValue = 0,564
Tagad vēl vienam mainīgajam esmu piešķīris funkciju TEXT.
FormattingResult = WorksheetFunction.Text (FormattingValue, "hh: mm: ss AM / PM")
Ja novērojat, es esmu izmantojis laika formatējumu, ti, “hh: mm: ss AM / PM”.
Tad, visbeidzot, esmu uzlicis VBA ziņojumu lodziņu, lai parādītu rezultātu.
MsgBox FormattingResult
Kad es palaidu kodu TEXT, skaitlim 0.564 tiks piemērots laika formāts un rezultāts tiks parādīts zemāk.
Tātad, mēs saņēmām laiku kā “ 01:32:10 PM ”.
2. piemērs
Līdzīgi kā datuma formāta piemērā, šajā piemērā esam veikuši dažas nelielas izmaiņas. Zemāk ir kods.
Kods:
Apakšteksta_piemērs2 () Dim FormattingValue kā virkne Dim FormattingResult As String FormattingValue = 43585 FormattingResult = WorksheetFunction.Text (FormattingValue, "DD-MMM-GGGG") MsgBox FormattingResult End Sub
No iepriekšējā koda esmu mainījis formatēšanas vērtību no 0,565 uz 43585 un mainījis formatēšanas stilu kā “DD-MMM-GGGG”.
Formatēšana tiks piemērota skaitlim 43585 kā datums, un rezultāts ir šāds.
Lietojiet formatēšanu šūnām
Mēs esam redzējuši vienkāršus piemērus. Tagad apskatiet, kā strādāt ar šūnām darblapā. Šajā piemērā apskatiet tālāk sniegtos datus.
Visiem šiem skaitļiem mums jāpiemēro laika formāts. Šis kods lietos formatējumu.
Kods:
Apakšteksta_piemērs3 () Dim k kā skaitlis k = 1 līdz 10 šūnām (k, 2). Vērtība = WorksheetFunction.Text (šūnas (k, 1). Vērtība, "hh: mm: ss AM / PM") Nākamais k beigas Apakšgrupa
Šis kods veiks cilpu 10 šūnās un lietos zemāk esošo formatējumu.
Līdzīgi šim, izmantojot funkciju VBA TEXT, šūnām varam piemērot ciparu formatējumu.
