图示EXCEL表格vba系列17之循环加判断语句简介

1、首先需要将EXCEL表格中的格式写好，写出自己需要的格式，以便可以达到自己需要的要求，如下图所示：

2、将循环加判断的按钮指定到模块中，点击按钮后就可以执行模块中代码，如下图所示：

3、通过以上的操作步骤，就可以将按钮事件指定代码，实现代码的运行。

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

1、最后通过以上操作步骤，就可以实现循环加判断，对于代码运行的结果，如下图所示（单元格A2中数值大于10的结果）：

2、单元格A2中数值小于10的结果，如下图所示：

3、简介，对于以上代码的说明是单元格A2中的数值大于10，循环的结果就要加上10并显示结果，单元格数值小于10，循环结果就是单纯的循环从2到11的结果。