|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
做九九乘法表，多种思路造就多种方法生成，
& p) e5 m+ U* _. ?1、在一个工作表区域内(B12:J12),依次输入1-9.(A13:A21)区域内依次输入1-9.然后再单元格B13内输入一个公式,通过拖曳填充产生具有上三角矩阵结构的九九乘法表/ A( @4 g2 h E2 J( d2 m& \7 q* G
2、在a13到a21输入1-9
: w* F+ ~3 q& H) Ib13输入5 g1 C+ C( _ h! [4 s) c, Y9 g, R
=IF(B$12<=$A13,B$12*$A13,"")' [& w( W7 n4 R, j6 Q- \
然后拖拉即可+ v. l) K& y# L% Y C
3、在b2单元格输入如下公式：
- a* \5 H+ q% ^2 l=IF(AND($A2<>"",B$1<>"",B$1<=$A2),B$1&"×"&$A2&"="&B$1*$A2,"")
: a% B" r- Q1 Q; bA1单元格的公式如下:
) l2 F- t" U8 }; }=IF(AND(ROW()<10,COLUMN()<10,COLUMN()<=ROW()),ROW()&"×"&COLUMN()&"="&ROW()*COLUMN(),"")7 l9 ^! o% K" h2 ?; s# A) S
4、Sub 九九表()8 X9 h% {/ l$ E* P
Dim i As Byte, j As Byte, msg As String
) |, V- Y; ]" p) ~For i = 1 To 9 ‘定义相乘的一个数字变量
. J$ ~6 y# n. r& @msg = msg & Chr(10)
' a6 b9 _/ d4 L7 |" PFor j = 1 To I ‘定义另一个数字变量
8 I' e, D. M- O- amsg = msg & WorksheetFunction.Text(j, "[DBNum1][$-804]0") & WorksheetFunction.Text(i, "[DBNum1][$-804]0") & VBA.IIf(i * j > 9, "", "得") _
B3 C& I/ \, ^) b1 r7 ~2 U1 F9 |& WorksheetFunction.Text(i * j, "[DBNum1][$-804]0") & ( \) b$ g/ T5 v
‘完成两个数字相乘运行，如相乘的结果小于10的话则在中间加“地”字
; l z6 v+ w1 l5 R( d: t' S h/ Z; FSpace(3)3 @4 @ X* Z X% K
Next, {# N- T& m1 t' x2 U+ |
Next; K$ T- ^% i3 g N( v4 V
MsgBox msg, 64, "九九表" ‘显示在窗口右上角的标题& t! M3 z; V5 Z% \$ e
End Sub |
|
发表于 2010-10-13 08:35:32