0

原始问题：

在 Azure Data Studio 中，我已将 SQL 查询的结果保存到 Excel 电子表格中。当我打开电子表格时，包含公式（URL 超链接）的单元格显示为要显示的文本，而不是执行公式的结果（命名的可见可点击超链接）。

这是电子表格中的前三行原始数据：

源表名A sourceTableComposedKeyA sourceTableComposedKeyA2 源表名B sourceTableComposedKeyB
FCC_ASR_LI_20210202 =超链接("https://maps.google.com/maps?q=28.537266254426,-97.794735431672","C.2655506") https://maps.google.com/maps?q=28.537266254426,-97.794735431672 F3GIS_20210209 =超链接("https://maps.google.com/maps?q=28.537266254426,-97.794735431672","{F4C8C17C-0702-4B08-ABC5-7ABF0BD76BAA}")
FCC_ASR_LI_20210202 =超链接("https://maps.google.com/maps?q=29.709928035737,-96.912009716035","C.616145") https://maps.google.com/maps?q=29.709928035737,-96.912009716035 F3GIS_20210209 =Hyperlink("https://maps.google.com/maps?q=29.709928035737,-96.912009716035","{7F77EAB2-3588-4023-921F-4C009FC91BDC}")

解决方案 A：

通过单击单元格（例如：上面的 B2），然后按 Return，单元格然后变成公式的结果。

新问题：

我有 +20K 的单元格，我需要执行“解决方案 A”。并且手动执行“解决方案 A”+20K 次不是一种选择。

解决方案 B（勉强够用）：

在投入大量时间试图解决这个问题后，我发现了一个边缘解决方案。它是选择包含公式作为文本的列的内容，然后搜索/替换“=”字符。虽然这实际上将文本转换为每个单元格的实际公式，但它使每个单元格看起来像常规文本，而不是使其具有可点击链接的默认外观。这导致我不得不手动为所有这些单元格添加下划线并选择不同的颜色。

解决方案 C（可能吗？）：

我的第一个想法是这是 VBA 中 Excel 宏的工作。这是我所能得到的最接近的：

Public Sub Convert_To_Hyperlinks()
  Dim Cell As Range
  For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
    If Cell <> "" Then
      If Left(Cell, 1) = "=" Then
        Evaluate (Cell)
      Else
        ActiveSheet.Hyperlinks.Add Cell, Cell.Value
      End If
    End If
  Next
End Sub

对于包含原始 URL（即单元格不以“=”字符开头）的单元格（例如：上面的 C2），此函数完全符合我的需要，它ActiveSheet.Hyperlinks.Add Cell, Cell.Value为每个单元格调用给出所需结果的单元格。但是，检测单元格（例如：上面的 B2）是否以“=”开头的代码Evaluate (Cell)不适用于选定的单元格。

我可以使用什么 VBA 代码来替换Evaluate (Cell)，如果有的话，它会产生与解决方案 A 相同的效果？

4

1 回答 1

1

在我从事的项目中，我发现以下内容通常就足够了：

Cell.Value = Cell.Value

美妙之处在于您可以在一行中应用范围。

使用循环应用于您的代码：

Public Sub Convert_To_Hyperlinks()
  Dim Cell As Range
  For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
    If Cell <> vbNullString Then
      If Left$(Cell, 1) = "=" Then
          Cell.Value = Cell.Value
      Else
          ActiveSheet.Hyperlinks.Add Cell, Cell.Value
      End If
    End If
  Next
End Sub
于 2021-02-12T09:15:51.993 回答