Mouse fires SpinButton once, keyboard fires SpinButton twice

[79590]

Greetings. I'm fairly new to coding in VBA, and I've done my best to learn as I go, piece together code snippets, and look up answers to my problem. That said, I'm stuck and I can't figure out these two issues with SpinButtons.

1. I've created a UserForm with five SpinButtons. Their purpose is to increase or decrease the value of the active cell by 0.1, 0.01, 0.001, etc. I also wanted the up/down keyboard arrow keys to function the same as clicking the up or down buttons, and the left/right arrow keys to switch the focus across the buttons. I've got this behavior worked out... mostly. Switching from one SpinButton to another with left/right works fine. Activating the buttons with up/down causes the addition/subtraction to fire twice. Clicking the SpinButtons works as normal. Why does clicking the SpinButton work as desired, but using the arrow keys causes values to be doubly incremented/decremented?

2. The math related to the SpinButtons is written directly in VBA as the digit 1 in the appropriate tenth/hundredth/etc place. Spinning up a certain amount then down the same amount results in changes being made at a MUCH smaller level (using the first button up four times, then down four times results in a value of 2.78E-17). Why is this happening and how can I make it stop?

[JosephP]

you've gotta round the result to avoid floating point errors-say Round(Activecell.value2 + 0.1, 6)

[79590]

Okay. Reading up on floating point error explains away #2. It's still irritating, but at least now it's understandable. Only took a minute to add Round() to the mix and fix the problem.

That just leaves #1. I've spent a couple hours trying everything I can think of, but I still cannot even begin to figure out why using the mouse fires the related _SpinUp or _SpinDown code once but using the keyboard fires it twice.

[Leith Ross]

Hello 79590,

The SpinButton class is programmed to respond to the Up and Down keys when SpinButton has the focus. The SpinButton SpinUp and SpinDown events are called when these keys are pressed.

The reason you have the number doubling is your code duplicates the functionality built into the control. Remove the SpinButton KeyDown events and it work as you intended.

[79590]

Well, I'll be. I didn't realize that the SpinButton controls were already programmed to do what I wanted them to do. Taking the Case vbKeyUp and Case vbKeyDown sections out of the form code fixed the issue! Thanks!