|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
做九九乘法表，多种思路造就多种方法生成，
$ S& M" t8 m6 ~4 H/ [% g1、在一个工作表区域内(B12:J12),依次输入1-9.(A13:A21)区域内依次输入1-9.然后再单元格B13内输入一个公式,通过拖曳填充产生具有上三角矩阵结构的九九乘法表
- {# f2 o4 s3 n7 g0 G, `7 P, t2、在a13到a21输入1-9
. K+ K6 q' @9 ^* f" Zb13输入1 ?2 \ G% J4 G& f0 F! `9 o5 T
=IF(B$12<=$A13,B$12*$A13,"")
; u+ y: g/ n0 ^( V2 ^4 }然后拖拉即可
! T4 w* m# [. \. M3 ~& {3、在b2单元格输入如下公式：
& n2 D2 l. f! u" b4 x1 d; E' [9 M=IF(AND($A2<>"",B$1<>"",B$1<=$A2),B$1&"×"&$A2&"="&B$1*$A2,"")" S5 B; b6 ?. d8 ?! X
A1单元格的公式如下:
6 E0 ]" Y2 Z+ s# {4 u% T! ^=IF(AND(ROW()<10,COLUMN()<10,COLUMN()<=ROW()),ROW()&"×"&COLUMN()&"="&ROW()*COLUMN(),"")
* e7 D8 z' y# i; @# t4、Sub 九九表()
& A4 f' L5 ]9 T7 @" z& NDim i As Byte, j As Byte, msg As String
$ z# a" w. H+ `For i = 1 To 9 ‘定义相乘的一个数字变量 {* `( H- I, K6 l0 o: K# y
msg = msg & Chr(10)
; c# l. a1 z( q1 K) O3 F2 OFor j = 1 To I ‘定义另一个数字变量
; q9 M: K0 U1 K- v. c4 R! qmsg = msg & WorksheetFunction.Text(j, "[DBNum1][$-804]0") & WorksheetFunction.Text(i, "[DBNum1][$-804]0") & VBA.IIf(i * j > 9, "", "得") _' S! a7 p6 b1 u. I- S6 I3 x5 |3 {$ j
& WorksheetFunction.Text(i * j, "[DBNum1][$-804]0") & $ e0 v9 [; Z$ M) X% D! T& w
‘完成两个数字相乘运行，如相乘的结果小于10的话则在中间加“地”字
& y5 V! q4 j% U0 t8 [Space(3)
5 S+ J$ x" _1 ]2 Q. N; ^Next
- I' H/ Y6 V3 J/ F0 k" m. \Next
; N: u5 `" f& A1 s$ oMsgBox msg, 64, "九九表" ‘显示在窗口右上角的标题- w$ v% `7 {6 n
End Sub |
|
发表于 2010-10-13 08:35:32