我想使用用户表单编辑我的表格记录。但是,下面的代码仅适用于第一行(我不知道为什么)。您能帮我修改代码,以便它适用于我想要修改的任何行吗?我总是收到错误“类型不匹配”,然后将我指向此代码“WriteRow = Application.Match(ABnum, ABrng, 0)”
这是我目前的代码:
Application.ScreenUpdating = False
Dim LastRow As Long
Dim ABnum As String
Dim ABrng As Range
Dim WriteRow As Long
Sheets("CDP DATABASE").Select
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
Set ABrng = .Range("B7:B" & LastRow)
ABnum = txtemn.Value
WriteRow = Application.Match(ABnum, ABrng, 0)
Cells(WriteRow, 1).Select
End With
With ActiveCell
.Offset(0, 1).Value = txtemn.Value
.Offset(0, 2).Value = txtcode.Value
.Offset(0, 3).Value = txttype.Value
End With
Application.ScreenUpdating = True
另外,我想强制我的用户仅使用用户表单来添加和编辑记录。我尝试过保护工作表,但使用这种方法我无法使用表单编辑或添加任何内容。请帮忙!提前谢谢!