如何在userform中为小数值设置文本框？

Question

我对用户表单文本框中的分数有两个问题。

1. 如何从Excel工作表中检索值并将其显示在带有分数的文本框中。例如，0.5（工作表）将显示为1/2（文本框）。并非所有值都是分数，也有整数
的值

这是从表单中检索值的代码

Select Case X
    Case "1 / 2"
        Y = 15
    Case "3 / 4"
        Y = 20
    Case 2
        Y = 40
End Select

1. 如何使用大小写选择语句返回在用户表单文本框中插入的小数值。从下面的代码中，在文本框中插入1/2或3/4时没有值返回。

这是案例选择的代码

{{1}}

这两个代码都不是完整的代码。

Answer 1

对于第一个，您可以尝试

ctlTXT.Value = WorksheetFunction.Text(Sheet2.Range("P" & findstart + counter - 1).Value, "#?/?")