Keyboard Shortcut for More/Less Decimals
 

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!

Keyboard Shortcut for More/Less Decimals
 

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

Vaya con Dios,
Chuck, CABGx3




"JonOfAllTrades" wrote:

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!

Keyboard Shortcut for More/Less Decimals
 

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


--
Bearacade


------------------------------------------------------------------------
Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
View this thread: http://www.excelforum.com/showthread...hreadid=551980

Keyboard Shortcut for More/Less Decimals
 

"CLR" wrote:

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.

Keyboard Shortcut for More/Less Decimals
 

"Bearacade" wrote:


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


--
Bearacade

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.