小编Sug*_*san的帖子

 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)

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