如何在Excel中创建滑动菜单效果?我们经常在网站中能看到奇妙的滑动菜单效果:当鼠标放置在某处时,菜单自动展开,当鼠标离开时,菜单收起 。其实,在Excel中也能创建类似的效果,Bacon Bits教给我们一个实现方法,具体内容见原文:Creating a Slide-Out Menu in Excel 。
这里,只是列出其精华部分,即如何创建下面动画所示的滑动效果 。
当反复单击左上方三条横线时,列A会逐渐变宽或收窄,从而摸拟了滑动效果 。
实现的关键是下面的代码:
Sub HideSlicer()
Dim ColumnRange As String
Dim SmallestSize As Double
Dim LargestSize As Double
【怎么在Excel中创建滑动菜单效果】Dim Increment As Double
Dim FromSize As Double
Dim ToSize As Double
Dim Stepper As Double
Dim i As Double
ColumnRange = “A” ‘<–修改为你想取得滑动效果的列
SmallestSize = 8 ‘<–调整为你需要的最小列宽
LargestSize = 32 ‘<–调整为你需要的最大列宽
Increment = 6 ‘<–调整来设置动画的快慢
Select Case ActiveSheet.Columns(ColumnRange).ColumnWidth
Case Is <= SmallestSize
FromSize = SmallestSize
ToSize = LargestSize
Stepper = Increment
Case Is > SmallestSize
FromSize = LargestSize
ToSize = SmallestSize
Stepper = -Increment
End Select
For i = FromSize To ToSize Step Stepper
ActiveSheet.Columns(ColumnRange).ColumnWidth = i
i = i
DoEvents
Next i
End Sub
推荐阅读
- 火狐怎么在线升级?火狐浏览器在线升级方法分享
- 怎么在Excel中创建级联列表
- 最喜欢的Excel快捷键
- 淘宝厂家直销是真的吗?质量到底怎么样?
- 如何在淘宝注册开店?如何经营新店铺?
- 支付宝相互宝怎么退出?相互宝有用吗?
- 如何在淘宝网上买东西?要注意什么?
- 余额宝红包怎么用?有哪些要求?
- 饿了么红包怎么用?如何领取红包?
- 支付宝怎样买东西?有哪些功能?