用宏可以解决。同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub test()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
If i < Sheets.Count Then
ActiveSheet.Shapes.AddShape(msoShapeActionButtonForwardorNext, 105, 5, 30, 20).Name = i & "Next"
ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes(i & "Next"), "#" & Sheets(i + 1).Name & "!A1"
End If
ActiveSheet.Shapes.AddShape(msoShapeActionButtonHome, 55, 5, 30, 20).Name = i & "Home"
ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes(i & "Home"), "#" & Sheets(1).Name & "!A1"
If i > 1 Then
ActiveSheet.Shapes.AddShape(msoShapeActionButtonBackorPrevious, 5, 5, 30, 20).Name = i & "Pre"
ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes(i & "Pre"), "#" & Sheets(i - 1).Name & "!A1"
End If
Next i
End Sub
在此界面直接按F5运行此宏,完成。