MS Excel 2010 附加按钮

2024-6-19 • tag-icon

我无法让该代码运行。

  If Target.Column = 6 Then
        ActiveSheet.Shapes("Picture 1").Visible = True
        ActiveSheet.Shapes("Picture 2").Visible = True
        With ActiveSheet.Shapes("Picture 1")
            .Left = Target.Offset(, 2).Left
            .Top = Target.Offset(0).Top
        End With
        With ActiveSheet.Shapes("Picture 2")
            .Left = Target.Offset(, 3).Left
            .Top = Target.Offset(0).Top
        End With
    Else
        ActiveSheet.Shapes("Picture 1").Visible = False
        ActiveSheet.Shapes("Picture 2").Visible = False
    End If    
End Sub

此内容可在使用相对引用复制 Excel 按钮因此我不会重新讨论旧话题，而是在这里发帖。

我必须使用这个来将 Excel 上的值增加 1、0.1 和 0.01。创建 300 多个旋转按钮是不可能的。任何帮助都将不胜感激。我是一个非常基本的 Excel 用户。

相关内容