기존 문제집의 풀이와는 다르게
i = Range("a4").CurrentRegion.Rows.Count + 3
Cells(i, 1) = Me.txt고객명
If Me.opt고급 = True Then
Cells(i, 2) = "고급"
ElseIf Me.opt실버 = True Then
Cells(i, 2) = "실버"
ElseIf Me.opt일반 = True Then
Cells(i, 2) = "일반"
Else
End If
Cells(i, 3) = Val(Me.txt매출금액)
Cells(i, 4) = Me.lst결제방식
If Me.lst결제방식 = "현금" Then
Cells(i, 5) = Me.txt매출금액 * 0.1
ElseIf Me.lst결제방식 = "카드" Then
Cells(i, 5) = Me.txt매출금액 * 0.05
ElseIf Me.lst결제방식 = "포인트" Then
Cells(i, 5) = 0
Else
End If
라는 식을 입력하였는데
폼에 입력된 데이터가 시트의 표에 입력되어 있는 '마지막 행 다음에 연속하여 추가'되지않고 5행에서만 데이터가 바뀌어 입력되더라구요
식을 입력할 때 항상 i = range ... 와 같은 방식을 써왔었는데 해당 식이 틀려서 오류가 뜨는건지, 아니면 해당 파일에서만 적용이 안되는건지 궁금합니다!
안녕하세요.
코드가 달라서 생긴 문제는 아닌듯 합니다. 필드명 아래 입력된 데이터 전체를 삭제한 후 다시 실행해 보세요.보세요. 간혹 위와 같은 현상이 발생할 때가 있는데 이때 저는 이렇게 하면 됐거든요..
즐거운 하루 되세요.
-
관리자2020-05-08 10:04:58
안녕하세요.
코드가 달라서 생긴 문제는 아닌듯 합니다. 필드명 아래 입력된 데이터 전체를 삭제한 후 다시 실행해 보세요.보세요. 간혹 위와 같은 현상이 발생할 때가 있는데 이때 저는 이렇게 하면 됐거든요..
즐거운 하루 되세요.