sách gpt4 ai đã đi

Ẩn/Hiện nhóm cụ thể - Stack Overflow

In lại 作者:行者123 更新时间:2023-12-04 20:58:39 30 4
mua khóa gpt4 Nike

我想创建一个按钮来使用 VBA 隐藏和取消隐藏特定组。我拥有的代码将隐藏或取消隐藏指定级别中的所有组:

Sub Macro1()
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub

假设我只想取消隐藏分组级别 2 中的第二组,我该怎么做?

1 Câu trả lời

假设“分组级别 2 中的第二组”是第 7-10 行。然后此代码将取消隐藏该组:

ActiveSheet.Rows(10).ShowDetail = True

但是,最好将其转换为隐藏/取消隐藏组的切换功能。以下是一个通用切换函数 (ToggleOutlineGroup),它允许您通过传递大纲所在的工作表和行来隐藏/取消隐藏组。该行可以是组中的任何行,只要它不属于另一个子组。为简单起见,我使用了该组的最后一行。 sub foo 是如何调用该函数的示例。
Sub foo()

ToggleOutlineGroup Sheet1, 10

End Sub


Sub ToggleOutlineGroup(sht As Worksheet, row As Long)

sht.Rows(row).ShowDetail = Not (sht.Rows(row).ShowDetail)

End Sub

关于excel - 隐藏/取消隐藏特定组,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/41528780/

30 4 0
Bài viết được đề xuất: vba - 根据单元格中的非精确值使用 VBA 对列表进行排序
Bài viết được đề xuất: excel - 带有 VBScript 的表格样式
Bài viết được đề xuất: excel - 将 SumProduct 函数转换为 VBA
Bài viết được đề xuất: excel - 通过 Excel VBA 在 Citrix 上连接 SAP
行者123
Hồ sơ cá nhân

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá Didi Taxi miễn phí
Mã giảm giá Didi Taxi
Giấy chứng nhận ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com