关于VBA按条件搜索并定位，研究了半天实在不知道怎么办只能拜托各位大佬了

zzp823620742

文件在附件中，万分感谢

约定的童话

说难也不难，说不难也难，有点繁琐，大师估计都休息了，你这得找人代写啊

zzp823620742

约定的童话 发表于 2019-3-16 17:00
说难也不难，说不难也难，有点繁琐，大师估计都休息了，你这得找人代写啊

其实最主要我就是想知道怎么定位以后复制其他都没事

719404338

1. Sub t()
   
2. Dim i, j
   
3. For Each sh In Worksheets
   
4. If sh.Name = Sheet6.[e8] Then
   
5. For i = 2 To sh.[a65536].End(3).Row
   
6. If sh.Range("b" & i) = "否" Then
   
7. Sheet6.[e11] = sh.Range("c" & i)
   
8. sh.Range("b" & i) = "是"
   
9. Exit Sub
   
10. End If
    
11. Next i
    
12. End If
    
13. Next
    
14. End Sub

复制代码

zzp823620742

719404338 发表于 2019-3-16 17:20

太谢谢了大佬

tigertc

1. Sub aCase()
   
2. Dim myRng As Range, mySht As Worksheet, Cat, aName
   
3. Cat = Cells(8, 5).Text
   
4. Set mySht = Sheets(Cat)
   
5. Set myRng = mySht.Columns(2).Find("否", lookat:=xlWhole)
   
6. If myRng Is Nothing Then MsgBox Cat & "已无未使用的激活码!": Exit Sub
   
7. aName = InputBox("请填入使用人:")
   
8. mySht.Cells(myRng.Row, 2) = "是"
   
9. mySht.Cells(myRng.Row, 4) = aName
   
10. mySht.Cells(myRng.Row, 5) = Date
    
11. Cells(13, 5) = mySht.Cells(myRng.Row, 3).Text
    
12. End Sub

复制代码

个人觉得find比遍历快一些

zzp823620742

tigertc 发表于 2019-3-16 17:35
个人觉得find比遍历快一些

好的我试试

zzp823620742

tigertc 发表于 2019-3-16 17:35
个人觉得find比遍历快一些

这个SUB里没有取消输入框的判定，取消了以后还是会复制激活码。我是不是加一个IF的判定上去就可以了

tigertc

zzp823620742 发表于 2019-3-16 17:49
这个SUB里没有取消输入框的判定，取消了以后还是会复制激活码。我是不是加一个IF的判定上去就可以了

aName = InputBox("请填入使用人:")的下面加一句:If Len(aName) = 0 Then Exit Sub
判断有没有接收到值,没接收就退出.