Home |
Search |
Today's Posts |
#1
|
|||
|
|||
using a macro round function
I would like to create a shortcut for using €˜round function ( ctr + r ) in
the following manner: A1 = 255.87 ; B1 = 45678.8974 ; C1 = +d5*25 If I apply Ctr + r on A1 it should become @round(255.87,0) If I apply Ctr + r on B1 it should become @round(45678.8974,0) If I apply Ctr + r on C1 it should become @round(+d5*25,0) In lotus I used to use this as a macro on the following logic: Go to cell Apply €˜ctr+r The macro will do the following: F2 (edit) Home Type @round( End Type ,0) Enter The same is not working in Excel. Can someone clarify or suggest Thanks |
#2
|
|||
|
|||
This should do the trick:
Sub DoRound() For Each oCell In Selection oCell.Formula = "=ROUND(" & oCell.Formula & ",0)" Next End Sub Bob Umlas Excel MVP "Ganvenk" wrote in message ... I would like to create a shortcut for using 'round' function ( ctr + r ) in the following manner: A1 = 255.87 ; B1 = 45678.8974 ; C1 = +d5*25 If I apply Ctr + r on A1 it should become @round(255.87,0) If I apply Ctr + r on B1 it should become @round(45678.8974,0) If I apply Ctr + r on C1 it should become @round(+d5*25,0) In lotus I used to use this as a macro on the following logic: Go to cell Apply 'ctr+r' The macro will do the following: F2 (edit) Home Type @round( End Type ,0) Enter The same is not working in Excel. Can someone clarify or suggest Thanks |
#3
|
|||
|
|||
I don't think Bob saw the formula in C1:
Option Explicit Sub DoRound2() Dim oCell As Range For Each oCell In Selection If oCell.HasFormula Then oCell.Formula = "=round(" & Mid(oCell.Formula, 2) & ",0)" Else oCell.Formula = "=ROUND(" & oCell.Formula & ",0)" End If Next End Sub Ganvenk wrote: I would like to create a shortcut for using €˜round function ( ctr + r ) in the following manner: A1 = 255.87 ; B1 = 45678.8974 ; C1 = +d5*25 If I apply Ctr + r on A1 it should become @round(255.87,0) If I apply Ctr + r on B1 it should become @round(45678.8974,0) If I apply Ctr + r on C1 it should become @round(+d5*25,0) In lotus I used to use this as a macro on the following logic: Go to cell Apply €˜ctr+r The macro will do the following: F2 (edit) Home Type @round( End Type ,0) Enter The same is not working in Excel. Can someone clarify or suggest Thanks -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Function Macro for Nested IF | Excel Worksheet Functions | |||
help with round function | Excel Worksheet Functions | |||
PivotTable Macro Reverts to Count Function | Excel Worksheet Functions | |||
How can I embed a macro into a function in excel? | Excel Worksheet Functions | |||
Round Function | Excel Discussion (Misc queries) |