如何使用VBA将内容加载到单元格注释中？

Question

我有一个电子表格，我会每月更新一次，跟踪批准的申请百分比。 我希望能够将鼠标悬停在一个单元格上，并在评论中查看与该单元格内容相关的数据。例如：

这是我的趋势标签的剪辑。

有2016Data选项卡，其中123是2016年1月收到的申请数量，102是批准的申请数量。 2016Data选项卡是静态的，不会更改，因为它是将今年与去年比较的历史参考。

2017Data选项卡具有相同的信息，但此信息将每月刷新。

注意：数据选项卡上的所有应用程序记录都在A列：A中标注为1，因此我可以对存在其他属性的列求和，以帮助我分析数据。同样，每个应用程序在B列中都标有1或0：B，因此我可以对该列求和以了解已批准的应用程序数。以下是有关这些数据标签的信息示例：

我手动创建了上面的剪辑，以显示我在VBA中重新创建的内容，每次刷新2017Data时，我都需要自动更新所有注释中的所有计数。

另外值得注意的是 - 我是VBA的小孩，我对它的经验非常有限。

Answer 1

以下是如何为单元格创建注释。

Dim mySheet, myCell
Set mySheet = ThisWorkbook.Sheets("Sheet1")
Set myCell = mySheet.Cells(1, 1)

On Error Resume Next 'In case there is an existing comment to the cell already, you will get an error
myCell.AddComment
myCell.Comment.Visible = False
myCell.Comment.Text Text:="myComment text"

您必须编写自己的逻辑来阅读源表中的内容并添加评论目标。

'Read from a cell
Dim strCellVal
strCellVal = myCell.Value

'Write to a cell
myCell.Value = "My Cell Content"

<强> - 编辑 -

尝试下面循环每个细胞，

Dim UsedRange, CurrentCell
' Assuming your data starts from cell A1
UsedRange = "$A$1:" + mySheet.Cells.SpecialCells(xlCellTypeLastCell).Address

For Each CurrentCell In mySheet.Range(UsedRange).Cells
   MsgBox CurrentCell
Next