Excel 使用VBA显示单元格的注释，其中注释是活动的Bloomberg公式

我正试图在excel中创建一个“注释”，显示突出显示的任何单元格的彭博BDP信息。例如，假设active.cell=IBM，我在IBM上“悬停”。我想弹出一个评论框，显示相关的市场数据

$bid = "=BDP(active.cell &" US EQUITY","BID_ALL_SESSION")"
$bidsize = "=BDP(active.cell &" US EQUITY","BID_SIZE_ALL_SESSIONS_RT")"
$ask = "=BDP(active.cell &" US EQUITY","ASK_ALL_SESSION")"
$asksize = "=BDP(active.cell &" US EQUITY","ASK_SIZE_ALL_SESSIONS_RT")"
$last = "=BDP(active.cell &" US EQUITY","LAST_ALL_SESSIONS")"
$lastsize = "=BDP(active.cell &" US EQUITY","TRADE_SIZE_ALL_SESSION_RT")"

在“废话”中，我想要（$bidsize$bid$ask$asksize$last$lastsize）

我开始四处窥视，发现下面有些东西，但不知道如何实现。有什么想法吗

Sub add-comments()

Dim rcell As Range

For Each rcell In Range("B2:B48")

If rcell.Value <> "" Then
rcell.AddComment

rcell.Comment.Text 'blah'
End If
Next
End Sub

子添加注释（）
变暗rcell As范围
对于范围内的每个rcell（“B2:B48”）
如果rcell.Value为“”，则
rcell.AddComment
rcell.Comment.Text“废话”
如果结束
下一个
端接头

---

感谢您查看

单元格评论框中的评论是字符串和静态的。它不能以与公式相同的方式工作，因此它不能是“活的”。如我所知，如果您想实现您的想法，您可以将namerange控件添加到此工作表中。它具有选择事件，因此当用户选择一个单元格时，您可以根据单元格中的公式添加注释。

是否希望注释处于“活动”状态？您可以将SelectionChange事件与彭博VBA API结合使用。但是从API获取信息可能需要一些时间，这会使电子表格速度变慢。Excel可能不是做你想做的事情的最佳环境。是的，我希望评论是“实时的”。就使用Excel而言，我的“不动产”是有限的，大多数屏幕用于显示我的电子表格。我可以很容易地在excel和Bloomberg之间切换，但我宁愿把电子表格放在前面。另外，因为我已经在另一张工作表上提取了这些信息，所以我也可以使用索引匹配函数。@CMR72这可能会快得多。如果我是你，我会问一个新问题：我在一张工作表中有一些数据，当在另一张工作表上选择一个单元格时，我需要使用它来填充注释-确保显示您尝试过的代码，我相信有人会回答。不必提及彭博社，因为一些用户可能会跳过这个问题，因为他们不了解彭博社。