Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum textboxes in a collection
Any help for a newbie would be appreciated. I'm trying to sum several
texbox inputs on a form and display the result in a "totals" textbox on the same form. The textboxes are part of a collection. The following code concatenates the values in the textbox inputs rather than adding the values: Global declarations: Dim textBoxes as New Collection Dim textboxNames() as String Private Sub txtCash_AfterUpdate() 'update total allocation AllocationTotal End Sub Sub AllocationTotal() Dim i As Integer Dim fieldVal, boxSum As Variant txtTotalAllocation.Value = 0 For i = 2 To (totalFields - 1) fieldVal = textBoxes(textboxNames(i - 1)).Text boxSum = boxSum + fieldVal Next 'i txtTotalAllocation.Value = boxSum End Sub How can I change this code so that the values in each textbox are summed instead of concatenated? Thanks in advance, Mark |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum textboxes in a collection
Sub AllocationTotal()
Dim i As Integer Dim fieldVal, boxSum As Double txtTotalAllocation.Value = 0 For i = 2 To (totalFields - 1) fieldVal = textBoxes(textboxNames(i - 1)).Text if isnumeric(fieldVal) then boxSum = boxSum + cdbl(fieldVal) end if Next 'i txtTotalAllocation.Value = Format(boxSum,"#.00") End Sub If they will be integers, then change Double to Long, cdbl to clng Format to Format(boxSum,"0") -- Regards, Tom Ogilvy Mark wrote in message ... Any help for a newbie would be appreciated. I'm trying to sum several texbox inputs on a form and display the result in a "totals" textbox on the same form. The textboxes are part of a collection. The following code concatenates the values in the textbox inputs rather than adding the values: Global declarations: Dim textBoxes as New Collection Dim textboxNames() as String Private Sub txtCash_AfterUpdate() 'update total allocation AllocationTotal End Sub Sub AllocationTotal() Dim i As Integer Dim fieldVal, boxSum As Variant txtTotalAllocation.Value = 0 For i = 2 To (totalFields - 1) fieldVal = textBoxes(textboxNames(i - 1)).Text boxSum = boxSum + fieldVal Next 'i txtTotalAllocation.Value = boxSum End Sub How can I change this code so that the values in each textbox are summed instead of concatenated? Thanks in advance, Mark |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
working with textboxes-VBA | New Users to Excel | |||
Textboxes | Excel Discussion (Misc queries) | |||
Reference Tab name to two textboxes | Excel Discussion (Misc queries) | |||
Looping through textboxes | Excel Discussion (Misc queries) | |||
tab between several textboxes | Excel Worksheet Functions |