Les på engelsk

Del via


Bruke funksjonene venstre, høyre, midt og lengde i Visual Basic for Applications i 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:

  1. Opprett en ny, tom Excel-arbeidsbok.

  2. Åpne Visual Basic-Redaktør ved å trykke ALT+F11.

  3. I Sett inn-menyen klikker du Modul.

  4. 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."
          End Sub
    
          Sub 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
          End Sub
    
          Sub 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
          End Sub
    
          Sub 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)
          End Sub
    
    

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.