- Katılım
- 11 Mart 2005
- Mesajlar
- 3,047
- Excel Vers. ve Dili
- Office 2013 İngilizce
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.
İyi Çalışmalar.
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.
Kod:
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
Ekli dosyalar
-
8 KB Görüntüleme: 23