책 내용 질문하기
프로시저 실행
도서
2019 시나공 컴퓨터활용능력 1급 실기
페이지
232
조회수
331
작성일
2019-06-30
작성자
탈퇴*원
첨부파일
하라는대로 입력한것 같은데 실행이 안됩니다.. 문제가 뭘까요?
Private Sub Worksheet_Activate()
[b1] = "컴활합격"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Name = " 바탕체 "
Target.Font.Size = "14"
End Sub
Private Sub Worksheet_Deactivate()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Private Sub 판매입력_Click()
판매자료입력.Show
End Sub
Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하세요"
ElseIf txt수량 = "" Then
MsgBox "제품명을 입력하세요"
ElseIf txt단가 = "" Then
MsgBox "제품명을 입력하세요"
ElseIf cmb결재형태 = "" Then
MsgBox "제품명을 입력하세요"
Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = Val(txt수량)
Cells(입력행, 5) = Val(txt단가)
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태
txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If
End Sub
Private Sub cmd조회_Click()
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count - 1
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = cellse(입력행, 5)
End Sub
Private Sub cmd종료_Click()
Unload Me
End Sub
Private Sub lst제품목록_Click()
txt제품명 = lst제품목록
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
txt판매일자 = Date
Ist제품목록.RowSource = "i4:i13"
cmb결재형태.List = Array("현금", "카드", "어음")
End Sub
답변
2019-07-01 21:17:51
안녕하세요.
개체나 컨트롤을 사용하는 곳에서 오류가 난 것 같긴하지만,
문의주신 내용만으로는 정확한 확인이 어렵습니다.
작업하신 엑셀 파일을 첨부해서 재질문해 주세요.
좋은 하루 보내세요.
-
관리자2019-07-01 21:17:51
안녕하세요.
개체나 컨트롤을 사용하는 곳에서 오류가 난 것 같긴하지만,
문의주신 내용만으로는 정확한 확인이 어렵습니다.
작업하신 엑셀 파일을 첨부해서 재질문해 주세요.
좋은 하루 보내세요.