Excel'de Visual Basic for Applications sol, sağ, orta ve uzunluk işlevlerini kullanma

• Şunlara uygulanır:

  Microsoft Excel

Özet

Bu makalede, Microsoft Excel'de Microsoft Visual Basic for Applications'da Sol, Sağ, Orta ve Len işlevlerini kullanarak metin dizelerini işleme örnekleri yer alır.

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ğini açıklamaya yardımcı olabilir. Ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmeyeceklerdir.

Aşağıdaki yordamda Microsoft Excel'de Microsoft Visual Basic for Applications Sol, Sağ, Orta ve Len işlevlerinin kullanımı gösterilmektedir:

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

2. ALT+F11 tuşlarına basarak Visual Basic Düzenleyici 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
   
   

Sol, Sağ, Orta ve Uzunluk 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'de Geliştirici sekmesine tıklayın, Kod grubunda Makrolar'a tıklayın, istediğiniz işlevin makrosunu seçin ve çalıştır'a tıklayın
• Microsoft Office Excel 2003'te ve Excel'in önceki sürümlerinde, Araçlar menüsünde Makrolar'a tıklayın, istediğiniz işlevin makrosunu seçin ve çalıştır'a tıklayın.

Başvurular

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

• Len
• Sağ
• Sol
• Orta

Hakkında daha fazla bilgi edinmek istediğiniz işlevi vurgulayın ve F1 tuşuna basın.