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

У меня две проблемы с номером фракции в текстовом поле формы пользователя.

  1. Как получить значение из листа 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. Как вернуть дробное значение, вставленное в текстовое поле пользовательской формы, с помощью оператора выбора case. Из приведенного ниже кода возврат значения невозможен, если 1/2 или 3/4 вставлено в текстовое поле.

Это код для выбора случая

 Select Case X Case "1 / 2" Y = 15 Case "3 / 4" Y = 20 Case 2 Y = 40 End Select 

Оба эти кода не являются полным кодом.

Для первого вы можете попробовать

 ctlTXT.Value = WorksheetFunction.Text(Sheet2.Range("P" & findstart + counter - 1).Value, "#?/?") 
  • Excel VBA Userform Textbox - выделение изменений, сделанных в разных цветах шрифта
  • Excel - изменение BackColor текстовых полей UserForm и ComboBoxes с помощью VBA
  • Как сделать текстовое поле ActiveX только для чтения, но прокручиваемым в Excel 2013?
  • Как изменить цвет фона текстового поля с помощью кнопки
  • Не удалось извлечь содержимое текстового поля Powerpoint в Excel с помощью Excel VBA
  • Ячейка, подключенная средствами управления, продолжает терять формулу
  • Получить значения для текстового поля из ячейки Excel в C #
  • Неверное текстовое поле в форме VBA
  • Добавление переменного количества символов в строку, основанная на текущей длине строки
  • Вставить из excel в текстовое поле
  • Excel VBA - Shapes Текстовое поле OnChange событие
  • Interesting Posts

    Получать значения из последних 3 непустых ячеек в строке

    Отображение значений строк в столбце

    Ошибка 450 при использовании AcroExch.AVdoc.Open для открытия pdf-файла с помощью vba

    Японские символы не отображаются правильно в ReadOnlySharedStringsTable

    как создать относительный путь в гиперссылке? (Word.Document.12)

    запуск макросов на защищенный лист – ответов не найдено

    Excel VBA: назначить макрос командной строке для создания гиперссылки

    ADVISE: доступ к объектам PHP в Internet Explorer из Excel VBA

    Excel удалить дубликат и получить счет

    Экспортировать заголовок и содержимое текстовых файлов в отдельные столбцы Excel?

    Идентификация и выделение пустой строки в Excel VBA

    Простой для цикла через заданный диапазон, определенный последней строкой

    Как vlookup между значениями диапазона?

    Значения Combobox сбрасываются до значения по умолчанию – vba excel

    Объект Excel VBA Range задан, но отсутствуют внутренние объекты

    Давайте будем гением компьютера.