Excel VBA, скопировать текст с форматированием из рабочего листа в пользовательскую форму

Мне нужно вытащить текст с форматами из рабочего листа в пользовательскую форму. Я могу вытащить обычный текст, но не могу получить текст с форматированием. Не могли бы вы предложить код для этого?

Мой код

На основе ввода текста в ComboBox2 соответствующий результат поиска появится в двух текстовых полях.

Частный Sub ComboBox2_Change ()

If Len (ComboBox2.Text)> 1 Тогда search1 End If

End Sub Private Sub search1 () Dim erow As Long Dim ws Как рабочий лист Dim lastrow As Long Dim count Как целое число Dim temp As String

lastrow = Sheets ("Sheet3"). Ячейки (Rows.count, 1).End(xlUp). Количество строк = 0

Для X = 2 до последней

If Sheets("Sheet3").Cells(X, 1) = ComboBox2.Text Then
    TextBox2.Text = Sheets("Sheet3").Cells(X, 2)
    TextBox4.Text = Sheets("Sheet3").Cells(X, 3)
    count = count + 1

End If

Next X

0 ответов

Другие вопросы по тегам