Попытка найти код html для форматирования вставленного текста - PullRequest
0 голосов
/ 21 января 2020

У меня есть обширный код, который я использую для вставки из ячеек, диапазонов и строк Excel, и т. Д. c. Я могу заставить некоторые вещи форматировать так, как мне нужно, но я не могу заставить некоторые строки делать это.

Например: я могу получить постоянный текст, выделенный жирным шрифтом:

"<b><u>Status:</u></b>"

Но я не могу заставить эту строку делать то же самое:

& Cells(i, "B").Text &

For i = 10 To 18 
    If Not Cells(i, "A").Text = vbNullString Then 'Add to growing string
        concatString = concatString & Cells(i, "A").Text & ", " & Cells(i, "B").Text & "<br>" & vbCr 
        concatString = concatString & "<b><u>Status:</u></b>" & " " & Cells(i, "C").Text & "<p>" & vbCr 
    End If

1 Ответ

0 голосов
/ 21 января 2020

Это то же самое, просто конкатенация переменной в строку.

Например:

"<b><u>" & Cells(i, "B").Text & "</u></b>"

Обновлено:

Чтобы добавить код, который вы включили в свой вопрос (вы не указали, что именно Вы хотели жирный и подчеркнутый ... поэтому я думаю, вы хотите, чтобы все это было жирным шрифтом):

For i = 10 To 18 
    If Not Cells(i, "A").Text = vbNullString Then 'Add to growing string
        concatString = concatString & "<b><u>" 
        concatString = concatString & Cells(i, "A").Text & ", " & Cells(i, "B").Text & "<br>"
        concatString = concatString & "Status:" & " " & Cells(i, "C").Text
        concatString = concatString & "</u></b>"
    End If
Next i

Это сделает все это жирным и подчеркнутым.

Примечание : vbCr ничего не делает внутри HTML, поэтому я удалил его.

Если вы хотите, чтобы эта строка была жирным и подчеркнутым, сделайте это следующим образом:

For i = 10 To 18 
    If Not Cells(i, "A").Text = vbNullString Then 'Add to growing string
        concatString = concatString & Cells(i, "A").Text & ", " & Cells(i, "B").Text & "<br>"
        concatString = concatString & "<b><u>" 
        concatString = concatString & "Status:" & " " & Cells(i, "C").Text
        concatString = concatString & "</u></b>"
    End If
Next i

Обратите внимание, что я поместил теги HTML в их собственные строки, чтобы вам было удобнее перемещать их, не редактируя строки кода, содержащие данные.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...