Как получить текстовое поле для отображения формата дроби

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) в конце добавит одинарную кавычку в конец строки.

Удачи!