Použití funkcí vlevo, vpravo, uprostřed a délka v jazyce Visual Basic for Applications v Excelu

Souhrn

Tento článek obsahuje příklady manipulace s textovými řetězci pomocí funkcí Left, Right, Mid a Len v jazyce Microsoft Visual Basic for Applications v Microsoft Excelu.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Technici podpory společnosti Microsoft mohou pomoci vysvětlit funkce konkrétního postupu. Nebudou však upravovat tyto příklady tak, aby poskytovaly přidanou funkcionalitu nebo sestavovaly postupy, které splňují vaše specifické požadavky.

Následující postup ukazuje použití funkcí Left, Right, Mid a Len jazyka Microsoft Visual Basic for Applications v Aplikaci Microsoft Excel:

1. Vytvořte nový prázdný excelový sešit.

2. Stisknutím kláves ALT+F11 otevřete Editor jazyka Visual Basic.

3. V nabídce Vložit, klikněte na Modul.

4. Do nového listu modulu zadejte následující makro.

         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
   
   

Pokud chcete zobrazit příklad funkcí Left, Right, Mid a Len, použijte jeden z následujících postupů podle verze Excelu, kterou používáte:

• V aplikaci Microsoft Office Excel 2007 klepněte na kartu Vývojář , klepněte na tlačítko Makra ve skupině Kód , vyberte makro pro požadovanou funkci a klepněte na tlačítko Spustit
• V aplikaci Microsoft Office Excel 2003 a v dřívějších verzích aplikace Excel klikněte v nabídce Nástroje na příkaz Makra, vyberte makro požadované funkce a potom klikněte na tlačítko Spustit.

Odkazy

Další informace o těchto funkcích získáte zadáním následujícího textu na list modulu:

• Len
• Vpravo
• Vlevo
• Polovině

Zvýrazněte funkci, o které chcete získat další informace, a stiskněte klávesu F1.