[已解决]求助为什么此条代码生成的各个试室信息不会替换掉上次多余的信息的

qinhuan66

求助为什么此条代码生成的各个试室信息不会替换，意思就是说例如第1次生在10试室的信息，第2次生成5次。按理说本次应该只有5个信息的信息，但是上次生在的第6--第10次的信息还是存在。怎么才能每次生成时都能替换掉上次的信息。（即是清空完上次的信息再生成）谢谢
求助各位.rar (33.04 KB, 下载次数: 6)

2013-7-26 21:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2013-7-26 21:50

这容易啊，先清除一下就可以啦！
Sub 生成抽签登记表()
    ......
    Application.ScreenUpdating = False
    For i = 0 To 60
      Sheets(2).Cells(i * 25 + 5, 2).Resize(20, 4).ClearContents
    Next
    With Sheet1
        LastRow1 = .Cells(.Rows.Count, "F").End(xlUp).Row
        If LastRow1 < StartRow1 Then Exit Sub
     ........
End Sub

跳转到最佳答案楼层

qinhuan66

代码如下：
Sub 生成抽签登记表()
    Const StartRow1 As Byte = 3
    Const JumpNext As Byte = 25
    Dim sRoom As String
    Dim LastRow1 As Long, StartRow2 As Long, LastRow2 As Long, i1 As Long, i2 As Long
   
    Application.ScreenUpdating = False
    With Sheet1
        LastRow1 = .Cells(.Rows.Count, "F").End(xlUp).Row
        If LastRow1 < StartRow1 Then Exit Sub
        StartRow2 = 3
        LastRow2 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
        If LastRow2 < StartRow2 + 2 Then Exit Sub
   
        Do While StartRow2 < LastRow2
            sRoom = GetNum(Sheet2.Range("A" & StartRow2))
            i2 = StartRow2 + 2
            For i1 = StartRow1 To LastRow1
                If .Cells(i1, "F").Value = sRoom Then
                    .Range(.Cells(i1, "B"), .Cells(i1, "E")).Copy Sheet2.Cells(i2, "B")
                    i2 = i2 + 1
                End If
            Next i1
            StartRow2 = StartRow2 + JumpNext
        Loop
    End With
    Application.ScreenUpdating = True
End Sub
Private Function GetNum(s As String) As String
    Dim retval As String
    Dim i As Integer
    retval = ""
    For i = 1 To Len(s)
        Select Case Mid(s, i, 1)
            Case "0" To "9"
            retval = retval + Mid(s, i, 1)
        End Select
    Next i
    GetNum = retval
End Function

zjdh

看不明白，你在说什么！

qinhuan66

zjdh 发表于 2013-7-26 21:20
看不明白，你在说什么！

你好感谢你的关注。我的意思是说。生成抽签登记表时，有时考生人数多有时考生人数少，上面附件只是例子。如果本次生成人数多的话比如安排20个试室。就有20个试室的信息在抽签登记表内，但今次人数少只生成10个试室。只能替换10个试室的内容。余下上次10次（11-20试室)的信息不被替换成空。因为本次只有10个试室的人。应该只有10个试室有信息不应该再有20个试室的信息。谢谢

zjdh

这容易啊，先清除一下就可以啦！
Sub 生成抽签登记表()
    ......
    Application.ScreenUpdating = False
    For i = 0 To 60
      Sheets(2).Cells(i * 25 + 5, 2).Resize(20, 4).ClearContents
    Next
    With Sheet1
        LastRow1 = .Cells(.Rows.Count, "F").End(xlUp).Row
        If LastRow1 < StartRow1 Then Exit Sub
     ........
End Sub

qinhuan66

zjdh 发表于 2013-7-26 21:50
这容易啊，先清除一下就可以啦！
Sub 生成抽签登记表()
    ......

老师非常感谢你。能否帮改一下。抽签登记表里面的内容全部由代码生成。谢谢
http://www.excelpx.com/thread-305967-1-1.html