Keyboard Shortcut for More/Less Decimals

[JonOfAllTrades]

Hello, everyone. Can anyone tell me if there's a keyboard shortcut to
increase or decrease the number of decimal places displayed? If not, can I
create a keyboard shortcut? I've done that in Word, but I can't find a
similar feature in Excel.
Thanks!

 

[CLR]

There are "Increase" and "Decrease" decimals buttons on the Standard Toolbar.

Vaya con Dios,
Chuck, CABGx3

 

[Bearacade]

Put these in a new module, assign keyboard shortcut as you wish.

Hope that helps


Sub IncDec()

If Selection.NumberFormat = "0" Then
Selection.NumberFormat = Selection.NumberFormat & ".0"
Else
Selection.NumberFormat = Selection.NumberFormat & "0"
End If

End Sub

Sub DecDec()

If Selection.NumberFormat = "0" Then
Exit Sub
Else: Selection.NumberFormat = Left(Selection.NumberFormat,
Len(Selection.NumberFormat) - 1)
End If

End Sub

 

[JonOfAllTrades]

There are "Increase" and "Decrease" decimals buttons on the Standard Toolbar.

Vaya con Dios,
Chuck, CABGx3

<biting back sarcasm>
I did notice those, Chuck. I try to avoid using the mouse if I can help it,
it'll slow you down every time.
The question was, can you set a keyboard shortcut to any abitrary command,
like you can in Word? I've made the buttons icon+text and set the text to
underlined "," and ".", but I was hoping for something a little more graceful.

 

[JonOfAllTrades]

Put these in a new module, assign keyboard shortcut as you wish.

Hope that helps


Sub IncDec()

If Selection.NumberFormat = "0" Then
Selection.NumberFormat = Selection.NumberFormat & ".0"
Else
Selection.NumberFormat = Selection.NumberFormat & "0"
End If

End Sub

Sub DecDec()

If Selection.NumberFormat = "0" Then
Exit Sub
Else: Selection.NumberFormat = Left(Selection.NumberFormat,
Len(Selection.NumberFormat) - 1)
End If

End Sub

Thank you, Bear. That would involve adding a module to all of my
spreadsheets; I could strip it out again before forwarding them to clients
but that would be a pain.