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)

我如何制作＆＃34;本周亮点：＆＃34;大胆和下划线？

Answer 1

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

示例

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

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

<强>更新

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

部分格式化示例

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

start和length参数控制哪些字符以粗体显示。

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

如何在单元格中加粗和加下划线

1 个答案: