İnceleyip, olumlu/olumsuz bildirimde bulununuz.
cumleilkharf.rar
(Dosya Boyutu: 24,38 KB | İndirme Sayısı: 7)
Tabloda İlk Harfi Büyük Yapmak
cumleilkharf.rar
(Dosya Boyutu: 24,38 KB | İndirme Sayısı: 7)
Üstadım,
ekli rar dosyasında boş bir Excel dosyası var ve hiç bir bilgi yok, doğrusu birşey anlayamadım.
mümkünse sadece uygulama kodunu yazın ve ne yapmam gerektiğini belirtin kafi.
Sabrınıza teşekkür ederim. Benim gibi acemilere anlatmak zor olsa gerek.
ekli rar dosyasında boş bir Excel dosyası var ve hiç bir bilgi yok, doğrusu birşey anlayamadım.
mümkünse sadece uygulama kodunu yazın ve ne yapmam gerektiğini belirtin kafi.
Sabrınıza teşekkür ederim. Benim gibi acemilere anlatmak zor olsa gerek.
#9
Üstad Ozanakkaya'ya
Tabloda bulunan verinin (cümlenin) sadece ilk harfinin küçük ise büyük harfe çevrilmesi hakkında eklediğim örneği değerlendirirseniz sevinirim.
saygılarımla
Tabloda bulunan verinin (cümlenin) sadece ilk harfinin küçük ise büyük harfe çevrilmesi hakkında eklediğim örneği değerlendirirseniz sevinirim.
saygılarımla
B-K-harf.rar
(Dosya Boyutu: 376,7 KB | İndirme Sayısı: 3)
(28/05/2021, 17:22)Mert1985 yazdı: Üstadım,
ekli rar dosyasında boş bir Excel dosyası var ve hiç bir bilgi yok, doğrusu birşey anlayamadım.
mümkünse sadece uygulama kodunu yazın ve ne yapmam gerektiğini belirtin kafi.
Sabrınıza teşekkür ederim. Benim gibi acemilere anlatmak zor olsa gerek.
Benim eklediğim örnekte cumleilkharf.accdb isminde Access uygulaması var.
Örnek uygulamana yeni modül oluştur. Modül içerisine
Public Function IlkHarfBuyuk(kelime)
kont = Len(kelime)
If kont <> 0 Then
harf = Mid(kelime, 1, 1)
If Asc(harf) = 73 Or Asc(harf) = 253 Then
IlkHarfBuyuk = IlkHarfBuyuk & "I"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
IlkHarfBuyuk = IlkHarfBuyuk & "İ"
ElseIf harf = "ç" Or harf = "Ç" Then
IlkHarfBuyuk = IlkHarfBuyuk & "Ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
IlkHarfBuyuk = IlkHarfBuyuk & "Ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
IlkHarfBuyuk = IlkHarfBuyuk & "Ö"
ElseIf harf = "ş" Or harf = "Ş" Then
IlkHarfBuyuk = IlkHarfBuyuk & "Ş"
ElseIf harf = "ü" Or harf = "Ü" Then
IlkHarfBuyuk = IlkHarfBuyuk & "Ü"
Else
IlkHarfBuyuk = IlkHarfBuyuk & UCase(harf)
End If
For I = 2 To Len(kelime)
harf = Mid(kelime, I, 1)
If eharf = "." Or eharf = " " Or eharf = "-" Or eharf = "/" Then
If Asc(harf) = 73 Or Asc(harf) = 253 Then
IlkHarfBuyuk = IlkHarfBuyuk & "I"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
IlkHarfBuyuk = IlkHarfBuyuk & "İ"
ElseIf harf = "ç" Or harf = "Ç" Then
IlkHarfBuyuk = IlkHarfBuyuk & "Ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
IlkHarfBuyuk = IlkHarfBuyuk & "Ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
IlkHarfBuyuk = IlkHarfBuyuk & "Ö"
ElseIf harf = "ş" Or harf = "Ş" Then
IlkHarfBuyuk = IlkHarfBuyuk & "Ş"
ElseIf harf = "ü" Or harf = "Ü" Then
IlkHarfBuyuk = IlkHarfBuyuk & "Ü"
Else
IlkHarfBuyuk = IlkHarfBuyuk & UCase(harf)
End If
Else
If Asc(harf) = 73 Or Asc(harf) = 253 Then
IlkHarfBuyuk = IlkHarfBuyuk & "ı"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
IlkHarfBuyuk = IlkHarfBuyuk & "i"
ElseIf harf = "ç" Or harf = "Ç" Then
IlkHarfBuyuk = IlkHarfBuyuk & "ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
IlkHarfBuyuk = IlkHarfBuyuk & "ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
IlkHarfBuyuk = IlkHarfBuyuk & "ö"
ElseIf harf = "ş" Or harf = "Ş" Then
IlkHarfBuyuk = IlkHarfBuyuk & "ş"
ElseIf harf = "ü" Or harf = "Ü" Then
IlkHarfBuyuk = IlkHarfBuyuk & "ü"
Else
IlkHarfBuyuk = IlkHarfBuyuk & LCase(harf)
End If
End If
eharf = harf
Next I
End If
End Function
Public Function tumukucuk(kelime)
kont = Len(kelime)
If kont <> 0 Then
harf = Mid(kelime, 1, 1)
For I = 1 To Len(kelime)
harf = Mid(kelime, I, 1)
If eharf = "." Or eharf = " " Or eharf = "-" Or eharf = "/" Then
If Asc(harf) = 73 Or Asc(harf) = 253 Then
tumukucuk = tumukucuk & "I"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
tumukucuk = tumukucuk & "i"
ElseIf harf = "ç" Or harf = "Ç" Then
tumukucuk = tumukucuk & "ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
tumukucuk = tumukucuk & "ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
tumukucuk = tumukucuk & "ö"
ElseIf harf = "ş" Or harf = "Ş" Then
tumukucuk = tumukucuk & "ş"
ElseIf harf = "ü" Or harf = "Ü" Then
tumukucuk = tumukucuk & "ü"
Else
tumukucuk = tumukucuk & LCase(harf)
End If
Else
If Asc(harf) = 73 Or Asc(harf) = 253 Then
tumukucuk = tumukucuk & "ı"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
tumukucuk = tumukucuk & "i"
ElseIf harf = "ç" Or harf = "Ç" Then
tumukucuk = tumukucuk & "ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
tumukucuk = tumukucuk & "ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
tumukucuk = tumukucuk & "ö"
ElseIf harf = "ş" Or harf = "Ş" Then
tumukucuk = tumukucuk & "ş"
ElseIf harf = "ü" Or harf = "Ü" Then
tumukucuk = tumukucuk & "ü"
Else
tumukucuk = tumukucuk & LCase(harf)
End If
End If
eharf = harf
Next I
End If
End Function
kodları ekle,
formdaki butonunu tıklandığında olayına da
Dim GVeri, GIlkCumle, GDevami As String
Dim GSayi As Integer
GVeri = Split(Me.Metin107)
GIlkCumle = IlkHarfBuyuk(GVeri(0))
For GSayi = LBound(GVeri) + 1 To UBound(GVeri)
GDevami = GDevami & " " & GVeri(GSayi)
Next
Me.Metin107 = GIlkCumle & tumukucuk(GDevami)kodu ekle.
Konuyu Okuyanlar: 2 Ziyaretçi
