Użyj funkcji lewej, prawej, środkowej i len w Visual Basic for Applications w programie Excel

  • Artykuł
  • Dotyczy:
    Microsoft Excel

Podsumowanie

Ten artykuł zawiera przykłady manipulowania ciągami tekstowymi przy użyciu funkcji Left, Right, Mid i Len w usłudze Microsoft Visual Basic for Applications w programie Microsoft Excel.

Więcej informacji

Firma Microsoft podaje przykłady programowania tylko dla celów ilustracyjnych, nie udzielając żadnej rękojmi, wyrażonej wprost ani dorozumianej, w tym także, ale nie tylko, dorozumianej rękojmi co do przydatności handlowej lub do określonych celów. W tym artykule zakłada się, że czytelnik zna demonstrowany język programowania oraz narzędzia używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy Pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu działania określonej procedury. Nie będą oni jednak modyfikować tych przykładów w celu dodania funkcji ani konstruować nowych procedur celem dostosowania ich do potrzeb użytkownika.

Aby wykonać poniższą procedurę, przedstawiono użycie funkcji Lewa, Prawa, Środkowa i Len w programie Microsoft Visual Basic for Applications w programie Microsoft Excel:

  1. Utwórz nowy, pusty skoroszyt programu Excel.

  2. Otwórz Redaktor Visual Basic, naciskając klawisze ALT+F11.

  3. W menu Wstaw kliknij polecenie Moduł.

  4. W nowym arkuszu modułu wpisz następujące 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

Aby wyświetlić przykład funkcji Lewy, Prawy, Środkowy i Len, użyj jednej z następujących procedur, odpowiednio do używanej wersji programu Excel:

  • W programie Microsoft Office Excel 2007 kliknij kartę Deweloper , kliknij pozycję Makra w grupie Kod , wybierz makro dla żądanej funkcji, a następnie kliknij przycisk Uruchom
  • W programie Microsoft Office Excel 2003 i we wcześniejszych wersjach programu Excel kliknij pozycję Makra w menu Narzędzia , wybierz makro dla żądanej funkcji, a następnie kliknij przycisk Uruchom.

Informacje

Aby uzyskać więcej informacji na temat tych funkcji, wpisz następujący tekst w arkuszu modułu:

  • Len
  • Prawy
  • Lewy
  • Połowie

Wyróżnij funkcję, o której chcesz uzyskać więcej informacji, a następnie naciśnij klawisz F1.