De functies links, rechts, midden en lengte gebruiken in Visual Basic for Applications in Excel

Samenvatting

Dit artikel bevat voorbeelden van het bewerken van tekenreeksen met de functies Links, Rechts, Midden en Lengte in Microsoft Visual Basic for Applications in Microsoft Excel.

Meer informatie

Microsoft verstrekt programmeervoorbeelden alleen ter illustratie, zonder expliciete of impliciete garantie. daaronder mede begrepen, maar niet beperkt tot impliciete garanties met betrekking tot de verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal VBScript, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. Ondersteuningsmedewerkers van Microsoft kunnen helpen bij de uitleg over de functionaliteit van een bepaalde procedure. Deze medewerkers zullen de voorbeelden echter niet aanpassen om extra functionaliteit toe te voegen of om procedures te maken die aan uw specifieke eisen voldoen.

In de volgende procedure ziet u het gebruik van de functies Links, Rechts, Midden en Lengte van Microsoft Visual Basic for Applications in Microsoft Excel:

1. Een nieuwe, lege Excel-werkmap maken.

2. Open de Visual Basic-Editor door op Alt+F11 te drukken.

3. Klik op Module in het menu Invoegen.

4. Typ de volgende macro in het nieuwe moduleblad.

         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
   
   

Als u een voorbeeld wilt zien van de functies Links, Rechts, Midden en Lengte, gebruikt u een van de volgende procedures, voor de versie van Excel die u gebruikt:

• Klik in Microsoft Office Excel 2007 op het tabblad Ontwikkelaars , klik op Macro's in de groep Code , selecteer de macro voor de gewenste functie en klik vervolgens op Uitvoeren
• Klik in Microsoft Office Excel 2003 en in eerdere versies van Excel op Macro's in het menu Extra , selecteer de macro voor de gewenste functie en klik vervolgens op Uitvoeren.

Verwijzingen

Typ de volgende tekst op een moduleblad voor meer informatie over deze functies:

• Len
• Rechts
• Links
• Midden

Markeer de functie waarover u meer informatie wilt en druk vervolgens op F1.