Feet Inches Sixteenths (FIS) Calculator Jun 2021

Building a Feet Inches Sixteenths (FIS) Calculator in Excel

From a few years back … and recently updated.

My approach was simply:

transform entries from FIS to decimal format
do the math operations
transform the results to FIS format

In the illustrated portion of this spreadsheet, the user can enter an FIS value, factor it (up, down, zero, negative, positive), produce a running sum of those entries. Red cells are user entries, blue cells are calculated.

Screenshot

Entering Fractions

' NOTES
'
' This excerpt is taken from my Excel VBA project code
'
' This subroutine is activated by any change to the worksheet
' 
' In a certain range of cells, named "Fraction Groups" (see Column E), 
' the user enters the fractional portion of a measurement without a slash
' 
' EXAMPLE 1
' To represent the fraction 1/2, the user types: 12 Enter
' A subroutine converts the integer 12 to a formula reading "= 1/2"
'
' EXAMPLE 2A
' To represent the fraction 3/16, the user types: 316 Enter
' A subroutine converts the integer 316 to a formula reading "= 3/16"
'
' EXAMPLE 2B
' To represent the fraction 3/16, the user types: 3 Enter
' A subroutine converts the integer 3 to a formula reading "= 3/16"
'
' The obvious benefit is an easy and definite entry of fractions without having to enter the slash
' Entering a slash in Excel typically triggers date entry mode -- not what I wanted
' 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("Fraction_Groups"))
If Not (isect Is Nothing) Then
    For Each cell In isect
    cellVal = cell.Value
        If cell.HasFormula = False And cellVal <> 0 And _
                             (cellVal - Int(cellVal)) = 0 Then
            Select Case cellVal
                'sixteenths (odd) no denominator
                Case 1, 3, 5, 7, 9, 11, 13, 15
                    cell.Formula = "= " & Str(cellVal) & " / 16"
                'fourths and eighths
                Case 18, 14, 38, 12, 58, 34, 78, 28, 48, 68
                    cell.Formula = "= " & Str(Int(cellVal / 10)) & " / " & _
                                   Str(cellVal - Int(cellVal / 10) * 10)
                'sixteenths (all)
                Case 116, 216, 316, 416, 516, 616, 716, 816, _
                     916, 1016, 1116, 1216, 1316, 1416, 1516
                    cell.Formula = "= " & Str(Int(cellVal / 100)) & " / " & _
                                   Str(cellVal - Int(cellVal / 100) * 100)
            End Select
        ElseIf cell.Value = 0 Then
            cell.Formula = ""
        End If
    Next cell
End If