|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
做九九乘法表，多种思路造就多种方法生成，
7 `! p I" D( M: R( ]1、在一个工作表区域内(B12:J12),依次输入1-9.(A13:A21)区域内依次输入1-9.然后再单元格B13内输入一个公式,通过拖曳填充产生具有上三角矩阵结构的九九乘法表- c: \6 X* C: T, K# a
2、在a13到a21输入1-9& u' ^$ U- l M7 }3 M8 B
b13输入
* w4 ]3 [! F- G/ r; p B2 \=IF(B$12<=$A13,B$12*$A13,"")0 O5 O0 ~+ e- a9 w2 q
然后拖拉即可
% T; e6 A% `5 U3、在b2单元格输入如下公式：0 a2 I' x, n. Z/ m, ]. Y. |1 W
=IF(AND($A2<>"",B$1<>"",B$1<=$A2),B$1&"×"&$A2&"="&B$1*$A2,"")
6 S! ^, T6 t* D$ l8 [2 F/ }! MA1单元格的公式如下:
. i3 e. a A# @) N=IF(AND(ROW()<10,COLUMN()<10,COLUMN()<=ROW()),ROW()&"×"&COLUMN()&"="&ROW()*COLUMN(),"")8 n8 I4 |/ F4 S) s5 c, T
4、Sub 九九表()
# s* ^/ W) r+ u0 J x$ rDim i As Byte, j As Byte, msg As String
: h7 u0 C" z" |% H$ m$ q. XFor i = 1 To 9 ‘定义相乘的一个数字变量 z, ]# i* l2 ?4 E, [
msg = msg & Chr(10)5 n' t7 e" ]) x& l
For j = 1 To I ‘定义另一个数字变量
" U% w8 p$ E8 T1 emsg = msg & WorksheetFunction.Text(j, "[DBNum1][$-804]0") & WorksheetFunction.Text(i, "[DBNum1][$-804]0") & VBA.IIf(i * j > 9, "", "得") _
% n# |! j% B% \, e( u( r+ @7 p( b& WorksheetFunction.Text(i * j, "[DBNum1][$-804]0") &
& {6 ~% P4 W q; l9 o' I‘完成两个数字相乘运行，如相乘的结果小于10的话则在中间加“地”字
& g$ E0 x) p/ MSpace(3): z; r: ~' q' \* c* P
Next/ r' \! [" S( \1 t% J/ V" G7 M0 O
Next
4 O2 d2 R0 n9 k" \: S9 \$ ]! RMsgBox msg, 64, "九九表" ‘显示在窗口右上角的标题
- S4 }; J+ m r+ T. |$ ~' i, {, d7 xEnd Sub |
|
发表于 2010-10-13 08:35:32