vba - 将 Excel 单元格中的粗体文本转换为强标记的宏

Question

我需要在 Excel 工作表中转换文本。如果单元格包含 粗体字 在单元格的中间，我需要添加 HTML <strong>周围的标签。我需要这个，因为我想将文本插入数据库。

我收到了几张 Excel 表格，所有表格都包含大量不同语言的翻译。虽然我使用过这样的工作表来生成 SQL 语句，但这次不同，因为需要保留格式。

我通常只是转换文本，然后连接成 SQL 语句。但是这次我还需要一个宏/函数来添加<strong>文本的标签:我不想手动做，因为如果原始文本更改，我将需要手动重做修改。

Answer 1

回答

我在工作表中添加了一个新的宏功能。我为此创建了一个模块，并将该功能添加到模块中。这让我可以在公式中间使用熟悉的 Excel 函数符号来调用它。

打开 VBA 编辑器(Alt + F11 在 Windows 上/Fn + Option + F11 在 Mac 上)

如果您还没有模块，请右键单击 VBA项目

选择 插入 >> 模块

添加代码到模块

以下功能是我想出的:

Function AddStrongTags(ByVal aCell As Range) As String        
    Dim result As String
    Dim isBold As Boolean

    isBold = False

    For i = 1 To Len(aCell.Value)
        If aCell.Characters(i, 1).Font.FontStyle = "Bold" Then
            If isBold = False Then
                result = result + "<strong>"
                isBold = True
            End If
        Else
            If isBold = True Then
                result = result + "</strong>"
                isBold = False
            End If
        End If
        result = result + aCell.Characters(i, 1).Text
    Next i

    If isBold = True Then
        result = result + "</strong>"
    End If

    AddStrongTags = result
End Function

例如，要在单元格 A2 上运行该函数，我将输入所需的单元格:
=AddStrongTags(A2)
这将产生没有粗体格式但带有 <strong> 的文本添加的标签。

该函数返回一个字符串，因此可用于连接到我的 SQL 语句中。例如，这里是使用新函数创建 SQL 语句的简化示例，我将在空单元格中输入该语句:
="INSERT INTO Foo ( lang, text ) VALUES ( 'en-GB', '" & AddStrongTags(A2) & "' )"