如何在Excel中为表格创建星级评论系统？

Question

我是 VBA 新手，我的任务是找到一种方法来实现 5 星评论，例如在 Amazon/Ebay 中使用图形星本身作为 excel 表。 有可能吗？ 甚至与其他技术结合。

我所需要的只是一些点击，如何做到这一点，以及从哪里开始。

Answer 1

根据您的最后一条评论，我只想勾勒出手动进行此类评级的基本概念。 由于我无法将其放入评论框中，因此我将其作为其外观的概念草稿放在这里（这不是试图成为解决方案）：

(1) 在一张纸上得到一颗星星就是这么简单

Sheet1.Shapes.AddShape Type:=msoShape5pointStar, _
    Left:=100, Top:=100, Width:=7.2, Height:=7.2

(2) 在它旁边再增加四颗星应该很简单，只需在Left增加前一颗星的宽度和一些额外的空间即可。

(3) 使用预设将星星涂成黄色或白色（Office 2010+）

.ShapeStyle = msoShapeStylePreset12

(4) 为了找到表格上包含应评级值的单元格旁边的星星，您可以使用以下方法假设该值在单元格 A1 中：

.Left = Sheets(1).Range("A1").Left + Sheets(1).Range("A1").Width

当然，还有比上面更多的东西。 您必须确定要为其创建星星的单元格范围。 此外，如果有人添加一列或更改一列的宽度，则所有星星都可能会更改，并且必须再次绘制。 此外，您必须确保 B 列的宽度足以容纳所有星星。 但这是基本概念（因为我会尝试这样做）。