口算表宏命令.docVIP

口算表宏命令 以下是宏代码： Sub 随机口算试题() Dim H As Long, L As Long, Y As Long, Ys As Long, H1 As Long Dim Ls As Long, Hs As Long, Str1 As String, Str2 As String Dim P As Long, Ps As Long, DaH As Long, XiaoH As Long Dim S1 As Long, S2 As Long, S3 As Long, S As Long Dim Fu As String, nFu As String, FuSel As String, FuS As Long Dim MaxRnd As Long, MaxOut As Long, nFond As Long, nBi As Single 更改下面设置（等号后面的数字），可得到不同的显示效果 ================== nFond = 12 设置默认字体大小 MaxRnd = 100 参见运算的最大数字 MaxOut = 100 得数最大数字 nFu = 12 12 表示选择加减（1234 分别代表：加减乘除）。改为 34 表示乘除，改为 1234 表示加减乘除全选 DaH = 1 大题序号显示起点数 XiaoH = 1 1 表示显示小题序号，否则不显示 Ps = 2 纵向假分页数（纵向分栏） Ys = 1 实际总页数 Ls = 0 横向试题数（0 表示根据字体大小自动设置） Hs = 0 纵向试题数（0 表示根据字体自动设置） ======================================================================== Application.ScreenUpdating = False 关闭屏幕更新。提高宏代码执行速度 Cells(1, 1).Select: Cells.Delete 删除 Cells.Font.Size = nFond Cells.NumberFormatLocal = @ nBi = nFond / 9 If Hs 1 Then Hs = 26.4 / nBi If Ls 1 Then Ls = 5 / nBi DaH = DaH - 1 If DaH 0 Then DaH = 0 设置格式 If XiaoH = 1 Then S = 3 Else S = 2 For L = 1 To Ls * S 单列右对齐，双列左对齐 If L Mod S = 0 Then --得数列 Columns(L).HorizontalAlignment = xlLeft 左对齐 Columns(L).ColumnWidth = 3 * nBi 列宽度 Else 试题列 或 序号列 Columns(L).HorizontalAlignment = xlLeft xlRight 右对齐 If S = 3 And L Mod 3 = 1 Then Columns(L).ColumnWidth = 3 * nBi Else Columns(L).ColumnWidth = 7 * nBi End If Next For Y = 1 To Ys 实际页数 For P = 1 To Ps 纵向假分页数 放置起行，加 2 是因为有标题行和序号行 H1 = (Y - 1) * Ps * (Hs + 2) + (P - 1) * (Hs + 2) + 1 If Y 1 And P = 1 Then 插入分页符 Cells(H1, 1).Select ActiveSheet.HPageBreaks.Add Before:=ActiveCell End If 标题行 If P 1 Then H1 = H1 + 2