首页 > Office专区 > Excel教程 >

图示EXCEL表格vba系列18之循环检索功能代码编写

来源:互联网 2023-02-21 16:31:21 346

图示EXCEL表格vba系列18之循环检索功能代码编写,简单介绍使用循环代码实现简单的检索功能,换句话说也就是对数字进行判断并显示出来,图示简单说明事例,若是想了解其他系列可以关注。lC5办公区 - 实用经验教程分享!

工具/原料

  • EXCEL表格2007
  • 表格链接:https://pan.baidu.com/s/1ShK-kNYKuXEo1hCMmWNfTA
  • 密码在注意事项里面

方法/步骤

  • 1

    首先需要将表格的需求格式写出来,这里只是举例简单说明,当然代码的作用会在使用大量的数据下显示出来效果,并提高效率,简易格式如下图所示:lC5办公区 - 实用经验教程分享!

    图示EXCEL表格vba系列18之循环检索功能代码编写lC5办公区 - 实用经验教程分享!

  • 1相关内容未经授权抓取自百度经验
  • 2

    为了能将按钮的时间启用,需要将按钮的模块调出,以便可以点击按钮后触发模块中的代码,实现代码的运行,如下图所示:lC5办公区 - 实用经验教程分享!

    图示EXCEL表格vba系列18之循环检索功能代码编写lC5办公区 - 实用经验教程分享!

  • 方法/步骤2

  • 1

    接下来就是编写简单的代码,需要先编写一个简单的循环代码,如下图所示:lC5办公区 - 实用经验教程分享!

    图示EXCEL表格vba系列18之循环检索功能代码编写lC5办公区 - 实用经验教程分享!

  • 2

    在循环代码的基础上加入判断语句,换句话说,也就是对每条数据的简单检索判断,代码如下图所示:lC5办公区 - 实用经验教程分享!

    图示EXCEL表格vba系列18之循环检索功能代码编写lC5办公区 - 实用经验教程分享!

  • 3

    整体的代码如下:lC5办公区 - 实用经验教程分享!

    Dim i As IntegerlC5办公区 - 实用经验教程分享!

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

    For i = 2 To Sheet1.Range("A1").End(xlDown).Row 1lC5办公区 - 实用经验教程分享!

    If Len(Sheet1.Cells(i, 1)) = 3 ThenlC5办公区 - 实用经验教程分享!

    Sheet1.Cells(i, 4) = "3位数"lC5办公区 - 实用经验教程分享!

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

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

  • 方法/步骤3

  • 1

    最后就是点击按钮执行结果,如下图所示:lC5办公区 - 实用经验教程分享!

    图示EXCEL表格vba系列18之循环检索功能代码编写lC5办公区 - 实用经验教程分享!

  • 2

    从执行的结果可以看出,对表格中的第一列中所有单元格的数据进行检索,判断是否有三位数的,并将其为三位数的显示出来,结果在检索结果的那一列中的同一行显示,以便查看,如下图所示:lC5办公区 - 实用经验教程分享!

    图示EXCEL表格vba系列18之循环检索功能代码编写lC5办公区 - 实用经验教程分享!

  • 3

    以上就是对数据的简单检索,也就是循环语句加上判断。lC5办公区 - 实用经验教程分享!

  • 注意事项

    • 密码:6cwy
    • 如果对你有所帮助,记得投个票吧!或点赞!
    • 若是仍有疑问,可以点击“我有疑问”留言,谢谢!

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


    标签: excel表格系列循环功能

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