Отобажение числовых данных в TextBox в виде обычных дробей

[tim8579]

Может быть кто-нибудь подскажет, как в VBA excel отобразить формат числа в TextBox в виде дроби: например, 1/2, 1/3, 5/12 и т.д.

Код:

Private Sub UserForm_Initialize()
a = 0.2
b = 0.05
TextBox1 = a + b
End Sub

В указанном примере при запуске формы в TextBox будет отражено: 0.25. А мне нужно: 1/4.

[Serge_Bliznykov]

Сообщение от tim8579

отобразить формат числа

нет такого формата числа.

можете сами вычислять по алгоритму:
Перевод десятичных дробей в обыкновенные дроби

могут возникнуть сложности с некоторыми иррациональными числами.
ну, например, допустим, что у Вас в переменной a находится 3, а в переменной b число 0,141592653589793238462643
Какую дробь нужно отобразить в TextBox ?

[tim8579]

Спасибо за ответ.

Предложенный Вам метод понятен. Но, к сожалению, он работает не всегда, как и Вы и отметили. Например, если в примере a=1/3 и b=1/3, то метод не сработает

[Аватар]

Не обязательно 1/3. И 1/2 может быть такой, что не сработает, смотря как это число получено, вполне вместо ожидаемого 0.5 в переменной может быть 0.5000000000001 или 0.49999999999

[tim8579]

Да, примеров может быть множество.

У меня идея следующая. Есть Multipage, в которой каждая страница- это данные о человеке, владеющего долей в уставном капитале.
При открытии каждой следующей страницы доля должна подставляться автоматически как разница между 1 и суммой долей, указанных в предыдущих страницах. Поскольку доли в уставном капитале указываются в дробях, то и подстановка должна быть в дробях. Оператор может изменить долю при необходимости, а может не менять.

Ломаю голову, как этого добиться. Неужели никак?

[Казанский]

Используйте функцию листа ТЕКСТ, например

?worksheetfunction.Text (0.25,"0/0")
1/4
?worksheetfunction.Text (worksheetfunction.Pi,"# #/###")
3 16/113

[Аватар]

Ну и храни отдельно числитель и знаменатель в целых числах. А дальше правила приведения к общему знаменателю

[Serge_Bliznykov]

Казанский, а точно. недооценил я EXCEL. Там же есть тип "дробный".

Сообщение от tim8579

При открытии каждой следующей страницы доля должна подставляться автоматически как разница между 1 и суммой долей, указанных в предыдущих страницах.

Лучше всего написать вычисления в обыкновенных дробях, не переводя их в десятичный вид. Там арифметика на уровне начальной школы. Общий знаменатель, НОК, НОД. всё просто.

Сообщение от Аватар

Ну и храни отдельно числитель и знаменатель в целых числах. А дальше правила приведения к общему знаменателю

точно так! И я про то же самое!

[tim8579]

Отлично,

вариант worksheetfunction.Text (worksheetfunction.Pi,"# #/###") работает замечательно. Огромное спасибо!