如何設置用戶窗體中的文本框的小數值？

如何從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 –

如何設置用戶窗體中的文本框的小數值？

回答

相關問題