excel - Azure Data Studio 生成的 Excel 电子表格将单元格值显示为文本(不是公式执行的结果)
问题描述
原始问题:
在 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 相同的效果?
解决方案
在我从事的项目中,我发现以下内容通常就足够了:
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
推荐阅读
- java - 在 Selenium 中执行 findElement 时找不到元素
- python - 蒙哥马利阶梯算法运行速度比预期的要慢
- reactjs - 如何使用后退按钮而不是选项卡来实现反应导航堆栈/bottomTab 导航器进行导航?
- javascript - jQuery 使用 'this' 为滑块下一个上一个按钮选择它的父级的兄弟姐妹
- php - 如何限制 Wordpress 中 the_category 的结果?
- codeblocks - Code::Blocks & WxWidgets 匹配发布配置
- javascript - 在另一个特定数组中转换数组
- python - pytest:在报告中添加测试描述(长测试名称)而不重命名文件或函数的最佳方法
- kotlin - 在 coroutineScope 的启动块中未捕获异常
- python - __init__.py 中的相对回购路径?