小学开始学习数学,我们都要背九九乘法表,这是数学的基本常识,但是在其它国家并不一定是常识。
甚至有些国家是十一乘法表,也就是要记住十一乘十一的乘法表。
记住这些常用乘法算术可以大大地提高生活便利,如果要计算一些简单数字问题,就不用拿着计算器来计算。
特别是买菜也方便多了。
Excel制作乘法表,说难也不难,说不难真的不是一件容易的事情。
以前曾想过做一个乘法表,结果发现用最笨的办法画线、输入数字最后调整单元格格式。
如此一番操作下来感觉就是一个无比傻瓜在做一件特别没有意义的事情。
所以,决定放弃。
今天,要介绍这个方法就不那么无聊了,因为有些让人感觉豁然开朗,而且,就算是做到100乘以100乘法表也是分分秒秒实现。
下图为9×9乘法表
下图为15×15乘法表
如果愿意可以随意修改。
可看到示例中有一个下拉列表框,一个按钮控件。
选择下拉列表,然后单击按钮,自动显示乘法表样式。
过程很简单,如何来实现呢熊猫体育?
看下图代码:
代码
以下代码是按钮过程,可保存下载后使用,使用前要在Excel中插入一下下拉组合框控件,并给控件赋一些值,值为>0的整数,其它值计算出来都是小数或负数。
乘法表代码
Private Sub CommandButton1_Click() '乘法表
Application.ScreenUpdating = False
Dim n As Integer, c As Integer, nx, cell As Range
Dim e As String, x As String
x = "×"
e = "="

ActiveSheet.Cells.Interior.Color = RGB(211, 200, 89)
nx = 9
Set cell = ActiveSheet.Cells(1, 1)
For n = 1 To nx
For c = 1 To n
With cell.Offset(n, c)
.Value = n & x & c & e & n * c
.RowHeight = 22
.Columns.AutoFit
.Borders.LineStyle = 1
.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter
End With
Next c
Next n
cell.Activate
Application.ScreenUpdating = True
End Sub
利用VBA实现一些小功能,还是很有意思的,乘法表虽然是一个简单得不能更简单的表,但是利用代码来构建整个过程,实现思路是一个很意思的想法。
欢迎关注、收藏
---END---