我想使用使用者表單編輯我的表記錄。但是,下面的程式碼僅適用於第一行(我不知道為什麼)。您能否幫我修改我的程式碼,以便它適用於我想要修改的任何行?我總是收到錯誤“類型不匹配”,然後在代碼“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
另外,我想強制我的用戶僅使用用戶表單來新增和編輯記錄。我嘗試過保護工作表,但透過這種方法,我無法使用表單編輯或新增任何內容。請幫忙!先感謝您!