Büyük Küçük Harf değiştirmede farklı bir yöntem vardı ama bulamadım

[hsayar]

Merhaba;

Ucase, ve Evaluete(" & upper(metin) & ") şeklinde olanları biliyorum
yazımda hata varsa lütfen düzeltiniz.

fonksiyon(UCASE, 1) gibi mi ne yazılıyordu bende cevap vermiştim ama kendi mesajlarımı da arattım bulamadım.

bu alternatifin adı nedir veya varsa diğer alternatifler nelerdir.?

Hayırlı geceler...........

 

[N.Ziya Hiçdurmaz]

Yanıt

Örnek.

Sub BUYUKHARF()
Dim SUT As Integer
For SUT = 1 To Cells(65536, "A").End(3).Row
DEG = UCase(Replace(Replace(Cells(SUT, "A"), "ı", "I"), "i", "İ"))
Cells(SUT, "A") = DEG
Next
End Sub
Sub KUCUKHARF()
Dim SUT As Integer
For SUT = 1 To Cells(65536, "A").End(3).Row
DEG = LCase(Replace(Replace(Cells(SUT, "A"), "I", "ı"), "İ", "i"))
Cells(SUT, "A") = DEG
Next
End Sub

 

[hsayar]

Alakanıza teşekkür ederim. bunu demiyorum hocam vbe modunda sadece ................("metin",mod) şeklinde yazdığımız vardı

Replace kullanmıyorduk veya evauletde olduğu gibi ( " & ..... & " ) tırneklara boğmuyorduk.

 

[Levent Menteşoğlu]

Strconv fonksiyonu olarak forumda arama yapın.

 

[hsayar]

Evet hocam buydu... teşekkürler str si aklıma geliyor devamı gelmiyordu bir türlü

 

[hsayar]

O kadar zor bir yerde ki buraya da ekleyelim arayan ulaşsın.

StrConv: Stringi Verilen Moda cevirir.

StrConv(String,Mod)

String : cevirilecek metin
Mod : vbLowerCase = Kücük harfe cevrilir
vbUpperCase = Büyük harfe cevrilir
vbProperCase = Ilk harf büyük digerleri kücük
VbFromUnicode = Unicode'dan cevrilir
vbUnicode = Unicode'a cevrilir
vbHiragana = Hiragana
vbKatakana = Katakana
vbNarrow = Dar
vbWide = Genis