Skip to main content

AccessTr.neT


Büyük Harfe Çevirme

Büyük Harfe Çevirme

#7
Alttaki örnek ilede olabilir

xx=StrConv(TextBox1, vbUpperCase)

TextBox1 = StrConv(TextBox1, vbUpperCase)
Cevapla
#8
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
Cevapla
#9
(30/05/2020, 14:25)golf2000 yazdı: 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
Rica ederiz.Birde ucase ve replacenin beraber kullanımı var onuda atarım birazdan
Cevapla
#10
Teşekkürler Hocam Bekliyorum
Cevapla
#11
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.
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

xx = deg.Replace(xx) bu şekildede olabilir emin değilim neden Trim yani boşluk kaldırma kodu eklemişler anlamadım.
Cevapla
#12
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

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task