VBA编九九乘法表

rmsc_kr · 发表于 2012-5-21 18:10

Sub 九九乘法表()
Dim x As Integer 声明x为整数变量
Dim y As Integer 声明y为整数变量
For x = 1 To 9 定义X范围
For y = x To 9 定义Y范围
Cells(y, x) = x * y 取单元格并进行计算
Next
Next
x = x + 1
End Sub

大家别笑我，我只学到第10集，还在学习中，有更好的方法，希望可以指导指导我学习，谢谢！

隐身 · 发表于 2012-5-21 19:04

惭愧啊，没楼主理解透彻
Sub 九九()
For ro = 9 To 1 Step -1
For co = 9 To ro Step -1
Cells(ro + 1, co + 1) = ro & "*" & co & "=" & ro * co
Next co, ro
End Sub

rmsc_kr · 发表于 2012-5-21 21:25

隐身发表于 2012-5-21 19:04
惭愧啊，没楼主理解透彻
Sub 九九()
For ro = 9 To 1 Step -1

谢谢你，我又进步了

windimi007 · 发表于 2012-5-21 21:29

rmsc_kr 发表于 2012-5-21 21:25
谢谢你，我又进步了

我一般这样写的，请测试。

Option Explicit
Sub 九九乘法表()
Dim x As Byte, y As Byte
For x = 1 To 9
For y = x To 9
Cells(y, x) = x & "×" & y & "=" & x * y
Next y
Next x
End Sub

复制代码

rmsc_kr · 发表于 2012-5-21 22:01

windimi007 发表于 2012-5-21 21:29
我一般这样写的，请测试。

谢谢，学习了..

178490420 · 发表于 2012-5-23 09:07

这些东西是在哪里学的？

rmsc_kr · 发表于 2012-5-23 09:54

178490420 发表于 2012-5-23 09:07
这些东西是在哪里学的？

论坛导航里有一个VBA视频80集，从头在教的。我才看了10集

cyb412204170 · 发表于 2012-5-24 17:44

我来学习一下

wk0316 · 发表于 2012-5-24 17:47

It is very good!

2288liu · 发表于 2012-5-26 08:07

学习了,

		自动登录	找回密码
密码			注册