엑셀 데이터베이스 업데이트 :: Update_Record 함수 사용법

Sub Update_Record(WS As Worksheet, ParamArray vaParamArr() As Variant)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'수정 및 배포 시 출처를 반드시 명시해야 합니다.
 
'■ Update_Record 함수
'■ 시트의 데이터베이스를 업데이트 합니다. 업데이트 할 데이터의 첫번째 값은 반드시 ID여야 합니다.
'■ 사용방법
'Update_Record 시트, ID, 값1, 값2, ...
'▶ 인수 설명
'_____________WS                : 데이터베이스를 업데이트 할 시트입니다.
'_____________ID                : 업데이트 할 데이터를 대표하는 ID 입니다. ID는 데이터베이스의 첫번째 열에 입력되어 있어야 합니다.
'_____________값1, 값2, ...     : 업데이트 할 데이터를 머릿글 순서에 맞추어 차례대로 입력합니다. 업데이트하지 않을 값은 공백으로 건너 뛸 수 있습니다.
'###############################################################
 
Dim cRow As Long
Dim i As Long: Dim j As Long
Dim ID As Variant
 
If IsNumeric(vaParamArr(0)) = True Then ID = CLng(vaParamArr(0)) Else ID = vaParamArr(0)
 
With WS
    cRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    For j = 1 To cRow
        If .Cells(j, 1).Value = ID Then
            For i = 1 To UBound(vaParamArr)
                If Not IsMissing(vaParamArr(i)) Then .Cells(j, i + 1).Value = vaParamArr(i)
            Next
        End If
    Next
End With
 
End Sub