Question

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

如何将VB中设置的按钮放到excel的单元格中呢？

Answer 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