Ana içeriğe atla

Metin dizesini Excel'de büyük / küçük / uygun duruma nasıl zorlayabilirim?

Excel'de, hücrelere bazı harf veya sözcükler girdiğinizde, küçük harf veya büyük harfleri girmiş olsanız bile metin dizelerini büyük harfe zorlamak istersiniz ve bunun tersi de geçerlidir. Çoğumuz Excel'deki Veri Doğrulama özelliğini düşünebiliriz, bu fonksiyonla, metnin doğru durumunu yazmadığımızda bir uyarı alacağız. Bu makalede, metni ihtiyaç duyduğunuz şekilde büyük harf, küçük harf veya doğru harfe zorlamanın bazı ilginç yollarını tanıtacağım.

Veri Doğrulama ile metin dizelerini büyük / küçük / uygun harfe zorla

Metin dizelerini VBA kodu ile büyük / küçük / uygun harfe zorlayın

Kutools for Excel ile metni BÜYÜK HARF / küçük harf / Düzgün Harf olarak değiştirin iyi fikir3

Veri Doğrulama, Excel'de güçlü bir araçtır, birçok işlemi yapmamıza yardımcı olabilir, onun yardımıyla, yazarken metin dizelerinin büyük harfli, küçük harfli veya uygun büyük harflerini de zorlayabiliriz, lütfen aşağıdaki işlemleri yapın:

1. Tıklamaya git Veri > veri Doğrulama > veri Doğrulama, ekran görüntüsüne bakın:

doc-force-büyük harf 1

2. In veri Doğrulama iletişim kutusunun altında Ayarlar sekmesinde, izin vermek açılır liste ve seçin görenek seçenek, sonra formül metin kutusu, bu formülü girin = TAM (ÜST (A1), A1)(A1 bu özelliği uygulayacağınız bir sütun anlamına gelir, ihtiyacınıza göre değiştirebilirsiniz), ekran görüntüsüne bakın:

doc-force-büyük harf 1

3. Sonra ihtiyacınız olan bir uyarı oluşturabilirsiniz, lütfen tıklayın Hata Uyarısı sekmesini seçin dur itibaren stil açılır liste, sağ köşede Hata mesajı metin kutusu, kendi uyarı mesajınızı girin, ekran görüntüsüne bakın:

doc-force-büyük harf 1

4. Ve sonra tıklayın OK diyaloğu kapatmak için, artık metin dizesini A sütununa büyük harf olarak girmeden girdiğinizde, büyük harfleri girmenizi hatırlatmak için bir uyarı kutusu açılacaktır.

doc-force-büyük harf 1

Not:

Metin dizelerini küçük harfe veya büyük / küçük harfe zorlamanız gerekiyorsa, lütfen aşağıdaki formülleri veri Doğrulama adım 2.

Küçük harfe zorla: = TAM (LOWER (A1); A1);

Uygun duruma zorla: = TAM (DOĞRU (A1); A1)

Aşağıdaki VBA kodu ile küçük harfli kelimeleri bir hücreye girdiğinizde, küçük harfli metin otomatik olarak büyük harflere değiştirilecektir.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. Ardından soldan kullanılmış çalışma sayfanızı seçin Proje Gezginiaçmak için çift tıklayın modülve ardından aşağıdaki VBA kodunu kopyalayıp boş Modüle yapıştırın:

VBA kodu: Metin dizesini büyük harfe zorla

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

doc-force-büyük harf 1

3. Ardından çalışma sayfasına dönmek için bu kodu kaydedin ve kapatın, şimdi metin dizesi küçük veya uygun olduğunda girdiğinizde, ekrana dokunduktan sonra büyük harf olacaktır. Keşfet otomatik olarak anahtar.

Notlar:

1. Bu kod tüm çalışma sayfasına uygulanır.

2. P'yi bulamazsanızroject Explorer Bölmesi pencerede tıklayabilirsiniz Görüntüle > Proje Gezgini açmak için.

3. Kelimeleri küçük harf veya uygun büyük harfe zorlamak için aşağıdaki VBA kodunu uygulayabilirsiniz: (Prosedür yukarıdakiyle aynıdır)

VBA kodu: Metin dizesini Küçük harfe zorla

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

VBA kodu: Metin dizesini uygun büyük / küçük harfe zorla

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

Yalnızca bazı belirli metinleri BÜYÜK HARF, küçük harf veya Özel Harf olarak değiştirmek istiyorsanız, Vakayı Değiştir yarar Kutools for Excel çabucak halletmek için.

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 
Bedava indir
30 günde ücretsiz tam özellikli

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. Büyük / küçük harf değiştirmek istediğiniz metinleri seçin ve Kutools > Metin > Vakayı Değiştir. Ekran görüntüsüne bakın:
belge değişikliği durumu 6

2. içinde Vakayı Değiştir iletişim kutusunda işlem seçeneğini işaretleyin ve sonucu Önizleme bölme. Ekran görüntüsüne bakın:
belge değişikliği durumu 2

3. tık Ok or Tamam ve metinler değişmiştir.

 UPPERCASE olarak değiştir  Uygun Vakaya Geçin  Cümle büyüklüğüne geç
 belge değişikliği durumu 3  belge değişikliği durumu 4 belge değişikliği durumu 5 

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

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...

Açıklama

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!
Comments (10)
No ratings yet. Be the first to rate!
DS
DS
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
Reply
0
0
skyyang
skyyang     DS
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
Reply
Report
0
0
Spencer
Spencer
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
Reply
0
0
wilson
wilson
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
Reply
0
0
Thomas Reid
Thomas Reid
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
Reply
0
0
Miguel Neves
Miguel Neves     Thomas Reid
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
Reply
0
0
Sunny
Sunny     Miguel Neves
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
Reply
Report
0
0
Russ Maurer
Russ Maurer
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
Reply
0
0
Sunny
Sunny     Russ Maurer
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
Reply
Report
0
0
Patrick
Patrick
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations