Tekst er en regnearksfunktion i Excel, men den kan også bruges i VBA, mens du bruger rækkeviddeegenskaben med den, funktionen til denne funktion svarer til regnearkfunktionen, og det tager det samme antal argumenter, som er de værdier, der skal være konverteret og et specificeret nummerformat.
Excel VBA tekstfunktion
TEKST er den funktion, der er tilgængelig med regneark, men desværre er den ikke en indbygget funktion i Excel VBA. For at få adgang til denne funktion skal vi bruge regnearkets funktionsklasseobjekt i VBA. Tekstfunktionen i Excel konverterer en værdi til et angivet nummerformat.
Et af problemerne med denne funktion som argumenter. Når vi bruger VBA-regnearkets funktionsklasse, får vi ikke den tydelige syntaks ligesom i vores regneark. Der står bare "Arg1" og "Arg2".
- Arg1 er den værdi, vi skal bruge formateringen til.
- Arg2 er den formatering, vi har brug for, og vi skal angive formateringskoden.
Eksempler på VBA-tekstfunktion i Excel
Nedenfor er eksemplerne på Excel VBA-tekstfunktion.
Eksempel nr. 1
Lad mig vise dig et simpelt eksempel på TEXT i VBA Excel. Se nedenstående kode i Visual Basic.
Kode:
Undertekst_eksempel1 () Dim formateringsværdi som streng Dim formatering resultat som streng formateringsværdi = 0,564 formateringsresultat = regnearkfunktion.tekst (formateringsværdi, "tt: mm: ss AM / PM") MsgBox formatering resultat slut sub
For det første har jeg erklæret to variabler som en streng i VBA.
Dim FormattingValue As String Dim FormattingResult As String
Til den første variabel har jeg tildelt formateringsnummeret, som vi skal formatere.
Formateringsværdi = 0,564
Nu har jeg tildelt TEXT-funktionen til en anden variabel.
FormattingResult = WorksheetFunction.Text (FormattingValue, "tt: mm: ss AM / PM")
Hvis du observerer, har jeg anvendt tidsformateringen, dvs. "tt: mm: ss AM / PM."
Så endelig har jeg anvendt et VBA-meddelelsesfelt for at vise resultatet.
MsgBox FormattingResult
Når jeg kører koden TEKST-funktionen vil anvende tidsformat til tallet 0.564 og vise resultatet som nedenfor.
Så vi fik tiden som “ 01:32:10 PM ”.
Eksempel 2
I lighed med datoformateksemplet har vi foretaget nogle mindre ændringer i dette eksempel. Nedenfor er koden.
Kode:
Undertekst_eksempel2 () Dim formateringsværdi som streng Dim formateringResult som streng formateringsværdi = 43585 FormattingResult = regnearkfunktion.Tekst (formateringsværdi, "DD-MMM-ÅÅÅÅ") MsgBox formateringResultat slut sub
Fra den forrige kode har jeg ændret formateringsværdien fra 0,565 til 43585 og ændret formateringstil som "DD-MMM-ÅÅÅÅ."
Dette vil anvende formateringen til nummeret 43585 som datoen, og resultatet er som følger.
Anvend formatering på celler
Vi har set enkle eksempler. Se nu på, hvordan du arbejder med celler i et regneark. Se dette nedenstående data for dette eksempel.
For alle disse tal skal vi anvende tidsformatet. Denne kode anvender formateringen.
Kode:
Undertekst_eksempel3 () Dim k som heltal For k = 1 til 10 celler (k, 2). Værdi = ArbejdsarkFunktion.Text (Celler (k, 1). Værdi, "tt: mm: ss AM / PM") Næste k Slut Sub
Denne kode løber gennem 10 celler og anvender formateringen nedenfor.
På denne måde kan vi ved hjælp af VBA TEXT-funktionen anvende nummerformatering på cellerne.
