首页 > Office专区 > Excel教程 >

Excel VBA----之用for ...next实现九九乘法表

来源:互联网 2023-02-20 23:30:48 107

用for ...next实现九九乘法表e1X办公区 - 实用经验教程分享!

工具/原料

  • Excel软件

方法/步骤

  • 1

    功能:用for ...next实现九九乘法表。e1X办公区 - 实用经验教程分享!

    1、初始数据为空;e1X办公区 - 实用经验教程分享!

    Excel VBA----之用for ...next实现九九乘法表e1X办公区 - 实用经验教程分享!

  • 2

    2、在VBE中编写代码;e1X办公区 - 实用经验教程分享!

    Sub ForEach99()e1X办公区 - 实用经验教程分享!

    Dim a%, b%e1X办公区 - 实用经验教程分享!

    For a = 1 To 9e1X办公区 - 实用经验教程分享!

    For b = 1 To 9e1X办公区 - 实用经验教程分享!

    If b > a Thene1X办公区 - 实用经验教程分享!

    Sheet3.Cells(a, b) = ""e1X办公区 - 实用经验教程分享!

    Elsee1X办公区 - 实用经验教程分享!

    Sheet3.Cells(a, b) = a & "*" & b & "=" & a * be1X办公区 - 实用经验教程分享!

    End Ife1X办公区 - 实用经验教程分享!

    Nexte1X办公区 - 实用经验教程分享!

    Nexte1X办公区 - 实用经验教程分享!

    End Sube1X办公区 - 实用经验教程分享!

    Excel VBA----之用for ...next实现九九乘法表e1X办公区 - 实用经验教程分享!

  • 3

    3、设置断点,并按F8可以进行调试,在调试过程中,打开本地窗口,可以查看到变量的值的变化情况;e1X办公区 - 实用经验教程分享!

    4、打开Excel界面,随着调试工作的进行,相应地,Excel表格的数据也在逐步发生变化。e1X办公区 - 实用经验教程分享!

    Excel VBA----之用for ...next实现九九乘法表e1X办公区 - 实用经验教程分享!

  • 4

    5、点击插入--形状,选择一个圆形形状;e1X办公区 - 实用经验教程分享!

    Excel VBA----之用for ...next实现九九乘法表e1X办公区 - 实用经验教程分享!

  • 5

    6、在刚刚选择的形状中右键,点击指定宏,指定刚刚定义的宏ForEach99,并点击确定。e1X办公区 - 实用经验教程分享!

    Excel VBA----之用for ...next实现九九乘法表e1X办公区 - 实用经验教程分享!

    Excel VBA----之用for ...next实现九九乘法表e1X办公区 - 实用经验教程分享!

  • 5此文章未经许可获取自百度经验
  • 6

    7、运行宏,得到如下运行结果,即9*9九九乘法表。e1X办公区 - 实用经验教程分享!

    Excel VBA----之用for ...next实现九九乘法表e1X办公区 - 实用经验教程分享!

  • 7

    综上所述,利用for....next可以实现99乘法表的功能。e1X办公区 - 实用经验教程分享!

  • 注意事项

    • 注意for...next的语法
    • 注意实现99乘法表的表格属性值何时为空

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!e1X办公区 - 实用经验教程分享!


    标签: excelVBA实现乘法

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码