多种办法用EXCEL软件生成99乘法表
时间:2023-07-30 08:07:38
做九九乘法表,多种思路造就多种方法生成,
1、在一个工作表区域内(B12:J12),依次输入1-9.(A13:A21)区域内依次输入1-9.然后再单元格B13内输入一个公式,通过拖曳填充产生具有上三角矩阵结构的九九乘法表
2、在a13到a21输入1-9
b13输入
=IF(B$12<=$A13,B$12*$A13,"")
然后拖拉即可
3、在b2单元格输入如下公式:
=IF(AND($A2<>"",B$1<>"",B$1<=$A2),B$1&"×"&$A2&"="&B$1*$A2,"")
A1单元格的公式如下:
=IF(AND(ROW()<10,COLUMN()<10,COLUMN()<=ROW()),ROW()&"×"&COLUMN()&"="&ROW()*COLUMN(),"")
4、Sub 九九表()
Dim i As Byte, j As Byte, msg As String
For i = 1 To 9 ‘定义相乘的一个数字变量
msg = msg & Chr(10)
For j = 1 To I ‘定义另一个数字变量
msg = msg & WorksheetFunction.Text(j, "[DBNum1][$-804]0") & WorksheetFunction.Text(i, "[DBNum1][$-804]0") & VBA.IIf(i * j > 9, "", "得") _
& WorksheetFunction.Text(i * j, "[DBNum1][$-804]0") &
‘完成两个数字相乘运行,如相乘的结果小于10的话则在中间加“地”字
Space(3)
Next
Next
MsgBox msg, 64, "九九表" ‘显示在窗口右上角的标题
End Sub
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
添加/删除博客信息--Word 2007高级应用8
wps怎么制作亮眼的撞色系自我介绍页面?
![](https://img.aspxhome.com/file/2023/7/a165767_0s.jpg)
wps表格怎么去掉边框
WPS表格怎么利用函数REPT制作身份证小格子?
![](https://img.aspxhome.com/file/2023/1/a165711_0s.png)
如何使用WPS制作百日计划表?快来学吧~
![](https://img.aspxhome.com/file/2023/4/a185534_0s.jpg)
[图]微软WinHEC2015大会:现场图文直播
![](https://img.aspxhome.com/file/2023/29/a251383_0s.jpg)
如何使用wps演示母版
Win10预览版10525语言包已可用 附下载(32/64位)
![](https://img.aspxhome.com/file/2023/28/a248000_0s.jpg)
Edge浏览器如何数据同步?Edge浏览器数据同步的方法
![](https://img.aspxhome.com/file/2023/7/a327833_0s.png)
CUMIPMT函数计算给定期间累计应偿还的利息总额
Win10实用小技巧:这样也可以关机
![](https://img.aspxhome.com/file/2023/5/a315071_0s.jpg)
win10最新关闭自动更新方法
![](https://img.aspxhome.com/file/2023/3/a300177_0s.png)
如何给word文档加密的技巧
如何使用GIMP浮雕滤镜? GIMP中使用浮雕滤镜的教程
![](https://img.aspxhome.com/file/2023/8/a337756_0s.png)
苹果发布 iOS/iPadOS 14.6 开发者预览版 Beta 1
![](https://img.aspxhome.com/file/2023/7/a207267_0s.jpeg)
Win10系统打开绿化软件提示错误拒绝访问的原因及解决方法
![](https://img.aspxhome.com/file/2023/28/a243950_0s.jpg)
EndNote在线数据库的使用? EndNote数据库查找文献并保存pdf的技巧
![](https://img.aspxhome.com/file/2023/4/14924_0s.jpg)
win8为什么没有休眠选项如何开启休眠
![](https://img.aspxhome.com/file/2023/29/a257489_0s.jpg)
搜狗输入法截图快捷键是什么?
![](https://img.aspxhome.com/file/2023/5/a317676_0s.jpg)