时间戳

首页 > 解决方案 > 如何让文本框显示分数格式

textbox - 如何让文本框显示分数格式

问题描述

如何让 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

标签： textboxformatuserformfractions

解决方案

这应该让你接近。

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

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

祝你好运！

推荐阅读