|
根据以往的教程，我们学过了一些基础的语法，现在终于可以干点事情了。 今天的教程使用循环里套分支，实现简单的效果。 如下表格，在B列中进行判断，如果A列的值为“男”，B列显示“过来搬桌子”,如果A列的值为“女”，B列显示“呆着不要动”。 思路就是从第1行到第9行循环， 然后分别判断，如果是男，执行一段操作，否则执行另一个操作。 如果我们知道固定循环次数，也就是最后一行是9,使用for 循环方便些。 Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 9 If Cells(i, 1) = "男" Then Cells(i, 2) = "过来搬桌子" Else Cells(i, 2) = "呆着不要动" End If NextEnd Sub其中cells(i,1)用法为Cells(行，列)，注意列在后，行在前，cells(i,1)就是指第一列第i行，而i是变量，i是从1到9循环。也就可以理解成，第1列第1行，第1列第2行，这样做循环。 执行之后如下效果。 这个就是Excel中IF函数可以实现的效果。 当然，你可能会想这个表格最后不止9行，可能10000行，或是变动的。 那么就需要用一个变量获取最后一行，如下代码, rs = Range("a1").End(xlUp).Row这句代码比较经典，可以自动获取最后一行的行号，以后会重点说明。 Private Sub CommandButton1_Click() Dim i As Integer Dim rs As Long rs = Range("a1").End(xlUp).Row For i = 1 To rs If Cells(i, 1) = "男" Then Cells(i, 2) = "过来搬桌子" Else Cells(i, 2) = "呆着不要动" End If NextEnd Sub子曰：用之则行，不用则藏。 意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。 |
|
|
