Convert Units eg, inches to centimeters with Excel VBA

Objective

Convert a given value in inches to centimeters (or other units), based on user input.

VBA Code for Conversion (inches to centimeters)

1. Open the VBA editor:
   • Open your Excel file.
   • Press Alt + F11 to open the VBA editor.
   • In the menu, go to Insert and then Module to insert a new module.
2. Add the Code:

Here is an example of VBA code to convert units (inches to centimeters).

Sub ConvertUnits()
    ' Declare variables
    Dim value As Double
    Dim result As Double
    Dim choice As String   
    ' Ask the user to enter the value to be converted
    value = InputBox("Enter the value to convert in inches:")   
    ' Check if the entered value is a valid number
    If IsNumeric(value) Then
        ' Ask the user to choose the target unit for conversion
        choice = InputBox("Enter the target unit for conversion: (cm for Centimeters, m for Meters, km for Kilometers)")
        ' Perform the conversion based on the choice
        Select Case LCase(choice)
            Case "cm"
                ' Convert inches to centimeters (1 inch = 2.54 cm)
                result = value * 2.54
                MsgBox value & " inches is equal to " & result & " centimeters."
            Case "m"
                ' Convert inches to meters (1 inch = 0.0254 m)
                result = value * 0.0254
                MsgBox value & " inches is equal to " & result & " meters."
            Case "km"
                ' Convert inches to kilometers (1 inch = 0.0000254 km)
                result = value * 0.0000254
                MsgBox value & " inches is equal to " & result & " kilometers."
            Case Else
                ' If the user enters an invalid unit
                MsgBox "Invalid unit, please choose between 'cm', 'm', or 'km'."
        End Select
    Else
        ' If the user did not enter a valid number
        MsgBox "Please enter a valid numeric value."
    End If
End Sub

Code Explanation

• Variable Declaration:
  • value: Stores the value entered by the user (in inches).
  • result: Stores the result of the conversion.
  • choice: Stores the target unit that the user wants (centimeters, meters, or kilometers).
• Getting User Input:
  • The InputBox prompts the user to enter a value in inches.
  • Another InputBox prompts the user to choose the target unit for conversion (cm, m, or km).
• Conversion with Select Case:
  • If the user chooses « cm », the conversion is done by multiplying the value in inches by 2.54 (since 1 inch = 2.54 cm).
  • If the user chooses « m », the conversion is done by multiplying the value in inches by 0.0254 (since 1 inch = 0.0254 m).
  • If the user chooses « km », the conversion is done by multiplying the value in inches by 0.0000254 (since 1 inch = 0.0000254 km).
• Displaying the Result:
  • The MsgBox displays the conversion result in a message box.

How to Use This Code:

1. Copy the VBA code into a module as described above.
2. Press F5 to run the script.
3. The program will ask you to enter the value in inches that you want to convert, and then choose the target unit (cm, m, or km).
4. The result will be displayed in a message box.

Example:

If you enter the value 10 for inches and choose « cm » as the target unit, the message displayed will be:

10 inches is equal to 25 centimeters.

Possible Improvements:

• Add additional conversions for other units (e.g., convert to feet, yards, etc.).
• Allow the user to input the value directly into an Excel cell and automate the conversion based on data in the worksheet.