我有用作按鈕的形狀。當我單擊此按鈕時，我可以隱藏/取消隱藏按鈕下方的一系列行。當我單擊此按鈕時，我還希望從放置按鈕的整行中洗掉底部邊框線。
這是我的代碼。
Sub ArrowClick()
Dim r As Integer
Dim r1 As Integer
Dim r2 As Integer
Dim sr1 As String
Dim sr2 As String
r = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
r1 = r 1
r2 = r 9
sr1 = CStr(r1)
sr2 = CStr(r2)
If ActiveSheet.Rows(sr1 & ":" & sr2).EntireRow.Hidden = True Then
ActiveSheet.Rows(sr1 & ":" & sr2).Hidden = False
ElseIf ActiveSheet.Rows(sr1 & ":" & sr2).Hidden = False Then
ActiveSheet.Rows(sr1 & ":" & sr2).Hidden = True
End If
End Sub
我是初學者，所以請隨時指出我的代碼的任何改進。任何幫助，將不勝感激。
uj5u.com熱心網友回復：
像這樣的東西：
Sub ArrowClick()
With ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow
.Borders(xlEdgeBottom).LineStyle = xlNone
With .Offset(1, 0).Resize(9)
.Hidden = Not .Hidden
End With
End With
End Sub
在 Excel 中撰寫 VBA 時，使用起來很舒服Offset()，Resize()對您有很大幫助。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/406756.html
標籤：
上一篇：突出顯示重復項并要求洗掉重復項