iyi günler herkese hayırlı cumalar
Ctrl+c ile Clipboard içine kaydettiğimiz veriyi tek tuşa basarak Strconv fonksiyonu ile istediğimiz formata çevirip
istediğimiz yere yeni haliyle yapıştırabilir miyiz
Kod:
Private Sub Komut203_Click()
Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject
clipboard.GetFromClipboard
clipboard.SetText StrConv(clipboard.GetText, vbProperCase)
clipboard.PutInClipboard
MsgBox clipboard.GetText
End Sub
şunu kullanmaya çalışıyorum ama referans hatası veriyor galiba
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim strActiveCtl As String
Select Case KeyCode
Case vbKeyF3
KeyCode = 0
strActiveCtl = Screen.ActiveControl.Name
Me.mtn_gecici.SetFocus
DoCmd.RunCommand acCmdPaste
Controls(strActiveCtl).Value = StrConv(Me.mtn_gecici.Text, 1)
End Select
End Sub
Formda mtn_gecici adında metin kutusu olacak, formda veri yapıştılacak metin kutusunu tıklayıp F3'e bastığında kopyaladığın veriyi tümü büyük harflerle yapıştırır. Tuş önizleme özelliğinin Evet olarak seçilmesi de gerekli.
bunu eklemek gerekiyormuş
(16/04/2020, 09:51)ozanakkaya yazdı: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim strActiveCtl As String
Select Case KeyCode
Case vbKeyF3
KeyCode = 0
strActiveCtl = Screen.ActiveControl.Name
Me.mtn_gecici.SetFocus
DoCmd.RunCommand acCmdPaste
Controls(strActiveCtl).Value = StrConv(Me.mtn_gecici.Text, 1)
End Select
End Sub
Formda mtn_gecici adında metin kutusu olacak, formda veri yapıştılacak metin kutusunu tıklayıp F3'e bastığında kopyaladığın veriyi tümü büyük harflerle yapıştırır. Tuş önizleme özelliğinin Evet olarak seçilmesi de gerekli.
teşekkürler sn. @
ozanakkaya
Bir problem var arkadaşlar yukarıda yazdığım kod ile
"ANKSİYETE BOZUKLUĞU"
kelimesini
"Anksİyete Bozukluğu"
şekline çevirdi. Yani "İ" harfi büyük kaldı neden olabilir
Public Function bkucuk(kelime)
Dim kont, i As Integer
Dim harf, eharf As String
kont = Len(kelime)
If kont <> 0 Then
harf = Mid(kelime, 1, 1)
If Asc(harf) = 73 Or Asc(harf) = 253 Then
bkucuk = bkucuk & "I"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
bkucuk = bkucuk & "İ"
ElseIf harf = "ç" Or harf = "Ç" Then
bkucuk = bkucuk & "Ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
bkucuk = bkucuk & "Ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
bkucuk = bkucuk & "Ö"
ElseIf harf = "ş" Or harf = "Ş" Then
bkucuk = bkucuk & "Ş"
ElseIf harf = "ü" Or harf = "Ü" Then
bkucuk = bkucuk & "Ü"
Else
bkucuk = bkucuk & 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
bkucuk = bkucuk & "I"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
bkucuk = bkucuk & "İ"
ElseIf harf = "ç" Or harf = "Ç" Then
bkucuk = bkucuk & "Ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
bkucuk = bkucuk & "Ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
bkucuk = bkucuk & "Ö"
ElseIf harf = "ş" Or harf = "Ş" Then
bkucuk = bkucuk & "Ş"
ElseIf harf = "ü" Or harf = "Ü" Then
bkucuk = bkucuk & "Ü"
Else
bkucuk = bkucuk & UCase(harf)
End If
Else
If Asc(harf) = 73 Or Asc(harf) = 253 Then
bkucuk = bkucuk & "ı"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
bkucuk = bkucuk & "i"
ElseIf harf = "ç" Or harf = "Ç" Then
bkucuk = bkucuk & "ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
bkucuk = bkucuk & "ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
bkucuk = bkucuk & "ö"
ElseIf harf = "ş" Or harf = "Ş" Then
bkucuk = bkucuk & "ş"
ElseIf harf = "ü" Or harf = "Ü" Then
bkucuk = bkucuk & "ü"
Else
bkucuk = bkucuk & LCase(harf)
End If
End If
eharf = harf
Next i
End If
End Function