책 내용 질문하기
프로시저 ㅠㅠㅠ
도서
[2010] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2003 사용자용)
페이지
208
조회수
38
작성일
2012-03-18
작성자
첨부파일
하 암만 봐도 틀린부분을 모르곘네요ㅠㅠㅠㅠㅠ
답변
2012-03-19 09:28:49
Private Sub cmd등록_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태
txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End Sub
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End Sub
Private Sub cmd조회_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count - 1 <- .rows 가 빠졌구요.
입력행 = 기준행위치 + 기준범위행수
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = Cells(입력행, 5)
End Sub
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count - 1 <- .rows 가 빠졌구요.
입력행 = 기준행위치 + 기준범위행수
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = Cells(입력행, 5)
End Sub
Private Sub cmd종료_Click()
Unload Me
End Sub
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "i4:i13" <- Lst제품목록 입니다. 확인하셔서 수정하시구요. 범위도 i4:i13 으로 변경하세요.
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"
End Sub
txt판매일자 = Date
lst제품목록.RowSource = "i4:i13" <- Lst제품목록 입니다. 확인하셔서 수정하시구요. 범위도 i4:i13 으로 변경하세요.
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"
End Sub
좋은 하루 되세요.
"
-
*2012-03-19 09:28:49Private Sub cmd등록_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End SubPrivate Sub cmd조회_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count - 1 <- .rows 가 빠졌구요.
입력행 = 기준행위치 + 기준범위행수
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = Cells(입력행, 5)
End SubPrivate Sub cmd종료_Click()
Unload Me
End SubPrivate Sub UserForm_Click()End SubPrivate Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "i4:i13" <- Lst제품목록 입니다. 확인하셔서 수정하시구요. 범위도 i4:i13 으로 변경하세요.
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"
End Sub
좋은 하루 되세요."