- Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
- If e.shape.TextFrame.Characters.Text = "隐藏列"
- Range("H1:N1").EntireColumn.Hidden = True
- e.shape.TextFrame.Characters.Text = "显示列"
- ElseIf e.shape.TextFrame.Characters.Text = "显示列"
- Range("H1:N1").EntireColumn.Hidden = False
- e.shape.TextFrame.Characters.Text = "隐藏列"
- End if
- End Sub'按钮/标签点击事件
复制代码
隐藏列.zip
(8.73 KB, 下载次数: 32)
|
|
hessen