Excel 'de Visual Basic for Applications 'ta Left, Right, Mid ve Len işlevlerini kullanma

Not

Office 365 ProPlus, Microsoft 365 Kurumsal Uygulamaları olarak yeniden adlandırılıyor. Bu değişiklik hakkında daha fazla bilgi için, bu blog yazısını okuyun.

Özet

Bu makalede, Microsoft Excel 'de Microsoft Visual Basic for Applications 'ta sol, sağ, orta ve uzun işlevlerini kullanarak metin dizelerinin nasıl yönetilebileceği gösterilir.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Bununla birlikte, belirli gereksinimlerinizi karşılayacak ek işlevler veya yordamlar oluşturmak için bu örnekleri değiştirmeyecektir.

Aşağıdaki yordamda, Microsoft Excel 'de Microsoft Visual Basic for Applications 'ın Left, Right, Mid ve Len işlevlerinin kullanımı gösterilir:

  1. Yeni, boş bir Excel çalışma kitabı oluşturun.

  2. ALT + F11 tuşlarına basarak Visual Basic Düzenleyicisi 'Ni açın.

  3. Ekle menüsünde, Modül'e tıklayın.

  4. Yeni modül sayfasına aşağıdaki makroyu yazın.

          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
    
    

Left, Right, Mid ve Len işlevlerinin bir örneğini görmek için, çalıştırdığınız Excel sürümüne uygun olarak aşağıdaki yordamlardan birini kullanın:

  • Microsoft Office Excel 2007 ' te, Geliştirici sekmesine tıklayın, kod grubunda makrolar 'a tıklayın, Istediğiniz işlevin makrosunu seçin ve ardından Çalıştır 'a tıklayın.
  • Microsoft Office Excel 2003 ve Excel 'in önceki sürümlerinde, Araçlar menüsünde makrolar 'ı tıklatın, istediğiniz Işlevin makrosunu seçin ve Çalıştır'ı tıklatın.

Başvurular

Bu işlevler hakkında daha fazla bilgi için modül sayfasına aşağıdaki metni yazın:

  • Uzunluğu
  • Sağ
  • Sol
  • ID

Daha fazla bilgi edinmek istediğiniz işlevi vurgulayıp F1 tuşuna basın.