用斜体字打印字符串
用斜体字打印字符串
提问于 2014-06-19 17:08:46
我将输入作为来自Userform的字符串，并且需要在单元格中输出它们。在输出中，所有字符串都连接在一起，但只有少数字符串被斜体化。我无法输出斜体字串。我尝试过搜索文档、堆栈交换和其他博客，但它们都需要从单元格中选择，而不是操作从Userform获得的字符串。任何帮助或指示都是非常感谢的。
输出:1 R.焊机。如何焊接。焊接车间:出版商，2014年，第25-32页。
期望输出:1 R.焊机。如何焊接。焊接车间:出版商，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'回答 1
Stack Overflow用户
回答已采纳
发布于 2014-06-19 17:14:51
将您写的单元格的字体样式设置为斜体的单元格，而不是字符串；
With Range("A1")
.Font.Italic = True
.Value = "Roast Beef"
End With编辑；将部分单元格斜体化，通过偏移量和长度选择其内容：
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/24312450
复制相关文章
相似问题
腾讯云开发者
