Question

如何使Me.TextBox15显示3/4“而不是0.75？我们可以更改文本框的格式吗？

If Me.ComboBox15.Text = "CARBON" And Me.ComboBox16.Text = "150" Then
            Me.TextBox15.Value = Sheets("SHEET2").Range("F56")
        End If

Answer 1

这应该使您接近。

Me.TextBox1.Value = WorksheetFunction.Text(Me.TextBox1.Value, "?/?") & Chr(34)

但是，这可能会向您显示“ 4”之类的整数，例如“ 4/1”。这是相同的，但在美学上并没有那么令人满意。要考虑的另一件事是，像.33333重复这样的分数不会显示为1/3，而是显示为33333/100000。我怀疑是否有一种简单的方法可以将重复的小数转换为“好的”分数。末尾的Chr(34)将单引号添加到字符串的末尾。

祝你好运！

如何获取文本框以显示分数格式

1 个答案: