[已解决][求助]批量修改

老糊涂

我想通过窗体进行选择，然后把被选中的这些人员的年度考核情况，将“合格”批量修改为“优秀”，搞了半天也搞不定，请高手指点，附件如下，谢谢。

fg0NGqKK.rar (8.37 KB, 下载次数: 0)

2010-2-5 19:33 上传

点击文件名下载附件
[求助]批量修改

最佳答案

月排行榜 / 总排行榜

枯禅

2010-2-5 20:10

fQuKaWhf.rar (10.87 KB, 下载次数: 9)

2010-2-5 20:10 上传

点击文件名下载附件
[求助]批量修改

跳转到最佳答案楼层

枯禅

fQuKaWhf.rar (10.87 KB, 下载次数: 9)

2010-2-5 20:10 上传

点击文件名下载附件
[求助]批量修改

老糊涂

高手就是不简单，苦思不得的问题，一下解决了，谢谢。

蓝桥玄霜

Private Sub CommandButton3_Click()
Dim i&, xm$, r1
With ListBox2
    For i = 0 To .ListCount - 1
        xm = .List(i)
        Set r1 = Sheet1.[a:a].Find(xm, , , 1)
        Sheet1.Cells(r1.Row, 4) = "优秀"
    Next
End With
End Sub

老糊涂

谢谢蓝版指点，祝新年万事如意。