seçimi büyük harf yapma

[ismail-34]

Çok değerli excel web ailesine selamlar..

bendeki büyük harf makrosu sadece tek hücreyi büyük harf yapıyor.çok gücre seçince hata veriyor.

tüm hücreleri seçince toplu şekilde nasıl büyük harf yapabilirim..kısaca makroya bir ekleme rica etcem

örnek ektedir.

 

[Necdet]

Merhaba,

Büyük harfe çevireceğiniz verileri seçtikten sonra BuyukKucukYazimDuzeni'ni çalıştırınız.
BKH fonksiyonunu çalıştırırken 2. parametre olarak 1 derseniz Küçük Harfe, 3 derseniz Yazım düzenine çevirir.

Sub BuyukKucukYazimDuzeni()

Dim hcr As Range

For Each hcr In Selection
    hcr = BKH(hcr.Text, 2)
Next hcr

End Sub

Function BKH(Sozcuk As String, Optional Tip As Integer = 2) As String

    'Tip    1. Küçük Harf
    '       2. Büyük Harf
    '       3. Yazım Düzeni
   
    If Tip = 1 Then
        BKH = Evaluate("=LOWER(" & """" & Sozcuk & """" & ")")
    ElseIf Tip = 2 Then
        BKH = Evaluate("=UPPER(" & """" & Sozcuk & """" & ")")
    Else
        BKH = Application.WorksheetFunction.Proper(Sozcuk)
    End If
   
End Function

 

[ismail-34]

Merhaba,

Büyük harfe çevireceğiniz verileri seçtikten sonra BuyukKucukYazimDuzeni'ni çalıştırınız.
BKH fonksiyonunu çalıştırırken 2. parametre olarak 1 derseniz Küçük Harfe, 3 derseniz Yazım düzenine çevirir.

Sub BuyukKucukYazimDuzeni()

Dim hcr As Range

For Each hcr In Selection
    hcr = BKH(hcr.Text, 2)
Next hcr

End Sub

Function BKH(Sozcuk As String, Optional Tip As Integer = 2) As String

    'Tip    1. Küçük Harf
    '       2. Büyük Harf
    '       3. Yazım Düzeni
 
    If Tip = 1 Then
        BKH = Evaluate("=LOWER(" & """" & Sozcuk & """" & ")")
    ElseIf Tip = 2 Then
        BKH = Evaluate("=UPPER(" & """" & Sozcuk & """" & ")")
    Else
        BKH = Application.WorksheetFunction.Proper(Sozcuk)
    End If
 
End Function

Hocam tamda ekstradan baş harfleri büyük nasıl oluru sorcaktım. içimi okumuşunuz onuda koymuşunuz resmen . yazım düzeni adı altında onuda koymuşunuz ..Çok fonksiyonlu harika bir çözüm..

sağolun varolun çok değerli Necdet hocam.

 

[Necdet]

Merhaba,

Zaman zaman yazdığımız kodlarda bu tür harf çevrimleri olmakta, her seferinde yazmaktansa BKH fonksiyonunu kopyalayıp rahat rahat kullanıyorum.
Üstelik bazen küçük harfe bazen yazım düzenine gereksinim duyduğumda çok işe yarıyor.
O yüzden kodlar böyle uzadı.

 

[Korhan Ayhan]

Alternatif olarak linkleri inceleyebilirsiniz.

https://www.excel.web.tr/threads/bueyuek-kuecuek-harf-uygulamasi.74825/

https://www.excel.web.tr/threads/hucrelerde-buyuk-kucuk-harf-uygulamalari.7611/