Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Shapes("Picture 1").Visible = Target.Row = 2 And Target.Column < 6
End Sub 拜托大神改下宏隐藏对象2.rar(16.28 KB, 下载次数: 7)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Shapes("Picture 1").Visible = Target.Row = 2 And Target.Column < 6
End Sub 拜托大神改下宏隐藏对象2.rar(16.28 KB, 下载次数: 7)