워크시트에 데이터를 입력할 때 표의 제목 행과 입력 내용이 일치하도록 작성하라는 것을 프로시저에서 어떻게 실행시키는 건가요?
cells로 입력하라는 것을 의미하는건가요?
Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(cmb판매일자)
Cells(입력행, 2) = cmb종류
Cells(입력행, 3) = Val(txt수량)
Cells(입력행, 4) = Val(txt단가)
Cells(입력행, 5) = Format(txt수량 * txt단가, "#,###")
If ch할인여부 = True Then
Cells(입력행, 6) = txt수량 * txt단가 * 0.1
Else
Cells(입력행, 6) = 0
End If
cmb종류.Locked = True
End Sub
와 같이 지정하는 것을 말합니다.
이렇게 하면 각 셀에 해당 값들이 입력되게 되죠.
좋은 하루 되세요.
-
관리자2020-04-01 18:13:58
Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(cmb판매일자)
Cells(입력행, 2) = cmb종류
Cells(입력행, 3) = Val(txt수량)
Cells(입력행, 4) = Val(txt단가)
Cells(입력행, 5) = Format(txt수량 * txt단가, "#,###")
If ch할인여부 = True Then
Cells(입력행, 6) = txt수량 * txt단가 * 0.1
Else
Cells(입력행, 6) = 0
End If
cmb종류.Locked = True
End Sub
와 같이 지정하는 것을 말합니다.
이렇게 하면 각 셀에 해당 값들이 입력되게 되죠.
좋은 하루 되세요.