请选择 进入手机版 | 继续访问电脑版
楼主: pcstar
268 0

[程序分享] 用 Excel VBA 完成 九九乘法表 [推广有奖]

  • 0关注
  • 4粉丝

硕士生

80%

还不是VIP/贵宾

-

威望
0
论坛币
866 个
通用积分
27.8325
学术水平
44 点
热心指数
51 点
信用等级
33 点
经验
17987 点
帖子
80
精华
0
在线时间
224 小时
注册时间
2014-9-20
最后登录
2022-9-4

pcstar 发表于 2014-9-21 00:07:47 |显示全部楼层 |坛友微信交流群
相似文件 换一批

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币

Private Sub CommandButton1_Click()

        On Error Resume Next

        Application.DisplayAlerts = False

        Application.ScreenUpdating = False

        Cells.ClearContents

        Range("A1").Select

        列 = 1

        栏 = 1

        For 外层 = 2 To 5

             For 内层 = 1 To 9

          Application.ScreenUpdating = True

                   Cells(列, 栏).Activate

                   时 = Hour(Now())

                   分 = Minute(Now())

                   秒 = Second(Now()) + 1

                   等待时间 = TimeSerial(时, 分, 秒)

                   Application.Wait 等待时间

                   Cells(列, 栏) = 外层 & " × " & 内层

              Application.ScreenUpdating = False

              

                  Cells(列, 栏 + 1) = "="

                  Cells(列, 栏 + 2) = 外层 * 内层

                 列 = 列 + 1

           Next 内层

          列 = 1

          栏 = 栏 + 3

        Next 外层

      

        列 = 11

        栏 = 1

        For 外层 = 6 To 9

            For 内层 = 1 To 9

          Application.ScreenUpdating = True

                   Cells(列, 栏).Activate

                   时 = Hour(Now())

                   分 = Minute(Now())

                   秒 = Second(Now()) + 1

                   等待时间 = TimeSerial(时, 分, 秒)

                   Application.Wait 等待时间

                   Cells(列, 栏) = 外层 & " × " & 内层

                Application.ScreenUpdating = False

               

                  Cells(列, 栏 + 1) = "="

                  Cells(列, 栏 + 2) = 外层 * 内层

                  列 = 列 + 1

            Next 内层

            

            列 = 11

            栏 = 栏 + 3

        Next 外层

    Range("O2").Select

End Sub



执行后结果:

99.jpg

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:EXCEL xcel exce cel VBA Excel VBA

已有 2 人评分经验 论坛币 热心指数 收起 理由
coral033 + 60 + 20 根据规定进行奖励
客初 + 40 + 20 + 3 鼓励积极发帖讨论

总评分: 经验 + 100  论坛币 + 40  热心指数 + 3   查看全部评分

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-3-29 02:55