사용자 양식을 사용하여 테이블 레코드를 편집하고 싶습니다. 그러나 아래 코드는 첫 번째 행에서만 작동합니다(이유는 모르겠습니다). 수정하고 싶은 모든 행에서 작동하도록 코드를 수정하는 데 도움을 주실 수 있나요? 항상 "유형 불일치" 오류가 발생하고 "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
또한 사용자가 레코드를 추가하고 편집하는 데에만 사용자 양식을 사용하도록 하고 싶습니다. 시트를 보호하려고 시도했지만 이 방법으로는 양식을 사용하여 아무것도 편집하거나 추가할 수 없습니다. 도와주세요! 미리 감사드립니다!