excel中如何利用“宏”建立窗体指令按钮?怎么在excel中利用“宏”建立

用“控件工具箱”在第一行建立3个命令按钮。代码分别如下：
Private Sub CommandButton1_Click()
Rows("1:1").RowHeight = 30
Rows("2:65536").RowHeight = 0
Rows("2:100").RowHeight = 14.25
End Sub

Private Sub CommandButton2_Click()
Rows("1:1").RowHeight = 30
Rows("2:65536").RowHeight = 0
Rows("101:200").RowHeight = 14.25
End Sub

Private Sub CommandButton3_Click()
Rows("1:1").RowHeight = 30
Rows("2:65536").RowHeight = 0
Rows("201:300").RowHeight = 14.25
End Sub

宏里面加个判断语句啊，这有什么问题？

if [a1]=1 then
Sheets("张三").PrintOut
elseif [a1]=2 then
Sheets("李四").PrintOut
else
exit sub
end if

工具--宏---Visudl Basic编辑器---插入--模块1
Sub Macro1()
'
'

'
Rows("1:1").Select
Selection.EntireRow.Hidden = True
Application.Goto Reference:="R101:R65536"
Selection.EntireRow.Hidden = True
End Sub

再插入模块2
Sub Macro2()
'
'
'

'
Rows("1:100").Select
Range("A100").Activate
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=12
Application.Goto Reference:="R201:R65536"
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-51
End Sub
插入--模块3
Sub Macro3()
'
'
'

