طريقة عمل زر زيادة ونقصان في فورم

[salimhebboul]

05.xlsm

[Ali Mohamed Ali]

تفضل يمكنك ذلك عن طريق هذا الكود

Private Sub SpinButton1_spinUp()
Range("NUMERO").Value = SpinButton1
TextBox1.Value = Format(Range("NUMERO").Value, "0")
End Sub
Private Sub SpinButton1_spinDown()
Range("NUMERO").Value = SpinButton1
TextBox1.Value = Format(Range("NUMERO").Value, "0")
End Sub

 

 

 

زر زيادة ونقصان في فورم2.xlsm

[salimhebboul]

الف شكر لك استاذ