Använd funktionerna vänster, höger, mitt och längd i Visual Basic for Applications i Excel

Anteckning

Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.

Sammanfattning

Den här artikeln innehåller exempel på hur du kan ändra textsträngar med hjälp av funktionerna Vänster, Höger, Mitt och Längd i Microsoft Visual Basic for Applications i Microsoft Excel.

Mer information

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa dig att förklara funktionaliteten i en viss procedur. De ändrar dock inte de här exemplen för att ge ytterligare funktioner eller skapa procedurer så att de uppfyller dina specifika krav.

Följande procedur visar hur du använder funktionerna Vänster, Höger, Mitt och Längd i Microsoft Visual Basic for Applications i Microsoft Excel:

  1. Skapa en ny, tom Excel arbetsbok.

  2. Öppna Visual Basic genom att trycka på ALT+F11.

  3. Klicka på Modul på Infoga-menyn.

  4. Skriv följande makro på det nya modulbladet.

          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
    
    

Om du vill se ett exempel på funktionerna Vänster, Höger, Mitt och Längd använder du någon av följande procedurer, lämplig för den version av Excel du kör:

  • I Microsoft Office Excel 2007 klickar du på fliken Utvecklare, klickar på Makron i gruppen Kod, markerar makrot för den funktion du vill använda och klickar sedan på Kör
  • I Microsoft Office Excel 2003 och i tidigare versioner av Excel klickar du på Makron på Verktyg-menyn, markerar makrot för den funktion du vill använda och klickar sedan på Kör.

Referenser

Om du vill ha mer information om de här funktionerna skriver du följande text på ett modulblad:

  • Längd
  • Höger
  • Vänster
  • Mid

Markera den funktion som du vill ha mer information om och tryck sedan på F1.