Textbox içerinde küçük harfe dönüştürmen

[tamer42]

Merhabalar,

Bir Text Box (Text110) içersinde;10 kelimeden oluşan bir cümle olduğunu düşünelim.

bu cümleden birini imleç seçip aşağıdaki kodu uygulamak (Combobox' a basarak ) istiyorum.

Yardımcı olurmusunuz.

Sub KHARF()
Dim x As Range
On Error Resume Next
If Selection.Count > 1 Then
MsgBox "Fazla Alan Seçtiniz.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Exit Sub
End If
For Each x In Selection
x.Value = LCase(Replace(Replace((x.Value), "I", "ı"), "İ", "i"))
Next
End Sub

İyi Çalışmalar.

 

[gulsum1]

istediğin bu gerçi daha kısa bir yolunu bilen vardır lakin şu an için senin işini görür seçtiğin metin kutusu içindeki seçtiğin kısmı küçük harfe çevirir

Option Compare Database
Public Function funChangeString(strString As String, strFind As String, strReplace As String) As String
Dim strFirst As String, strLast As String, strOut As String, intPos As Integer
strOut = strString
If strFind = strReplace Then GoTo lblExit
intPos = InStr(strOut, strFind)
Do Until intPos = 0
strFirst = Left$(strOut, intPos - 1)
strLast = Right$(strOut, Len(strOut) - intPos + 1 - Len(strFind))
strOut = strFirst & strReplace & strLast
intPos = InStr(intPos + Len(strReplace), strOut, strFind)
Loop
lblExit:
funChangeString = convert(strOut, 1)
End Function
Function convert(text, secim)
Select Case secim
Case 0 'yazım düzeni
text = convert(text, 1)
text = convert(Left(text, 1), 2) & Mid(text, 2, Len(text) - 1)
Case 1 'küçük harf
text = Replace(text, "I", "ı")
text = Replace(text, "İ", "i")
text = StrConv(text, vbLowerCase)
Case 2 'büyük harf
text = Replace(text, "ı", "I")
text = Replace(text, "i", "İ")
text = StrConv(text, vbUpperCase)
End Select
convert = text
End Function

Private Sub Metin0_AfterUpdate()
Me.Metin0 = funChangeString(Me.Metin0, Me.Metin0.SelText, Me.Metin0.SelText)
End Sub

 

[tamer42]

Gülsüm1 ilginize teşekkürler...

Buradaki kodlar textbox içeriğinin tamamını küçük harfe dönüştüyor.

Yalnız ben textbox içerisinde sadece belli kelimeleri küçük harfe dönüştürmek.

TEXTBOX içerisinde sadece belli kelimeleri küçük harfe dönüştürmek.

İyi Çalışmalar.

 

[Haluk]

Tamer bey, bende Access olmadığı için deneme şansım yok ancak Excel'de aşağıdaki kodlar bende çalışıyor...

    Temp1 = TextBox1.SelText
    Temp2 = UCase(Replace(Temp1, "i", "İ"))
    Temp2 = Replace(Temp2, "ı", "I")
    TextBox1 = Replace(TextBox1, Temp1, Temp2)

Bu kodu, UserForm üzerinde bir CommandButton'un Click yordamına yerleştirmiştim.

.

 

[tamer42]

Sn Haluk Hocam

 Temp2 = UCase(Replace(Temp1, "i", "İ"))
    Temp2 = Replace(Temp2, "ı", "I")

buraya bütün harflari (büyük,küçük) olarak yazmak mı gerekiyor?

İyi Çalışmalar dilerim.

 

[gulsum1]

bu şekile kodu değiştir metin0 alnında metnin bir kısmını mouse ile seçtiğin zaman mouse düğmesini bıraktığında kod çalışır
denedim
Option Compare Database
Public Function funChangeString(strString As String, strFind As String, strReplace As String) As String
Dim strFirst As String, strLast As String, strOut As String, intPos As Integer
strOut = strString

intPos = InStr(strOut, strFind)
Do Until intPos = 0
strFirst = Left$(strOut, intPos - 1)
strLast = Right$(strOut, Len(strOut) - intPos + 1 - Len(strFind))
strOut = strFirst & StrConv(strReplace, 2) & strLast
intPos = InStr(intPos + Len(strReplace), strOut)
Loop
lblExit:
funChangeString = strOut
End Function

Private Sub Metin0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Metin0 = funChangeString(Me.Metin0.text, Me.Metin0.SelText, Me.Metin0.SelText)
End Sub

 

[gulsum1]

bu daha basit
Private Sub Metin0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Metin0.SelText = Replace(StrConv(Me.Metin0.SelText, 2), "İ", "i")
End Sub

 

[tamer42]

Sn Gülsüm teşekkürler,

işimi görüyor.

Birde büyük harf yapmak için kod verebilirmisiniz.

İyi Çalışmalar.

 

[tamer42]

Sn Gülsüm yukarıdaki kodda;
bir durumda problem oluştu.
eğer seçtiğimiz kelime küçük harflarden oluşuyorsa; Textbox değeri olarak sadece seçtiğimiz kelime kalıyor diğerlerini siliyor.

Text box içerinde
TEXTBOX içerisinde sadece belli kelimeleri küçük harfe dönüştürmek
buradan
dönüştürmek kelimesini seçersek

Text box içeriği sadece dönüştürmek oluyor.

İyi Çalışmalar.

 

[modalı]

Sn Gülsüm yukarıdaki kodda;
bir durumda problem oluştu.
eğer seçtiğimiz kelime küçük harflarden oluşuyorsa; Textbox değeri olarak sadece seçtiğimiz kelime kalıyor diğerlerini siliyor.

Text box içerinde
TEXTBOX içerisinde sadece belli kelimeleri küçük harfe dönüştürmek
buradan
dönüştürmek kelimesini seçersek

Text box içeriği sadece dönüştürmek oluyor.

İyi Çalışmalar.

Sayın tamer42 bu çeşit bir uygulamayı istiyorsanız metin kutusu size yeterli gelmez. metin kutusunun tüm içeriğini biçimleyebilirsiniz.

Eğer öyle bir uygulama geliştirmek isterseniz o zaman richtext activex nesnesini kullanmanız gerekir. Bununla ilgili bir uygulama hazırlıyorum. ama bu aralar bana ne oldu anlayamıyorum. İşlerim bitmiyor.

İyi çalışmalar

 

[modalı]

Sayın tamer42,

Sorunuzla ilgili uygulamayı Access Örnekleri bölümüne ekledim.

http://www.excel.web.tr/f58/access-uygulamas-nda-zengin-metin-duzenleyicisi-editor-kullanmak-t59263.html#post322973

İyi çalışmalar