- Katılım
- 25 May 2018
- Mesajlar
- 1,610
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 365 TR+EN
Aşağıdaki kodda örnek olarak; A2:A20 hücre aralığında F3 tuşuna basılıp seçim yapıldığında, aktif hücredeki verinin sonuna ® işareti ekler.
Bunu yapmak istediğinize işleme/olaya ve basacağınız tuşa göre değiştirebilirsiniz.
Modül kodları
Sayfa kodları
Bunu yapmak istediğinize işleme/olaya ve basacağınız tuşa göre değiştirebilirsiniz.
Modül kodları
PHP:
#If VBA7 And Win64 Then
Public Declare PtrSafe Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Integer
#Else
Public Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Integer
#End If
Public Const VK_F3 = &H73
PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Fonk As Boolean
If Intersect(Target, Range("A2:A20")) Is Nothing Then Exit Sub
If GetKeyState(VK_F3) < 0 Then
Fonk = True
Target.Value = Target.Value & Chr(174)
Else
Fonk = False
End If
End Sub