Metin kutusunda yazım denetimi nasıl yapılır?
Bir hücredeki metin dizesinde yazım denetimini uygulamak için Yazım işlevini kolayca kullanabilirsiniz; ancak bu özellik, metin kutularında otomatik olarak devreye girmez. Bu makalede, bir metin kutusunda yazım denetiminin nasıl yapılacağını öğreneceksiniz.
Metin kutusunda VBA koduyla yazım denetimi uygulama
Metin kutusunda VBA koduyla yazım denetimi uygulama
Bir metin kutusundaki metin dizesi üzerinde yazım denetimi yapmak için aşağıdaki VBA kodu size yardımcı olabilir:
1. İlk olarak, bir metin kutusu eklemek için Geliştirici > Ekle > Metin Kutusu (ActiveX Denetimi) seçeneğine tıklayın ve ardından metin kutusunu çizmek üzere sürükleyin; ekran görüntüsüne bakın:
2. Ardından lütfen Tasarım Modu’ndan çıkın ve ihtiyacınıza göre metin kutusuna metin girin. Metni yazdıktan sonra Tasarım Modu özelliğini tekrar etkinleştirin, ardından metin kutusuna sağ tıklayıp bağlam menüsünden Kodu Görüntüle seçeneğini seçin; 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 koduyla Modül içinde değiş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. Ardından bu kodu çalıştırmak için F5 tuşuna basın; böylece Yazım iletişim kutusu hemen etkinleşir. Daha sonra aşağıdaki ekran görüntüsünde gösterildiği gibi metin kutusundaki metni denetlemek için Yazım işlevini kullanabilirsiniz:
İlgili makaleler:
Excel'de metin kutusu rengini değere göre nasıl değiştirebilirsiniz?
Metin kutusuna resim nasıl eklenir?
Metin kutusuna varsayılan değer nasıl atanır?
Metin kutusuna yalnızca sayı girişine nasıl izin verilir?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar