VBA简单例.docVIP

Sub 隐藏行() Dim i As Long If TypeName(ActiveSheet) Worksheet Then Exit Sub Application.ScreenUpdating = False For i = 1 To ActiveSheet.Cells.Rows.Count If i Mod 2 = 0 Then Rows(i).Hidden = True End If DoEvents Next Application.ScreenUpdating = True End Sub Sub 隐藏行() Dim i As Long, c As Long c = 10 If TypeName(ActiveSheet) Worksheet Then Exit Sub Application.ScreenUpdating = False For i = 1 To c If i Mod 2 = 0 Then Rows(i).Hidden = True End If progress 1, c, i DoEvents Next Application.ScreenUpdating = True End Sub Sub progress(ByVal s As Long, ByVal e As Long, ByVal p) Dim i i = Int((p - s) / (e - s) * 100) MsgBox 进度： i % End Sub Function fact(ByVal n As Integer) As Long If n = 1 Then fact = 1 Else fact = fact(n - 1) * n End If End Function Sub 测试阶乘() Dim l As Long l = Val(InputBox(请输入一个需要求阶乘的整数（1~12）：)) MsgBox l 的阶乘结果为： fact(l) End Sub Sub 选择当前区域1() ActiveCell.CurrentRegion.Select End Sub Sub 选择当前区域2() Dim l As Long, r As Long, t As Long, b As Long Dim row As Long, col As Long, tcol As Long, trow As Long Dim rng1 As Range tcol = ActiveSheet.Cells.Columns.Count 工作表总列数 trow = ActiveSheet.Cells.Rows.Count 工作表总行数 row = ActiveCell.row 当前单元格行数 col = ActiveCell.Column 当前单元格列数 t = row 当前区域顶部行 Do While t = 1 Set rng1 = ActiveSheet.Range(Cells(t, 1), Cells(t, tcol)) If Application.CountBlank(rng1) = rng1.Count Then t = t + 1 Exit Do Else t = t - 1 End If Loop If t = 0 Then t = 1 b = row 当前区域底部行 Do While b = trow Set rng1 = ActiveSheet.Range(Cells(b, 1), Cells(b, tcol)) If Application.CountBlank(rng1) = rng1.Count Then b = b - 1 Exit Do Else b = b + 1 End If Loop If b trow Then b = tr