第7课练习题:连续排序号
本帖最后由 兰色幻想 于 2012-2-28 23:25 编辑最近几天忙于录制VBA80集的53~62集,所以时间有点紧。今天出练习有点晚了。大家做一下吧。因为今天还要准备课件。没有时间批改练习了,本练习今晚上课时讲解。大家上交答案后可以去班里发的练习参与贴后领取奖励的积分 http://www.excelpx.com/thread-223617-1-1.html
作业下载:
本帖最后由 wenchduan 于 2012-2-28 10:57 编辑
Sub 连续排序()
Dim i%
Dim j
j = 1
Range("B2") = j
For i = 3 To Range("A65536").End(xlUp).Row
If Range("A" & i) = Range("A" & (i - 1)) + 1 Then
j = j + 1
Range("B" & i) = j
Else
Range("B" & i) = 1
j = 1
End If
Next i
End Sub
兰版辛苦啦,我一定好好学 {:101:} Sub 排序()
Dim i As Integer
For i = 2 To .End(3).Row
If Cells(i, 1) - 1 <> Cells(i - 1, 1) Then
Cells(i, 2) = 1
Else
Cells(i, 2) = Cells(i - 1, 2) + 1
End If
Next i
End Sub C12:hrpotterOption Explicit
Sub 排号()
Dim i As Long
Cells(2, 2) = 1
For i = 3 To Range("a65536").End(xlUp).Row
If Cells(i, 1) <> Cells(i - 1, 1) + 1 Then
Cells(i, 2) = 1
Else
Cells(i, 2) = Cells(i - 1, 2) + 1
End If
Next i
End Sub 支持下,校长!!!!!!!!! 交作业,兰版辛苦了!!!!!!
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
练习题交这里?Sub paixu()
Dim x As Integer, y As Integer
Range("b2") = 1
y = 1
For x = 2 To 15
If Range("a" & x + 1) = Range("a" & x) + 1 Then
y = y + 1
Range("b" & x + 1) = y
Else: Range("b" & x + 1) = 1
y = 1
End If
Next x
End Sub
A06:梅一枝
本帖最后由 梅一枝 于 2012-2-28 17:34 编辑晕了,交练习题的帖子吧。我给灌水了还好可以编辑。
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
疑点:单元格 - 单元格 总是试着做,依然不是很清楚原理,有时候单元格之间可以运输,有时候就提示类型不匹配。。。。