'
Rows("1:1").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=90
Range("A101:B9923").Select
ActiveWindow.ScrollRow = 9938
ActiveWindow.ScrollRow = 9997
ActiveWindow.ScrollRow = 10085
ActiveWindow.ScrollRow = 10203
ActiveWindow.ScrollRow = 10291
ActiveWindow.ScrollRow = 10438
ActiveWindow.ScrollRow = 10615
ActiveWindow.ScrollRow = 10762
ActiveWindow.ScrollRow = 10909
ActiveWindow.ScrollRow = 11085
ActiveWindow.ScrollRow = 11232
ActiveWindow.ScrollRow = 11408
ActiveWindow.ScrollRow = 11555
ActiveWindow.ScrollRow = 11761
ActiveWindow.ScrollRow = 11938
ActiveWindow.ScrollRow = 12173
ActiveWindow.ScrollRow = 12379
ActiveWindow.ScrollRow = 12584
ActiveWindow.ScrollRow = 12878
ActiveWindow.ScrollRow = 13084
ActiveWindow.ScrollRow = 13408
ActiveWindow.ScrollRow = 13584
ActiveWindow.ScrollRow = 13819
ActiveWindow.ScrollRow = 14113
ActiveWindow.ScrollRow = 14466
ActiveWindow.ScrollRow = 14790
ActiveWindow.ScrollRow = 15201
ActiveWindow.ScrollRow = 15583
ActiveWindow.ScrollRow = 15936
ActiveWindow.ScrollRow = 16260
ActiveWindow.ScrollRow = 16612
ActiveWindow.ScrollRow = 16965
ActiveWindow.ScrollRow = 17347
ActiveWindow.ScrollRow = 17700
ActiveWindow.ScrollRow = 18024
ActiveWindow.ScrollRow = 18376
ActiveWindow.ScrollRow = 18788
ActiveWindow.ScrollRow = 19082
ActiveWindow.ScrollRow = 19229
ActiveWindow.SmallScroll Down:=1017
Range("K20448").Select
Selection.End(xlDown).Select
Range("A54262:A65536").Select
Range("A65536").Activate
Application.Goto Reference:="R101C1:R65536C1"
ActiveWindow.SmallScroll Down:=-18
Range("C98").Select
Application.Goto Reference:="R301C1:R65536C1"
Range("A305").Select
Application.Goto Reference:="R301C1:R65536C1"
Rows("305:305").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.SmallScroll ToRight:=253
Application.Goto Reference:="R301:R65536"
Selection.EntireRow.Hidden = True
ActiveWindow.ScrollRow = 274
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 243
ActiveWindow.ScrollColumn = 242
ActiveWindow.ScrollColumn = 241
ActiveWindow.ScrollColumn = 240
ActiveWindow.ScrollColumn = 239
ActiveWindow.ScrollColumn = 237
ActiveWindow.ScrollColumn = 236
ActiveWindow.ScrollColumn = 235
ActiveWindow.ScrollColumn = 234
ActiveWindow.ScrollColumn = 232
ActiveWindow.ScrollColumn = 231
ActiveWindow.ScrollColumn = 230
ActiveWindow.ScrollColumn = 229
ActiveWindow.ScrollColumn = 227
ActiveWindow.ScrollColumn = 226
ActiveWindow.ScrollColumn = 224
ActiveWindow.ScrollColumn = 222
ActiveWindow.ScrollColumn = 219
ActiveWindow.ScrollColumn = 217
ActiveWindow.ScrollColumn = 215
ActiveWindow.ScrollColumn = 214
ActiveWindow.ScrollColumn = 211
ActiveWindow.ScrollColumn = 210
ActiveWindow.ScrollColumn = 208
ActiveWindow.ScrollColumn = 206
ActiveWindow.ScrollColumn = 205
ActiveWindow.ScrollColumn = 203
ActiveWindow.ScrollColumn = 201
ActiveWindow.ScrollColumn = 200
ActiveWindow.ScrollColumn = 199
ActiveWindow.ScrollColumn = 197
ActiveWindow.ScrollColumn = 196
ActiveWindow.ScrollColumn = 195
ActiveWindow.ScrollColumn = 194
ActiveWindow.ScrollColumn = 192
ActiveWindow.ScrollColumn = 191
ActiveWindow.ScrollColumn = 190
ActiveWindow.ScrollColumn = 188
ActiveWindow.ScrollColumn = 186
ActiveWindow.ScrollColumn = 183
ActiveWindow.ScrollColumn = 180
ActiveWindow.ScrollColumn = 176
ActiveWindow.ScrollColumn = 174
ActiveWindow.ScrollColumn = 172
ActiveWindow.ScrollColumn = 170
ActiveWindow.ScrollColumn = 168
ActiveWindow.ScrollColumn = 166
ActiveWindow.ScrollColumn = 163
ActiveWindow.ScrollColumn = 160
ActiveWindow.ScrollColumn = 158
ActiveWindow.ScrollColumn = 153
ActiveWindow.ScrollColumn = 149
ActiveWindow.ScrollColumn = 144
ActiveWindow.ScrollColumn = 139
ActiveWindow.ScrollColumn = 136
ActiveWindow.ScrollColumn = 132
ActiveWindow.ScrollColumn = 128
ActiveWindow.ScrollColumn = 125
ActiveWindow.ScrollColumn = 121
ActiveWindow.ScrollColumn = 116
ActiveWindow.ScrollColumn = 113
ActiveWindow.ScrollColumn = 109
ActiveWindow.ScrollColumn = 106
ActiveWindow.ScrollColumn = 103
ActiveWindow.ScrollColumn = 100
ActiveWindow.ScrollColumn = 98
ActiveWindow.ScrollColumn = 95
ActiveWindow.ScrollColumn = 92
ActiveWindow.ScrollColumn = 89
ActiveWindow.ScrollColumn = 86
ActiveWindow.ScrollColumn = 83
ActiveWindow.ScrollColumn = 81
ActiveWindow.ScrollColumn = 78
ActiveWindow.ScrollColumn = 75
ActiveWindow.ScrollColumn = 73
ActiveWindow.ScrollColumn = 71
ActiveWindow.ScrollColumn = 69
ActiveWindow.ScrollColumn = 67
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 63
ActiveWindow.ScrollColumn = 61
ActiveWindow.ScrollColumn = 59
ActiveWindow.ScrollColumn = 57
ActiveWindow.ScrollColumn = 54
ActiveWindow.ScrollColumn = 52
ActiveWindow.ScrollColumn = 50
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-39
Rows("2:200").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=45
End Sub

插入--模块4
Sub Macro4()
'
'
Cells.Select
Range("A101").Activate
Selection.EntireRow.Hidden = False
Range("D79").Select
End Sub

保存后退出Visudl Basic编辑器

然后右键点工具栏---自定义---命令--类别下选择宏---把左边的自定义按钮拖到上面菜单栏--指定宏,继续四个.
Macro4为返回宏.

【答案】： 1.执行“视图工具栏窗体”命令，展开“窗体”工具栏。
2.点击工具栏上的“命令按钮”按钮，然后在工作表中拖拉出一个按钮来。
3.此时系统自动弹出“指定宏”对话框，选中需要调用的宏，确定返回。
4.将命令按钮上的字符修改为一个合适的内容，调整好命令按钮的大小，将其定位在工作表合适位置上。按一下该按钮，即可执行相应的宏。