设置了一个Scroll Bar 控件，用录屏得到下面结果，但是录屏里用到Select语句，如果屏幕不是100%会有闪屏的问题，如果Select语句直接执行修改？我自己DIY语句就报错了
ActiveSheet.Shapes.Range(Array("Scroll Bar 3")).Select
With Selection
.Max = Application.Max(Sheets("myPay_PARA").[E11], 2)
End With
自己DIY的语句
ActiveSheet.Shapes.Range(Array("Scroll Bar 3")).Max = Application.Max(Sheets("myPay_PARA").[E11], 2)
ActiveSheet.Shapes.Range(Array("Scroll Bar 3")).Select
With Selection
.Max = Application.Max(Sheets("myPay_PARA").[E11], 2)
End With
自己DIY的语句
ActiveSheet.Shapes.Range(Array("Scroll Bar 3")).Max = Application.Max(Sheets("myPay_PARA").[E11], 2)
