Thread
:
Test for Decimal
View Single Post
#
6
Posted to microsoft.public.excel.programming
Rick Rothstein \(MVP - VB\)[_1386_]
external usenet poster
Posts: 1
Test for Decimal
While it is probably not the case with the OP, just thought I would point
out that your Int function call will fail if the contents of A1 is a
non-number. Also, you could save a couple of characters by testing the
..Value=Int(.Value) directly instead of subtracting them and seeing if that
difference was zero.
Rick
"Nigel" wrote in message
...
I would take the integer value subtract from the original.
With Range("A1")
If .Value - Int(.Value) = 0 And .Value Mod 51 = 0 Then
'more code
End If
End With
--
Regards,
Nigel
"Ken Hudson" wrote in message
...
In a section of code I am using the MOD function to test for cases where
a
given number is a multiple of 51.
If Range("A1") MOD 51 = 0 then
....more code
In cell A1 I have 203.52. The function is returning true because the
203.52
is rounded up to 204 as part of the MOD test. I don't want to apply code
to
A1l and need to test for the decimal before I use the MOD function, I
think.
If Range("A1") < "decimal" then
If Range("A1") MOD 51 = 0 then
...more code
Is this the logic I need and how do I test for the decimal?
Thanks.
--
Ken Hudson
Reply With Quote
Rick Rothstein \(MVP - VB\)[_1386_]
View Public Profile
Find all posts by Rick Rothstein \(MVP - VB\)[_1386_]