一次隐藏和取消隐藏第一行的按钮。类似旋转按钮的东西

时间:2015-07-01 20:40:10

标签: excel vba excel-2007

我搜索了很多问题,但找不到我想做的事情的答案     我想隐藏和取消隐藏行。我喜欢旋转按钮,你可以点击向上和向下箭头,但如果那不起作用,那么一个按钮可以隐藏,另一个按钮可以取消隐藏。

using (var source = ...)
using (var effect = new FilterEffect(source))
using (var renderer = new JpegRenderer(effect))
{
   effect.Filters = new [] { new FlipFilter(FlipMode.Horizontal) };

   var result = await renderer.RenderAsync();
}

1 个答案:

答案 0 :(得分:2)

SpinButton1是一个ActiveX旋钮工作表(Min = 0,Max = 10或者你想显示/隐藏多少行)

这里的A7将是要显示/隐藏的行集的顶行

代码进入工作表模块。

Private Sub SpinButton1_Change()

    Dim r As Long, mx As Long
    r = Me.SpinButton1.Value
    mx = Me.SpinButton1.Max

    With Me.Range("A7")
        If r > 0 Then .Resize(r).EntireRow.Hidden = False
        If r < mx Then .Offset(r, 0).Resize(mx - r).EntireRow.Hidden = True
    End With

End Sub