seychellesartprojects.org

Teksts ir Excel darblapas funkcija, bet 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 problēmām ir argumenti. Ikreiz, kad izmantojam VBA darblapas funkciju klasi, mēs neredzam 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.

Šo VBA teksta Excel veidni varat lejupielādēt šeit - VBA teksta Excel veidne

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 lietojis laika formatējumu, ti, “hh: mm: ss AM / PM”

Tad beidzot 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 būs šā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. Šim kodam tiks piemērots formatējums.

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 izmantos formatējumu, kā norādīts zemāk.

Līdzīgi šim, izmantojot funkciju VBA TEXT, šūnām varam piemērot ciparu formatējumu.