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)
如何将“本周亮点:”加粗并加下划线?
最佳答案
是的,你可以。粗体和斜体属性属于 Font object ,可以通过 range object 访问.
示例
ActiveCell.Font.Bold = True
ActiveCell.Font.Italic = True
此示例更新当前事件的单元格。
已更新
如果您只想将样式应用于单元格的一部分,则语法略有不同。
部分格式示例
ActiveCell.Characters(Start:=1 Length:=10).Font.Bold = True
开始和长度参数控制哪些字符以粗体显示。
您知道 Excel 可以为您编写 VBA 吗?在左下角寻找宏录制器。当激活时,Excel 会将您的手动操作转换为 VBA。这是发现所需代码的好方法。
关于vba - 如何将单元格中的特定文本设置为粗体和下划线,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35314421/