Bruke funksjonene venstre, høyre, midt og lengde i Visual Basic for Applications i Excel
Artikkel
Gjelder for:
Microsoft Excel
Sammendrag
Denne artikkelen inneholder eksempler på hvordan du manipulerer tekststrenger ved hjelp av funksjonene Left, Right, Mid og Len i Microsoft Visual Basic for Applications i Microsoft Excel.
Mer informasjon
Microsoft gir programmeringseksempler kun for illustrasjon, uten garanti hverken uttrykt eller antydet. Dette inkluderer, men er ikke begrenset til, de underforståtte garantiene for salgbarhet eller egnethet for et bestemt formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som blir demonstrert og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt prosedyre. Microsofts kundestøtteteknikere kan hjelpe til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å dekke dine spesifikke behov.
Følgende fremgangsmåte demonstrerer bruken av funksjonene Left, Right, Mid og Len i Microsoft Visual Basic for Applications i Microsoft Excel:
Opprett en ny, tom Excel-arbeidsbok.
Åpne Visual Basic-Redaktør ved å trykke ALT+F11.
I Sett inn-menyen klikker du Modul.
Skriv inn følgende makro i det nye modularket.
VB
Sub String_Len()
' Sets MyString.
MyString = InputBox("Enter some text.")
' Displays length of string.
MsgBox Prompt:="The length of the string is " & _
Len(MyString) & " characters."EndSubSub String_Left()
' Sets MyString.
MyString = InputBox("Enter some text.")
StringLen = Len(MyString)
Pos = InputBox("Please enter a number from 1 to " & StringLen)
' Takes the left number of specified characters.
Result = Left(MyString, Pos)
' Displays the result.
MsgBox Prompt:="The left " & Pos & " characters of """ & _
MyString & """ are: " & _
Chr(13) & Result
EndSubSub String_Right()
' Sets MyString.
MyString = InputBox("Enter some text.")
StringLen = Len(MyString)
Pos = InputBox("Please enter a number from 1 to " & StringLen)
' Takes the right number of specified digits.
Result = Right(MyString, Pos)
' Displays the result.
MsgBox Prompt:="The right " & Pos & " characters of """ & _
MyString & """ are: " & _
Chr(13) & Result
EndSubSub String_Mid()
' Sets MyString.
MyString = InputBox("Enter some text.")
' Sets starting position.
StartPos = InputBox _
("Give me a starting position (1 to " _
& Len(MyString) & ")")
' Determines length of string of text.
StringLen = Len(MyString) - StartPos + 1' Sets number of characters.
NumChars = InputBox _
("How many characters would you like? (From 1 to " & _
StringLen & ")")
MsgBox prompt:="The result is: " & _
Mid(MyString, StartPos, NumChars)
EndSub
Hvis du vil se et eksempel på funksjonene Venstre, Høyre, Midt og Lengde, bruker du én av følgende fremgangsmåter, avhengig av hvilken versjon av Excel du kjører:
Klikk fanen Utvikler i Microsoft Office Excel 2007, klikk Makroer i Kode-gruppen , velg makroen for funksjonen du vil bruke, og klikk deretter Kjør
Klikk Makroer på Verktøy-menyen i Microsoft Office Excel 2003 og i tidligere versjoner av Excel, velg makroen for funksjonen du vil bruke, og klikk deretter Kjør.
Referanser
Hvis du vil ha mer informasjon om disse funksjonene, skriver du inn følgende tekst på et modulark:
Len
Høyre
Venstre
Midt
Uthev funksjonen du vil ha mer informasjon om, og trykk deretter F1.
Do you want to know more about the built-in programming functions of Business Central? This module will discuss the different available functions that you can use when developing for Business Central.