With monday.comâ€™s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.
Sub formatcells()
Dim rng As Range
For Each rng In Range("A8:O130")
If IsNumeric(rng) And rng <> "" Then
'formula that round last digit to 9
'???
End If
Next
End Sub
Sub FormatCells()
Dim rng As Range
Dim NewValue As String
For Each rng In Range("A8:O130")
If IsNumeric(rng) And rng <> "" Then
If Right(rng.Text, 1) > 4 Then
NewValue = Left(rng.Text, Len(rng.Text) - 1) & 9
rng.Value = NewValue
End If
End If
Next
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
0.09
Then set the value of the cell to this equation:
=floor(33.8, 0.1)
The equation truncates the hundredths place, the formatting sets the hundredths place to a 9. So the final solution will look like this:
Put your list of numbers somewhere else, like on an unused worksheet. Enter the formula '=floor(<first cell in your list>, 0.1)' into the first spot where you want your list of numbers to be. Copy the formula down X cells so it picks up the entire list floored where you want it to be displayed. Then highlight those cells, right click, format cells, and set them to custom formatting with a format string of 0.09.
They will now display with their hundredths place set to a 9 always. The value in the cell will be the original value floored to the tenths digit. The original value will be wherever your hidden list is.