Metin kutusunda yazım denetimi nasıl uygulanır?
Bir hücredeki metin dizesini yazım denetimi yapmak için Yazım Denetimi işlevini kolayca uygulayabiliriz, ancak bu özellik yazım denetimi için metin kutusuna uygulanmaz. Bu yazıda yazım denetimini bir metin kutusunda nasıl uygulayacağımı anlatacağım.
VBA kodu ile bir metin kutusunda yazım denetimi uygulayın
VBA kodu ile bir metin kutusunda yazım denetimi uygulayın
Bir metin kutusundaki metin dizesini hecelemek için aşağıdaki VBA kodu size bir iyilik yapabilir:
1. Öncelikle, lütfen tıklayarak bir metin kutusu ekleyin Geliştirici > Ekle > Metin Kutusu (ActiveX Kontrolü)ve bir metin kutusu çizmek için sürükleyin, ekran görüntüsüne bakın:
2. O zaman lütfen çıkın Tasarım Modu metin dizesini metin kutusuna ihtiyacınız olduğu şekilde girmek için, metni yazdıktan sonra, Tasarım Moduve seçmek için metin kutusunu sağ tıklayın Kodu Görüntüle bağlam menüsünden, ekran görüntüsüne bakın:
3. Açılan Uygulamalar için Microsoft Visual Basic penceresi, lütfen orijinal kodu Modüle aşağıdaki VBA kodu ile değiştirin.
VBA kodu: Metin kutusunda yazım denetimi uygulayın:
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 sonra tuşuna basın. F5 bu kodu çalıştırmanın anahtarı, Yazım iletişim kutusu bir kerede etkinleştirilirse, Yazım Aşağıdaki ekran görüntüsü gibi metin kutusuna yazım denetimi yapma işlevi:
İlgili yazılar:
Metin kutusu rengini Excel'deki değere göre nasıl değiştirebilirim?
Metin kutusuna resim nasıl eklenir?
Bir metin kutusunda varsayılan bir değer nasıl ayarlanır?
Metin kutusuna yalnızca sayıların girilmesine nasıl izin verilir?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!