Печать строки, выделенной курсивом

Question

Я беру ввод как строки из Userform, и мне нужно вывести их в ячейку. На выходе все строки объединены, но только некоторые из них выделены курсивом. Я не могу вывести строки, выделенные курсивом. Я попытался выполнить поиск документации, обмена стеками и нескольких других блогов, но все они требуют выбора из ячейки, а не для обработки строки, полученной от Userform. Любую помощь или указатели приветствуем.

Выходной сигнал: [1] R. Welder. Как сварить. Сварочный цех: Издатель, 2014, стр. 25-32.

Желаемый результат: [1] R. Welder. Как сварить. Сварочный цех: Издатель, 2014, стр. 25-32.

Private Sub Ok_Click() 
Dim emptyRow As Long 
Dim bookAuthor, bookTitle, loc, publish, yearBook, pageBook As String 

'Make Sheet2 active 
Sheet2.Activate 

'Determine emptyRow 
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 

'Format Information 
bookAuthor = Author.Value + ". " 
bookTitle = TitleOfBook.Value + ". " 'Needs to be Italicized 
'bookTitle.Font.Italic 'Error: Object Required 
'TitleOfBook.Font.Italic = True 'Italicizes in userform but not in cell 
loc = Location.Value + ": " 
publish = Publisher.Value + ", " 
yearBook = Year.Value + ", " 
pageBook = "pp. " + Pages.Value + ". " 

'Transfer information 
Cells(emptyRow, 1).Value = "[" + CStr(emptyRow) + "] " + bookAuthor + bookTitle + loc + publish + yearBook + pageBook 

Unload Me 
End Sub' 

Answer 1

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

With Range("A1") 
    .Font.Italic = True 
    .Value = "Roast Beef" 
End With 

Edit; Чтобы наклонная часть ячейки выбрать его содержание по смещению и длиной:

emptyRow = 1 
bookAuthor = "R. Welder." 
bookTitle = "How to weld" 
loc = "Welding Shop" 
publish = "Publisher" 
yearBook = "2014" 
pageBook = "pp25-32" 

Dim temp As String, begin As Long 
'// store everything upto the start of italic part 
temp = "[" & emptyRow & "] " & bookAuthor & " " 
'// store its length 
begin = Len(temp) 

With Range("A1") 
    '// set the value to everything 
    .Value = temp & bookTitle & " " & loc & " " & publish & " " & yearBook & " " & pageBook 
    '// we know where the italic text need to be 
    .Characters(begin + 1, Len(bookTitle)).Font.Italic = True 
End With