Excel_VBA 向单元格输入分数

Public Sub 技巧4_127()
    Range("A1:A5").Clear          '清除单元格数据
    '输入一位分数
    Range("A1").NumberFormatLocal = "?/?"
    Range("A1").Value = "1/3"
    '输入二位分数
    Range("A2").NumberFormatLocal = "??/??"
    Range("A2").Value = "31/15"
    '输入三位分数
    Range("A3").NumberFormatLocal = "???/???"
    Range("A3").Value = "310/617"
    '输入四位分数
    Range("A4").NumberFormatLocal = "????/????"
    Range("A4").Value = "3121/5671"
    '输入五位分数
    Range("A5").NumberFormatLocal = "?????/?????"
    Range("A5").Value = "31111/15111"
End Sub