excel2016 VB按钮属性设置 20
在excel中插入一个按钮后,右键点击中的属性只有简单的几个选项的,类似图2的属性设置是怎样调出来的...
在excel中插入一个按钮后,右键点击中的属性只有简单的几个选项的,类似图2的属性设置是怎样调出来的
展开
2个回答
2018-03-13 · 知道合伙人互联网行家
关注
展开全部
方法1
在excel宏中作一个窗体设置showmodal为false,加上两个按钮,按钮代码如上,不知道符合你的要求吗
加入vb工具栏(在excel上部菜单下边点击右键在visual besic前打勾)然后点击vb工具栏上的控件按钮(一个小锤子和一个小叉子)在页面上添加两个按钮,按钮按钮上添加如上代码,如果想在改变单元格大小时按钮大小也随着变化可以在workbook的open事件中加入一个循环
do while 1
doevents '这 个要有,否则就什么都干不了了
commandbutton1.with=reng(“a1").whith
commandbutton1.high=reng(“a1").high
loop
Private Sub CommandButton1_Click()
a = ThisWorkbook.ActiveSheet.Index
If a > 1 Then
Sheets.Item(a - 1).Select
End If
End Sub
Private Sub CommandButton2_Click()
a = ThisWorkbook.ActiveSheet.Index
If a < ThisWorkbook.Sheets.Count Then
Sheets.Item(a + 1).Select
End If
End Sub
在excel宏中作一个窗体设置showmodal为false,加上两个按钮,按钮代码如上,不知道符合你的要求吗
加入vb工具栏(在excel上部菜单下边点击右键在visual besic前打勾)然后点击vb工具栏上的控件按钮(一个小锤子和一个小叉子)在页面上添加两个按钮,按钮按钮上添加如上代码,如果想在改变单元格大小时按钮大小也随着变化可以在workbook的open事件中加入一个循环
do while 1
doevents '这 个要有,否则就什么都干不了了
commandbutton1.with=reng(“a1").whith
commandbutton1.high=reng(“a1").high
loop
Private Sub CommandButton1_Click()
a = ThisWorkbook.ActiveSheet.Index
If a > 1 Then
Sheets.Item(a - 1).Select
End If
End Sub
Private Sub CommandButton2_Click()
a = ThisWorkbook.ActiveSheet.Index
If a < ThisWorkbook.Sheets.Count Then
Sheets.Item(a + 1).Select
End If
End Sub
2018-03-13
展开全部
后者是activeX控件,你添加的是表单控件
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |