根据选择指定的单元格显示形状

Question

我想显示基于仅选择指定单元格的形状（滚动条）。我写了下面的代码，但它不起作用：

If Range("A1").Select Then
  ActiveSheet.Shapes("ScrollBar_1").Visible = True
End If

取消选择单元格后形状也应隐藏。

欢迎任何想法。

谢谢

Answer 1

这应该做到并且必须放在工作表中。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Not Intersect(Target, Range("A1")) Is Nothing Then 'Change A1 by the cell you want

ActiveSheet.Shapes("ScrollBar_1").Visible = True

Else

ActiveSheet.Shapes("ScrollBar_1").Visible = False

End If

End Sub

根据选择指定的单元格显示形状

Showing a Shape based on selecting specified cell

vba

excel-2010