我想根據僅選擇指定的單元格來顯示形狀（滾動條）。我寫了下面的代碼，但它不起作用：
If Range("A1").Select Then
ActiveSheet.Shapes("ScrollBar_1").Visible = True
End If
并且在取消選擇單元格后應該隱藏形狀。
歡迎任何想法。
謝謝
uj5u.com熱心網友回復：
這應該這樣做并且必須放在作業表中。
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/392492.html
標籤：vba excel-2010