VBA - 根据单元格值插入星形

Question

我想在我的电子表格中将星形插入到包含特定值的单元格中（例如＆＃34; Y＆＃34;）。 我希望这是一个分配给按钮的宏。

是否有人能够提供帮助 - 甚至不知道从哪里开始。 从我的拖网到互联网，我只能弄清楚如何添加随机放置在电子表格中的形状。

谢谢！

Answer 1

这只是一个让您入门的示例。您必须调整它以满足您的特定需求。代码：

Sub KoverTheYs()
    Dim T As Long, L As Long, W As Long, H As Long
    Dim r As Range, shp As Shape
    For Each r In ActiveSheet.UsedRange
        If r.Value = "Y" Then
            L = r.Left
            T = r.Top
            W = r.Width
            H = r.Height
            Set shp = ActiveSheet.Shapes.AddShape(92, 100, 20, 60, 60)
            shp.Top = T
            shp.Left = L
            shp.Width = W
            shp.Height = H
        End If
    Next r
End Sub

在：

之后：

注意：

• 我没有解决任何按钮的问题 - 您必须编写代码添加按钮并将其链接到明星画家。
• 我没有说明明星的确切颜色和形状