如何在用户窗体中为小数值设置文本框？

Question

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

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

这是从工作表中检索值的代码

Set ctlTXT = Me.SizeFrame.Controls.Add("Forms.TextBox.1")
ctlTXT.name = "OD" & counter
ctlTXT.value = Sheet2.Range("P" & findstart + counter - 1).value
ctlTXT.Left = 72
ctlTXT.Height = 15: ctlTXT.Width = 54
ctlTXT.Top = 45 + ((counter - 1) * 17 + 2)

1. 如何使用 case select 语句返回插入用户表单文本框中的小数值。从下面的代码可以看出，在文本框中插入 1/2 或 3/4 时没有返回值。

这是案例选择的代码

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

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

Answer 1

第一个可以试试

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