Display Decimal Value Input As String Format

I'm writing a macro that will automatically change the display in a column of cells.

The input in the cell would be a decimal value, (e.g. 1, 1.25, 1.5, 1.75, 2). As of now, I think the only input options are whole numbers and 1/4, 1/2, 3/4 fractions.

After inputting the decimal value, the cell should update to display the value as the following string format :

Input: 1.25
Displays: 1-1/4"

The purpose being to enable fast data entry while displaying in the desired format.

Here is where I know to begin for the automatic update:

Code:

Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'
'
'Code
'
'
Application.EnableEvents = True
End Sub