请高手帮忙,在excel工作表中用VB设置一个“下一表”和“上一表”按钮,来切换工作表

如何将VB中设置的按钮放到excel的单元格中呢?
2024-12-03 10:58:15
推荐回答(1个)
回答1:

方法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