|
Dim ys, brr(), arr, h
Sub 数据源()
Application.ScreenUpdating = False
Sheets("结果").Activate
Set d = CreateObject("scripting.dictionary")
arr = Sheets("原表").[a1].CurrentRegion
h = 10: n = 0
ReDim brr(1 To h, 1 To 16)
For i = 2 To UBound(arr)
If arr(i, 4) = "本地非农业户口" And arr(i, 9) = "√" Then d(arr(i, 2)) = ""
Next i
ys = Application.RoundUp(d.Count / h, 0)
[k3] = ys
End Sub
Sub 分页(x)
sh = (x - 1) * h + 2
If sh + h <= UBound(arr) Then eh = sh + h - 1 Else eh = UBound(arr)
For i = sh To eh
n = n + 1
For j = 1 To 9
brr(n, j) = arr(i, j)
Next j
brr(n, 14) = arr(i, 10)
brr(n, 15) = arr(i, 11)
Next i
[a7].Resize(10, 16) = brr
Application.ScreenUpdating = True
[o3] = x
If x = 1 Then MsgBox "已经是第一页了"
If x = ys Then MsgBox "已经是最后一页了"
End Sub
Sub 下一页()
Call 数据源
If [o3] < ys Then [o3] = [o3] + 1
x = [o3]
Call 分页(x)
End Sub
Sub 上一页()
Call 数据源
[o3] = [o3] - 1
x = [o3]
Call 分页(x)
End Sub
Sub 首页()
Call 数据源
Call 分页(1)
End Sub
Sub 末页()
Call 数据源
Call 分页(ys)
End Sub
|
|