Değerin Büyükmü Küçük Harf mi, Büyük Harf mi olduğunu söyleyecek makro

[hsayar]

Değerin Büyükmü Küçük Harf mi, Büyük Harf mi olduğunu söyleyecek makro

  Deger = "a"
  if Deger = büyükharf Then
      msgbox "Değer büyük harflidir"
  Else
      msgbox "Değer küçük harflidir"
  End if

durumunda küçük harf dönecek

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Deger = "a"
  if Deger =ucase(Deger) Then
      msgbox "Değer büyük harflidir"
  Else
      msgbox "Değer küçük harflidir"
  End if

 

[hsayar]

Seçili hücrede Büyük küçük harf dönünüştürme uygulaması için lazımdı başardım

Sub BuyukKucukHArfDonustur()
    Dim x As Range
    For Each x In Selection
    Uzunluk = Len(x.Value)
        For i = Uzunluk To 1 Step -1
            SecHarf = Mid(x.Value, i, 1)
            If SecHarf = Evaluate("=UPPER(""" & SecHarf & """)") Then
               Cevir = Evaluate("=LOWER(""" & SecHarf & """)")
               Snc = Cevir & Snc
            Else
                Cevir = Evaluate("=UPPER(""" & SecHarf & """)")
                Snc = Cevir & Snc
            End If
        Next
        x.Value = Snc
    Next
End Sub
[code]