1个回答
展开全部
Private Sub Command1_Click()
Dim xinxi As Integer
xinxi = InputBox("请输入要隐藏的列!", "隐藏列")
If xinxi Like "[0-9]" Then
With Me.fpSpread1
.Row = xinxi
.RowHidden = True
End With
Else
MsgBox "想要隐藏行请输入要隐藏第几行?(合法字符为:数字)"
Exit Sub
End If
End Sub
不知道你是不是要这样的效果,想要重新显示的话,再把RowHidden 设置为False 就可以了。
Dim xinxi As Integer
xinxi = InputBox("请输入要隐藏的列!", "隐藏列")
If xinxi Like "[0-9]" Then
With Me.fpSpread1
.Row = xinxi
.RowHidden = True
End With
Else
MsgBox "想要隐藏行请输入要隐藏第几行?(合法字符为:数字)"
Exit Sub
End If
End Sub
不知道你是不是要这样的效果,想要重新显示的话,再把RowHidden 设置为False 就可以了。
网易云信
2023-12-06 广告
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询