Do Loop Sum

Basic Exercise

Statement

Create an Inputbox within a Do Loop to access value additions, as if it is a calculator just for additions. Make the loop show the final value of the addition at the end, when the user clicks the ok button with an empty input. Additionally, if a text character is inserted, make it so that a message appears instructing the user to input only numeric values. This alert message should not make the application lose the previously inserted values.

Suggested Concepts:

Dim - Declares variables.
If Else - Conditionally executes a group of statements.
Msgbox - Running the Code - Displays a message in a dialog box.
Do Loop - Repeats a block of statements while a Boolean condition is True.
InputBox - Assigning Values - Displays a prompt in a dialog box for the user to enter text.
IsNumeric - Returns a Boolean value indicating whether an expression can be evaluated as a number.

Remember that in most cases there is more than one way to solve the exercise.

Hint: Create two conditionals If within the Do Loop to identify if a value is numeric or null.

Solved Exercise

Exercise Solution

Declare the variables and assign one of them to zero

Dim CellVal As Variant
Dim TotalSales As Double

TotalSales = 0

Make the Do Loop to run until the input value is blank. Display the addition result value at the end of the loop in a msgbox
```
Do

Loop Until CellVal = vbNullString
MsgBox "Today the total revenue was U$" & TotalSales, , "SuperExcelVBA"
```

Insert an input box with two If conditionals within the loop. Add the input values to the variable previously assigned to zero. Make the loop display a msgbox with an alert if the input value is not numeric. Make the loop stop if the input value is not numeric and is null.

CellVal = InputBox("Enter the (next) Invoice value" & vbCrLf & vbCrLf & "Click Ok or Cancel with an empty entry to display the addition value.", "SuperExcelVBA")
If Not IsNumeric(CellVal) Then
    If CellVal = vbNullString Then
        Exit Do
    End If
    MsgBox "Enter numeric content", vbCritical, "SuperExcelVBA"
Else
    TotalSales = TotalSales + CellVal
End If

Consolidated Answer

    Sub Solution()

    Dim CellVal As Variant
    Dim TotalSales As Double

    TotalSales = 0
    Do
        CellVal = InputBox("Enter the (next) Invoice value" & vbCrLf & vbCrLf & "Click Ok or Cancel with an empty entry to display the addition value.", "SuperExcelVBA")
        If Not IsNumeric(CellVal) Then
            If CellVal = vbNullString Then
                Exit Do
            End If
            MsgBox "Enter numeric content", vbCritical, "SuperExcelVBA"
        Else
            TotalSales = TotalSales + CellVal
        End If
    Loop Until CellVal = vbNullString
        MsgBox "Today the total revenue was U$" & TotalSales, , "SuperExcelVBA"

    End Sub

Show Answer

Download exercise Download answer

SuperExcelVBA.com is learning website. Examples might be simplified to improve reading and basic understanding. Tutorials, references, and examples are constantly reviewed to avoid errors, but we cannot warrant full correctness of all content. All Rights Reserved.

Excel ® is a registered trademark of the Microsoft Corporation.

INTRODUCTION

BASIC

INTERMEDIATE

ADVANCED