如何在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 列的寬度足以容納所有星星。 但這是基本概念（因為我會嘗試這樣做）。