口算表宏命令（I watch the macro command）.docVIP

口算表宏命令（I watch the macro command） The following is macro code: Sub random test (I) 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 the following changes set (equal sign number), can be blocked to show the effect of different NFond = 12 sets the default font size MaxRnd = 100 see the maximum number of operations MaxOut = 100 was the largest number NFu = 1212 (representing the 1234 selection and add, subtract, multiply and divide). Instead of 34 to 1234 that multiplication and division, said add, subtract, multiply and divide all DaH = 1 big question serial number shows the starting point XiaoH = 11 to show her serial number, or display Ps = 2 vertical (vertical columns) false pages Ys = 1 actual total number of pages Ls = 0 horizontal questions (0 means automatically based on font size) Hs = 0 the number of vertical questions (0 means automatically according to the font) ======================================================================== Application.ScreenUpdating = False close the screen update. Improve macro code execution speed Cells (1, 1).Select: Cells.Delete removed 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 Settings format If, XiaoH = 1, Then, S = 3, Else, S = 2 For, L = 1, To, Ls * S, single row, right justified, double row left aligned If L Mod S Then series to = 0 Columns (L).HorizontalAlignment = xlLeft left aligned Columns (L).ColumnWidth = 3 * nBi column width Else test column or column number Columns (L).HorizontalAlignment = xlLeft,xlRight right justified If, S = 3, And, L, Mod