图示EXCEL表格vba系列17之循环加判断语句简介,判断语句加入到循环中,若是想了解其他的系列可以查看或者关注。
工具/原料
1
EXCEL表格2007
2
表格链接:https://pan.baidu.com/s/1o92Ry4M
3
密码在注意事项里
方法/步骤
1
首先需要将EXCEL表格中的格式写好,写出自己需要的格式,以便可以达到自己需要的要求,如下图所示:
2
将循环加判断的按钮指定到模块中,点击按钮后就可以执行模块中代码,如下图所示:
3
通过以上的操作步骤,就可以将按钮事件指定代码,实现代码的运行。
方法/步骤2
1
接下来需要写出一个简单的循环框架,如下图所示:
2
然后再循环代码中,加入判断语句,如下图所示:
3
代码如下:Dim i As Integer For i = 2 To 11 If Sheet1.Range('A2') > 10 Then Sheet1.Cells(i, 3) = i + 10 End If If Sheet1.Range('A2') < 10 Then Sheet1.Cells(i, 3) = i End If Next i
方法/步骤3
1
最后通过以上操作步骤,就可以实现循环加判断,对于代码运行的结果,如下图所示(单元格A2中数值大于10的结果):
2
单元格A2中数值小于10的结果,如下图所示:
3
简介,对于以上代码的说明是单元格A2中的数值大于10,循环的结果就要加上10并显示结果,单元格数值小于10,循环结果就是单纯的循环从2到11的结果。
注意事项
1
密码:z2hd
2
如果对你有所帮助,记得投个票吧!或点赞!
3
若是仍有疑问,可以点击“我有疑问”留言,谢谢!