컴퓨터활용능력 1급 실기 - 책 내용 질문하기

자료실 온라인 채점 동영상 강좌 커뮤니티

책 내용 질문하기

엑셀 관련문제

도서

[2010] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2003 사용자용)

페이지

208

조회수

127

작성일

2011-04-28

작성자

첨부파일

아래 사진을 보시면 제품명에 원래는 떠야되는데

두번째사진처럼 안뜨네요

무슨오류가 있는지 모르겠어요 ㅜㅜ

하라는대로 다했는데

아래는 제가 엑셀에 입력한 식입니다

Private Sub 판매입력_Click()
판매자료입력.Show

txt제품명 = lst제품목록
End Sub

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_SelectionChange(ByVal Target As Range)

End Sub

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결재형태

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""

End Sub

Private Sub cmd조회_Click()
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count - 1
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = Cells(입력행, 5)

End Sub

Private Sub cmd종료_Click()
Unload Me

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "i4:i13"
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"
End Sub

답변

2011-04-28 17:51:33

Private Sub lst제품목록_Click()
txt제품명 = lst 제품목록
End Sub

lst제품목록을 클릭 하면 txt제품명에 lst제품목록에 선택된 내용이 입력되게 하는 것입니다.

문제에는 없는 것입니다.(이 문제에서는 꼭 하시지 않으셔도 되는데 안하시면 lst제품목록을 선택 했을때 txt제품명에 제품명이 표시 되지 않겠죠.) 아마 cd에 있는 파일이 잘못 된 것 같습니다.

txt제품명 = lst제품목록 을 잘라내기 하셔서

lst제품목록을 클릭 했을때 이벤트로 옮겨

Private Sub lst제품목록_Click()
txt제품명 = lst 제품목록
End Sub

만들어서 사용해 보세요.

좋은 하루 되세요.

*

2011-04-28 17:51:33

Private Sub lst제품목록_Click()
txt제품명 = lst 제품목록
End Sub

lst제품목록을 클릭 하면 txt제품명에 lst제품목록에 선택된 내용이 입력되게 하는 것입니다.

문제에는 없는 것입니다.(이 문제에서는 꼭 하시지 않으셔도 되는데 안하시면 lst제품목록을 선택 했을때 txt제품명에 제품명이 표시 되지 않겠죠.) 아마 cd에 있는 파일이 잘못 된 것 같습니다.

txt제품명 = lst제품목록 을 잘라내기 하셔서

lst제품목록을 클릭 했을때 이벤트로 옮겨

Private Sub lst제품목록_Click()
txt제품명 = lst 제품목록
End Sub

만들어서 사용해 보세요.

좋은 하루 되세요.
"

파일선택

목록 질문하기 수정하기 삭제