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
![[Resim: do.php?img=10052]](https://resim.accesstr.net/do.php?img=10052)
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ş
![[Resim: do.php?img=10053]](https://resim.accesstr.net/do.php?img=10053)
(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