|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
做九九乘法表，多种思路造就多种方法生成，
! K: |, v( ]# I4 C7 x$ Z- [5 z! Y# t1、在一个工作表区域内(B12:J12),依次输入1-9.(A13:A21)区域内依次输入1-9.然后再单元格B13内输入一个公式,通过拖曳填充产生具有上三角矩阵结构的九九乘法表4 t% u7 \& j. ~
2、在a13到a21输入1-9
+ O% h0 D3 Y7 W G( ~5 U: ]b13输入. `$ i& T1 ^5 z0 U& E9 ?5 Z
=IF(B$12<=$A13,B$12*$A13,"")- m6 j# b( j4 c) L! O3 G" V2 E
然后拖拉即可% a: }4 B9 z* C, u/ Z
3、在b2单元格输入如下公式：
) g B d3 k8 U8 [2 D7 {=IF(AND($A2<>"",B$1<>"",B$1<=$A2),B$1&"×"&$A2&"="&B$1*$A2,"")9 C- r/ I J7 f" D" _& ]' m2 G% u' n
A1单元格的公式如下:/ w4 A" r1 E7 K4 f) W. B) U9 z$ i4 h
=IF(AND(ROW()<10,COLUMN()<10,COLUMN()<=ROW()),ROW()&"×"&COLUMN()&"="&ROW()*COLUMN(),"")
* P4 N$ w' A& E# p* [+ j# ~3 S, q4、Sub 九九表()
9 P" j7 T) p1 h, EDim i As Byte, j As Byte, msg As String1 b: ~) P1 j( c7 o
For i = 1 To 9 ‘定义相乘的一个数字变量& y7 m9 @/ [. Y& U( n- q
msg = msg & Chr(10), M4 }: q( n* \! J( D# z
For j = 1 To I ‘定义另一个数字变量
, e. U$ O, f: R: c! q- q! Z ymsg = msg & WorksheetFunction.Text(j, "[DBNum1][$-804]0") & WorksheetFunction.Text(i, "[DBNum1][$-804]0") & VBA.IIf(i * j > 9, "", "得") _/ X+ f0 B- N' m2 ]" M( ~9 c
& WorksheetFunction.Text(i * j, "[DBNum1][$-804]0") & * S- u U6 m; X7 [
‘完成两个数字相乘运行，如相乘的结果小于10的话则在中间加“地”字
" ^$ g! @$ ^, ?2 a7 gSpace(3): q. {$ W/ `7 l' C2 r) l
Next
( I, A. t9 w% k* H% e( `: ~3 K% oNext
! c+ K5 B0 h/ I& T" D. F5 H* A9 _MsgBox msg, 64, "九九表" ‘显示在窗口右上角的标题, \8 p! c6 i4 ^- A0 M3 J% h5 `/ O
End Sub |
|
发表于 2010-10-13 08:35:32