Make formula to return whole numbers

[mari_hitz]

Hi!

I would like an advice regarding a code that I have. I would like that this formula to return me a whole number, instead of a number with a lot of decimals.
I have tried to put the "Integer" code but it did not gave me any results, because if the formula returned before the "integer" a number such as 97.777777, after I put the "Integer" it returned me 8. I would need the formula to return me 98 or 97.
I do not know if I am making any sense, but I let you here the code I have:

Private Sub Total_GotFocus()
End Sub
Private Sub Writting_LostFocus()
Total.Text = (Val(Writting.Text) * 2 / 9) + (Val(Vocabulary.Text) * 1 / 9) + (Val(Accuracy.Text) * 2 / 9) + (Val(Professionalism) * 2 / 9) + (Val(Ownership.Text) * 1 / 9) + (Val(Siebel_Processes) * 2 / 9)
End Sub
Private Sub Vocabulary_LostFocus()
Total.Text = (Val(Writting.Text) * 2 / 9) + (Val(Vocabulary.Text) * 1 / 9) + (Val(Accuracy.Text) * 2 / 9) + (Val(Professionalism) * 2 / 9) + (Val(Ownership.Text) * 1 / 9) + (Val(Siebel_Processes) * 2 / 9)
End Sub
Private Sub Accuracy_LostFocus()
Total.Text = (Val(Writting.Text) * 2 / 9) + (Val(Vocabulary.Text) * 1 / 9) + (Val(Accuracy.Text) * 2 / 9) + (Val(Professionalism) * 2 / 9) + (Val(Ownership.Text) * 1 / 9) + (Val(Siebel_Processes) * 2 / 9)
End Sub
Private Sub Professionalism_LostFocus()
Total.Text = (Val(Writting.Text) * 2 / 9) + (Val(Vocabulary.Text) * 1 / 9) + (Val(Accuracy.Text) * 2 / 9) + (Val(Professionalism) * 2 / 9) + (Val(Ownership.Text) * 1 / 9) + (Val(Siebel_Processes) * 2 / 9)
End Sub
Private Sub Ownership_LostFocus()
Total.Text = (Val(Writting.Text) * 2 / 9) + (Val(Vocabulary.Text) * 1 / 9) + (Val(Accuracy.Text) * 2 / 9) + (Val(Professionalism) * 2 / 9) + (Val(Ownership.Text) * 1 / 9) + (Val(Siebel_Processes) * 2 / 9)
End Sub
Private Sub Siebel_Processes_LostFocus()
Total.Text = (Val(Writting.Text) * 2 / 9) + (Val(Vocabulary.Text) * 1 / 9) + (Val(Accuracy.Text) * 2 / 9) + (Val(Professionalism) * 2 / 9) + (Val(Ownership.Text) * 1 / 9) + (Val(Siebel_Processes) * 2 / 9)
End Sub

 

[AMAS]

Hi,

I use:

=round(A1, 0)

or

=text(a1,"0")


They were suggested by shg in another post.

AMAS

 

[mari_hitz]

Thanks for your help AMAS.
I have tried with those too but they do not work.
What I am trying to make whole number is the result of a calculator that I have created in Excel with text boxes, so I can not select any range such as A1, for example.
I do not know if what I am asking if possible, please let me know if I need to post more information.

 

[AMAS]

Hi,

You can use it in a formula. Example:

=10/3

can be rounded by using both the Round and Text functions as follows:

=ROUND(10/3,0)

=TEXT(10/3,"0")

AMAS

 

[Oaktree]

You can use the similar methods in VBA too:

Total.Text = INT(rest of your formula)

or

Total.Text = round(rest of your formula,0)