Excelde TextBox KeyUp-KeyDown Kontrol

Formunuzda kullandığınız TextBox'ı up ve down tuşları ile kontrol etmek isteyebilirsiniz. Mesela TextBox'da ki sayıları yukarı ok tuşuna basarak artırıp aşağı ok tuşuna basarak düşürmek isteyebilirsiniz. Bu durum da aşağıda ki kodları inceleyin. Faydalı olacaktır.

 


Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox1.Value = "" And KeyCode = vbKeyUp Then
TextBox1.Value = 1
Exit Sub
End If
If KeyCode = vbKeyDown Then
TextBox1.Value = TextBox1.Value - 1
End If
If KeyCode = vbKeyUp Then
TextBox1.Value = TextBox1.Value + 1
End If
End Sub