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!
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!
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!
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
Google is your best friend!
"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.
"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.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks