Question

EXCEL服务器中，如何在模板里设置切换按钮控件，点击按钮，直接进入另一张模板中进行填报。十分感谢你的回

Answer 1

表单控件：
Sub 按钮1_Click()
Static r‘声明一个静态变量
r = r + 1 '计数器，每点一次这个按钮，R+1
If r Mod 2 Then'判断点击的次数，单数还是双数来切换到以下两个表中，如果有更多表，那就用具体的指定点击次数来判断激活哪张表，如三个表，用除3的余数为几时判断。
Sheets("sheet2").Select
Else
Sheets("sheet3").Select
End If
End Sub
ActiveX控件：
以下代码把按钮的名称直接修改了，名称直接提示点击时将激活哪个表
Private Sub CommandButton1_Click()
Static r
r = r + 1
If r Mod 2 Then
Sheets("sheet2").Select
CommandButton1.Caption = "激活表sheet3"
Else
Sheets("sheet3").Select
CommandButton1.Caption = "激活表sheet2"
End If
End Sub