Metin kutusunda yazım denetimi nasıl uygulanır?

Bir hücreden metin dizesini yazım denetimi yapmak için Yazım Kontrolü fonksiyonunu kolayca uygulayabiliriz, ancak bu özellik, yazım denetimi için metin kutusuna uygulanmaz. Bu makalede, bir metin kutusunda yazım denetiminin nasıl uygulanacağını anlatacağım.

VBA kodu ile metin kutusunda yazım denetimi uygulama

VBA kodu ile metin kutusunda yazım denetimi uygulama

Bir metin kutusundaki metin dizesinde yazım denetimi yapmak için aşağıdaki VBA kodu size yardımcı olabilir:

1. İlk olarak, lütfen Geliştirici > Ekle > Metin Kutusu (ActiveX Kontrolü) öğesine tıklayarak bir metin kutusu ekleyin ve bir metin kutusu çizmek için sürükleyin, aşağıdaki ekran görüntüsüne bakın:

2. Ardından, lütfen metin kutusuna ihtiyacınız olan metin dizesini girebilmek için Tasarım Modu'ndan çıkın, metni yazdıktan sonra Tasarım Modu'nu yeniden etkinleştirin ve metin kutusuna sağ tıklayarak içerik menüsünden Kodu Görüntüle'yi seçin, aşağıdaki ekran görüntüsüne bakın:

3. Açılan Microsoft Visual Basic for Applications penceresinde, lütfen orijinal kodu aşağıdaki VBA kodu ile değiştirin ve kodu Modül'e yerleştirin.

VBA kodu: Metin kutusunda yazım denetimi uygulama:

Sub SpellChkRvw_Click()
    Dim xObject As Object
    Dim xCell As Range
    On Error Resume Next
    Set xCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)
    If ActiveSheet.OLEObjects.Count > 0 Then
        For Each xObject In ActiveSheet.OLEObjects
            xCell = xObject.Object.Text
            xCell.CheckSpelling , , , 1033
            xObject.Object.Text = xCell
        Next
    End If
End Sub

4. Ve ardından bu kodu çalıştırmak için F5 tuşuna basın, Yazım iletişim kutusu hemen etkinleştirilir, daha sonra aşağıdaki ekran görüntüsünde gösterildiği gibi metin kutusundaki metni yazım denetimi yapmak için Yazım Kontrolü fonksiyonunu kullanabilirsiniz:

İlgili makaleler:

Excel'de değere göre metin kutusu rengini nasıl değiştirirsiniz?

Metin kutusuna nasıl resim eklenir?

Bir metin kutusunda varsayılan değer nasıl ayarlanır?

Metin kutusuna yalnızca sayı girişine nasıl izin verilir?