Many ways to use Excel software to generate 99 multiplication tables

Do 99 multiplication table, a variety of ideas to create a variety of ways to generate,

1, in a worksheet area (B12:J12), enter 1-9 in turn. In the (A13:A21) area, enter 1-9 in turn. And then enter a formula within the cell B13, by dragging the fill to produce a 99 multiplication table with the upper triangular matrix structure.

2, in A13 to A21 input 1-9

B13 input

=if (b$12<= $A 13,b$12* $A 13, "")

and then drag.

3, enter the following formula in cell B2:

=if (and ($A 2<> ",b$1<>", b$1<= $A 2),b$1& "x" & $A 2& "=" &b$1* $A 2, "")

The formula for the A1 cell is as follows:

=if (and Row () <10,column () <10,column () <=row ()), Row () & "X" &column () & "=" &row () *column (), " ")

4, Sub 99 table ()

Dim I as Byte, J as Byte, msg as String

For i = the 1 to 9 ' definition multiplies a numeric variable

msg = msg & CHR (10)

For j = 1 to I ' defines another numeric variable

msg = msg & Worksheetfunction.text (J, "[Dbnum1][$-804]0") & Worksheetfunction.text (i, "[dbnum1][$-804]0") & Vba. IIf (i * j > 9, "", "get") _

& Worksheetfunction.text (I * j, "[Dbnum1][$-804]0") &

' Completes two numbers multiplication, if the result of multiplication is less than 10, then add the word "ground" in the middle.

Space (3)

Next

Next

MsgBox MSG, 64, "99 Table" "the caption displayed in the upper-right corner of the window

End Sub