第7课练习题：连续排序号

兰色幻想

     最近几天忙于录制VBA80集的53~62集，所以时间有点紧。今天出练习有点晚了。大家做一下吧。因为今天还要准备课件。没有时间批改练习了，本练习今晚上课时讲解。大家上交答案后可以去班里发的练习参与贴后领取奖励的积分      http://www.excelpx.com/thread-223617-1-1.html

作业下载： 第7课练习题.rar (6.89 KB, 下载次数: 250)

2012-2-28 10:04 上传

点击文件名下载附件

wenchduan

1. Sub 连续排序()
   
2.   Dim i%
   
3.   Dim j
   
4.   j = 1
   
5.   Range("B2") = j
   
6.   For i = 3 To Range("A65536").End(xlUp).Row
   
7.     If Range("A" & i) = Range("A" & (i - 1)) + 1 Then
   
8.        j = j + 1
   
9.        Range("B" & i) = j
   
10.     Else
    
11.        Range("B" & i) = 1
    
12.        j = 1
    
13.     End If
    
14.   Next i
    
15. End Sub
    

复制代码

bynbyn

兰版辛苦啦，我一定好好学 {:101:}

zjcat35

1. Sub 排序()
   
2.     Dim i As Integer
   
3.     For i = 2 To [a65536].End(3).Row
   
4.         If Cells(i, 1) - 1 <> Cells(i - 1, 1) Then
   
5.             Cells(i, 2) = 1
   
6.         Else
   
7.             Cells(i, 2) = Cells(i - 1, 2) + 1
   
8.         End If
   
9.     Next i
   
10. End Sub

复制代码

hrpotter

C12:hrpotter

1. Option Explicit
   
2. Sub 排号()
   
3.     Dim i As Long
   
4.     Cells(2, 2) = 1
   
5.     For i = 3 To Range("a65536").End(xlUp).Row
   
6.         If Cells(i, 1) <> Cells(i - 1, 1) + 1 Then
   
7.             Cells(i, 2) = 1
   
8.         Else
   
9.             Cells(i, 2) = Cells(i - 1, 2) + 1
   
10.         End If
    
11.     Next i
    
12. End Sub

复制代码

C12-hrpotter-第7课练习题.rar (12.9 KB, 下载次数: 9)

2012-2-28 10:27 上传

点击文件名下载附件

gdsgzhrsh

支持下，校长！！！！！！！！！

mfksypss

交作业，兰版辛苦了！！！！！！

bl5062

Sub 干活()
    Range("b2:b" & Cells(Rows.Count, 1).End(3).Row) = "=IF(RC[-1]=N(R[-1]C[-1])+1,R[-1]C+1,1)"
    Range("b:b") = Range("b:b").Value
End Sub

suntopjiang

练习题交这里？

1. Sub paixu()
   
2. Dim x As Integer, y As Integer
   
3.   Range("b2") = 1
   
4.      y = 1
   
5.        For x = 2 To 15
   
6.          If Range("a" & x + 1) = Range("a" & x) + 1 Then
   
7.           y = y + 1
   
8.         Range("b" & x + 1) = y
   
9.        Else: Range("b" & x + 1) = 1
   
10.        y = 1
    
11.       End If
    
12.      Next x
    
13. End Sub

复制代码

梅一枝

晕了，交练习题的帖子吧。我给灌水了还好可以编辑。
Sub 排序()
    Dim i As Integer, y As Integer, j
    Dim rg, gr
    j = Range("A65536").End(xlUp).Row
    Range("b2") = 1
    y = 1
    For i = 3 To j
       rg = Range("a" & i - 1)
        gr = Range("a" & i)
        If gr - rg = 1 Then
            y = y + 1
        Else
            y = 1
        End If
        Range("b" & i) = y
    Next
End Sub

疑点：单元格 - 单元格 总是试着做，依然不是很清楚原理，有时候单元格之间可以运输，有时候就提示类型不匹配。。。。