Solved

VBA Single Data Type - keep results to one decimal place

Posted on 2009-05-05
1
1,392 Views
Last Modified: 2012-06-22
I have a loop that takes a number from the user, tests an Excel document for instances of this number, and then subtracts one tenth from the input number, and tests again. The loop operates until the number ends up at zero.

Now the problem that I have is after two or three loops the result of the Input = Input - 0.1 begins resulting in a number with several decimal places when I want to keep it to just one. (i.e. at the the third time the loop operates starting at 1 it results in 0.6999999 instead of just 0.7.

I need it to remain at the one decimal place so I get an even number each time, in sequence (i.e. 1, 0.9, 0.8, 0.7 and so on until Zero.) I'm using Single data type. Is there a better data type to use?
Private Sub btnProcess_Click()
 
Dim strPercent2 As String
strPercent2 = Me.txtPercentage.Value
 
Dim sngPercent2 As Single
Dim strSearch As String
 
If IsNumeric(strPercent2) Then
sngPercent2 = CSng(strPercent2)
 
    Do While sngPercent2 > 0.1
 
    strSearch = CStr(sngPercent2)
 
 
 
    Dim i As Long
    i = 1
    Do Until i > Cells(65536, "a").End(xlUp).Row
        If InStr(Trim(Cells(i, "a").Value), strSearch) > 0 Then
 
            Rows(i - 1 & ":" & i + 3).delete
        Else
            i = i + 1
        End If
       
    Loop
 
        MsgBox CStr(sngPercent2)
        Application.ScreenUpdating = True
        sngPercent2 = sngPercent2 - 0.1
 
    Loop
 
 
Else
End If
 
End Sub

Open in new window

0
Comment
Question by:ThePATMAN26
1 Comment
 
LVL 59

Accepted Solution

by:
Saurabh Singh Teotia earned 500 total points
ID: 24307423
Replace this line...
sngPercent2 = sngPercent2 - 0.1

with this..
sngPercent2 = round(sngPercent2 - 0.1,1)
This will take care of your problem...
Saurabh...
 
0

Featured Post

ScreenConnect 6.0 Free Trial

Explore all the enhancements in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI, app configurations and chat acknowledgement to improve customer engagement!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction While answering a recent question (http:/Q_27311462.html), I created an alternative function to the Excel Concatenate() function that you might find useful.  I tested several solutions and share the results in this article as well as t…
Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question