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

如何从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/2或3/4时没有值返回。

这是情况下，代码选择

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

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

来源

2017-04-12 mfo_28

你能表现出更多的代码放在背景下，特别是在你的'选择案例X'的X是从哪里来的？ –

X是插入到文本框中的值，Y是将返回到工作表中的值。 –

对于第一个，你可以尝试

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

来源

2017-04-12 10:05:37 sktneer

当我把代码，价值是不同的。 –

如果Sheet2.Range（“P”＆findstart + counter - 1）中的值为0.5，则它将在文本框中显示为1/2。 – sktneer

但在文本框中不显示为1/2。表中的值是0.5 –

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

回答

相关问题