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?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin