如何使文本的一部分变粗

Question

我在vba中有以下功能：

Function ConcatinateAllCellValuesInRange(sourceRange As Excel.Range) As String
        Dim finalValue As String

        Dim cell As Excel.Range

        i = 0       
        For Each cell In sourceRange.Cells
        i = i + 1
        Rzad = cell.Row
            finalValue = finalValue & CStr(i) & ". " & CStr(Sheets(1).Cells(Rząd, 6)) & "/" & CStr(Sheets(1).Cells(Rząd, 7)) & ": " & Format(cell.Value, Bold) & "; " & vbCrLf

        Next cell

        ConcatinateAllCellValuesInRange = finalValue
    End Function

我想将文本的一部分加粗，但'Format（cell.Value，Bold）'不起作用。你能建议一个解决方案吗？

Answer 1

尝试：

cell.Font.Bold = True

如果您希望整个单元格为粗体。

如果您只想将部分单元格内容设为粗体，请参阅： excel vba: make part of string bold