I show you how to convert stone to pounds and pounds to stone using the Microsoft Excel application.
Convert using simple multiplication or division
Convert using simple multiplication or division: To convert stone to pounds, multiply by 14. To convert pounds to stone, divide by 14.
Conversion using CONVERT Excel function
Use the formula =CONVERT(cell,”unit1″,”unit2″) to automatically convert between units.
Convert using VBA code
Use the custom VBA function ConvertStonesToPounds and the subroutine ConvertStonesToPoundsMain to convert stones to pounds by inputting the number of stones and receiving the equivalent in pounds.
Function ConvertStonesToPounds(stones As Double) As Double
ConvertStonesToPounds = stones * 14
End Function
Sub ConvertStonesToPoundsMain()
Dim stones As Double
Dim pounds As Double
stones = InputBox("Enter the number of stones to convert to pounds:")
If IsNumeric(stones) Then
pounds = ConvertStonesToPounds(stones)
MsgBox stones & " stones is equal to " & pounds & " pounds",
vbInformation, "Stones to Pounds Conversion"
Else
MsgBox "Invalid input! Please enter a valid number.",
vbExclamation, "Error"
End If
End Sub
The custom functions in the Visual Basic module handle the conversion by applying the appropriate formula, which makes the conversion process easier and more efficient. This method also allows you to modify the conversion formulas if needed, by simply editing the code in the module.
Convert pounds to stone and ounces
1 stone is equal to 14 pounds, making it easy to calculate. One pound is 16 ounces, making it more difficult to calculate. Luckily, there is an Excel formula which converts pounds to stone and ounces.
=TRUNC(A1/14)&”‘ “&ROUND(MOD(A1,14)*16,0)&””””
If A1 contains 200 pounds, this formula will convert it to 14’ 4″, meaning 14 stones and 4 ounces.
