Klavyede + ve - tuş kullanımı ile ilgili

[andro07]

Merhaba arkadaşlar

Herhangi bir hücreye bir sayı girdiğim zaman klavyenin + ve - tuşuna basarak o sayının artıp azalmasını istiyorum bu mümkünmüdür?

 

[Vedat Özer]

Selamlar,

Örnek dosya üzerinde gösterebilirmisiniz,

Şöyle bir şeymi ?

-50

veya

+50

 

[andro07]

hayır klavye üzerindeki + ve - tuşuna basarak hücrenin içerisinde bulunan sayılar artıcak veya azalıcak.. Klavye olayını geçtim bir çok hücre aynı anda seçtiğimde o hücrelerdeki sayıları değiştirmek istiyorum ama hata veriyor değer değiştiriciyi kullanarak buna bi çözüm bulabilirmiyiz peki..

 

[Korhan Ayhan]

Selamlar,

Klavyedeki "+" ve "-" tuşlarının onkey metodunda kullanma şeklini bulamadım ama CTRL+AŞAĞI OK ya da CTRL+YUKARI OK tuşlarını kullanarak değerleri azaltıp/arttımayı sağlayan bir örnek hazırladım.

Ekteki dosyayı incelermisiniz.


Uygulanan kodlar;

ThisWorkbook bölümüne;

Option Explicit
 
Private Sub Workbook_Activate()
    Application.OnKey "^{UP}", "ARTTIR"
    Application.OnKey "^{DOWN}", "AZALT"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^{UP}"
    Application.OnKey "^{DOWN}"
End Sub
 
Private Sub Workbook_Deactivate()
    Application.OnKey "^{UP}"
    Application.OnKey "^{DOWN}"
End Sub

Boş bir modüle;

Option Explicit
 
Sub ARTTIR()
    Dim HÜCRE As Range
    For Each HÜCRE In Selection
        If IsNumeric(HÜCRE.Value) Then HÜCRE.Value = HÜCRE.Value + 1
    Next
End Sub
 
Sub AZALT()
    Dim HÜCRE As Range
    For Each HÜCRE In Selection
        If IsNumeric(HÜCRE.Value) Then HÜCRE.Value = HÜCRE.Value - 1
    Next
End Sub