如何将单元格中的特定文本设置为粗体和下划线

Question

 strProject = Trim(ThisWorkbook.Sheets("Proposed").Cells(i, 2).Value)
       On Error Resume Next
       Set objWorkSheet = objWorkbook.Sheets("" & strProject & "")
       If Not objWorkSheet Is Nothing Then
            ThisWorkbook.Sheets("Proposed").Cells(i, 5).Value = Trim(objWorkSheet.Cells(12, 6).Value)
            ThisWorkbook.Sheets("Proposed").Cells(i, 6).Value = "Highlights for current week:" + Chr(10) + Trim(objWorkSheet.Cells(22, 2).Value) + Chr(10) + Chr(10) + "Action Plan for next Week:" + Chr(10) + Trim(objWorkSheet.Cells(27, 2).Value)

如何将“本周亮点：”加粗并加下划线？

Answer 1

是的你可以。粗体和斜体属性属于Font 对象，可以通过range 对象访问该对象。

例子

ActiveCell.Font.Bold = True
ActiveCell.Font.Italic = True

此示例更新当前活动的单元格。

更新

如果您只想将样式应用于单元格的一部分，则语法略有不同。

部分格式化示例

ActiveCell.Characters(Start:=1 Length:=10).Font.Bold = True

开始和长度参数控制哪些字符以粗体显示。

您知道 Excel 可以为您编写 VBA 吗？在左下角寻找宏录制器。当激活时，Excel 会将您的手动操作转换为 VBA。这是发现所需代码的好方法。