☰

在用户窗体中编辑 Excel 记录

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba
在用户窗体中编辑 Excel 记录

我想使用用户表单编辑我的表格记录。但是，下面的代码仅适用于第一行（我不知道为什么）。您能帮我修改代码，以便它适用于我想要修改的任何行吗？我总是收到错误“类型不匹配”，然后将我指向此代码“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

另外，我想强制我的用户仅使用用户表单来添加和编辑记录。我尝试过保护工作表，但使用这种方法我无法使用表单编辑或添加任何内容。请帮忙！提前谢谢！

相关内容