xx=StrConv(TextBox1, vbUpperCase)TextBox1 = StrConv(TextBox1, vbUpperCase)
Alttaki örnek ilede olabilir
Büyük Harfe Çevirme
SN.FERAZ Hocam
Vermiş Olduğunuz Visual Basic Code
Olay
Güncelleştirme Sonrasında Bölümüne
Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)
Ekledim Oldu Fakat
ali yazdığımda ALI yazıyor (İ) Harfini Yazmıyor (I) olarak yazıyor
Teşekkürler
Vermiş Olduğunuz Visual Basic Code
Olay
Güncelleştirme Sonrasında Bölümüne
Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)
Ekledim Oldu Fakat
ali yazdığımda ALI yazıyor (İ) Harfini Yazmıyor (I) olarak yazıyor
Teşekkürler
(30/05/2020, 14:25)golf2000 yazdı: SN.FERAZ HocamRica ederiz.Birde ucase ve replacenin beraber kullanımı var onuda atarım birazdan
Vermiş Olduğunuz Visual Basic Code
Olay
Güncelleştirme Sonrasında Bölümüne
Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)
Ekledim Oldu Fakat
ali yazdığımda ALI yazıyor (İ) Harfini Yazmıyor (I) olarak yazıyor
Teşekkürler
Alttaki gibi kalıp kopyala yapıştır yaptım.ç,ğ gibi harfler içinde ekleyebilirsiniz koda yada array içine alıp döngiylede yapabilirsiniz.
Xx = UCase(replace(replace(Xx, "ı", "I"), "i", "İ"))
Alttaki gibide bir kod buldum deneyemedim mobilden düzenledim küçük harfe çeviriyormuş Çç yerine çÇ ile değiştirin fiğerlerinide.
xx = deg.Replace(xx) bu şekildede olabilir emin değilim neden Trim yani boşluk kaldırma kodu eklemişler anlamadım.
Xx = UCase(replace(replace(Xx, "ı", "I"), "i", "İ"))
Alttaki gibide bir kod buldum deneyemedim mobilden düzenledim küçük harfe çeviriyormuş Çç yerine çÇ ile değiştirin fiğerlerinide.
Kod:
Set deg = CreateObject("VBScript.Regexp")
deg.Pattern = "[^a-zA-Z0-9\Çç\Ğğ\İi\Iı\Öö\Şş\Üü\ ]"
deg.Global = True
xx = Trim(deg.Replace(xx, " "))
Set deg = Nothing
Orjinal kodlar altta ordan alıp değiştirdim.
Kod:
Sub Duzenle()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set deg = CreateObject("VBScript.Regexp")
deg.Pattern = "[^a-zA-Z0-9\Çç\Ğğ\İi\Iı\Öö\Şş\Üü\ ]"
deg.Global = True
For i = 1 To Cells(Rows.Count, "FF").End(xlUp).Row
Cells(i, "FF") = Trim(deg.Replace(Cells(i, "FF"), " "))
Next i
Set deg = Nothing
Columns("FF:FF").TextToColumns Destination:=Range("FF1"), DataType:= _
xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= _
True, Space:=True
Cells.HorizontalAlignment = xlLeft
Cells.EntireColumn.AutoFit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Konuyu Okuyanlar: 1 Ziyaretçi
