|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 peterwins 于 2019-3-19 11:15 编辑
各位大神,
初入vba,写了个小代码,加密用。
实现过程是在一个表a中输入编号及对应密码,然后自动去表b中去找编号及密码都对应的所有行,粘贴到新开工作簿中。但是运行后总是在第16行代码部分显示 Type Mismatch。求教!
代码如还有其他不足,也请各位老师指正。谢谢
- Dim b As String, p As Long
- Sub Worksheet_Change(ByVal Target As Range)
- If Target.Count <> 1 Then Exit Sub
- If Application.Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
- If Range("b2").Value = "" Or Range("b3").Value = "" Then Exit Sub
- b = Range("b2").Value
- p = Range("b3").Value
- Call finding
- End Sub
- Sub finding()
- Worksheets("2").Activate
- Dim a As Variant, c As Variant, e As Long, recd As Range
- a = Application.Match("City", Rows(1), 0)
- c = Application.Match("PSW", Rows(1), 0)
- For e = 2 To ActiveSheet.Cells(2, a).End(4).Row
- If ActiveSheet.Cells(e, a).Value = b And ActiveSheet.Cells(e, a).Offset(0, c - a).Value = p Then
- Set recd = Application.Union(Cells(e, a).EntireRow, recd)
- Else
- MsgBox "No Mapping!!!"
- End If
- Next e
- Workbooks.Add
- recd.Copy
- End Sub
复制代码
|
|