1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub SpinButton1_Change()
''操作1~10行。
Sheet1.Rows("1:10").EntireRow.Hidden = False
Select Case SpinButton1.Value
Case 0 ''后8行
Sheet1.Rows("1:2").EntireRow.Hidden = True
Case 1 ''中间8行
Sheet1.Rows("1:1").EntireRow.Hidden = True
Sheet1.Rows("10:10").EntireRow.Hidden = True
Case 2 ''前8行
Sheet1.Rows("9:10").EntireRow.Hidden = True
End Select
End Sub