在使用者表單中編輯 Excel 記錄

在使用者表單中編輯 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

另外,我想強制我的用戶僅使用用戶表單來新增和編輯記錄。我嘗試過保護工作表,但透過這種方法,我無法使用表單編輯或新增任何內容。請幫忙!先感謝您!

相關內容