책 내용 질문하기
구분 = ""
내역 = ""
금액 = "" <= txt구분,txt내역,txt금액 으로 컨트롤명을 적으셔서 초기화 되지 않으셨어요. 컨트롤명을 확인하셔서 사용하세요.
프로시저 에서요
도서
[2011] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2003 사용자용)
페이지
438
조회수
134
작성일
2011-08-03
작성자
첨부파일
프로시저 작성하고 내서 채점 프로그램에 넣으니깐
텍스트 상자의 값을 마지막 행에 표시하지 않아서 감점 되었다고 나오는데
정답 및 해설에 나와있는데로 똑같이 고친거 같은데
왜 계속 이러는 걸까요?
그리고
조건부 서식이랑 고급필터가 어떨때는 되고 어떨땐 안되고 그러는데
여기서 조건부 서식은 됬는데 그 다음 고급필터가 안되는데 왜그렇죠?
범위지정을 B3:J21로 잡고 하면 되는거 아닌가요?
답변
2011-08-04 08:08:29
1. 입력프로시저가 아예 작동을 하지 않네요.
Public Sub UserForm_Initialize() '(By KCheck) 원래코드: Private Sub UserForm_Initialize()
On Error Resume Next
날짜 = Date
구분.AddItem "수입"
구분.AddItem "지출" <- 이부분은 주석처리 되어 있었습니다. 그리고 additem은 =을 제외하고사용하셔야 합니다.
End Sub
Public Sub 입력_Click() '(By KCheck) 원래코드: Private Sub 입력_Click()
On Error Resume Next
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count [a3].rows 가 아니라 [a3].row 입니다. 이부분때문에 입력이 되지않았습니다.
Cells(입력행, 1) = CDate(날짜)
Cells(입력행, 2) = 구분
Cells(입력행, 3) = 내역
Cells(입력행, 4) = 금액
On Error Resume Next
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count [a3].rows 가 아니라 [a3].row 입니다. 이부분때문에 입력이 되지않았습니다.
Cells(입력행, 1) = CDate(날짜)
Cells(입력행, 2) = 구분
Cells(입력행, 3) = 내역
Cells(입력행, 4) = 금액
구분 = ""
내역 = ""
금액 = "" <= txt구분,txt내역,txt금액 으로 컨트롤명을 적으셔서 초기화 되지 않으셨어요. 컨트롤명을 확인하셔서 사용하세요.
End Sub
| 지역 | 성별 | 최종주문일 |
| 노원 | 여 | TRUE |
| 중랑 | 남 | TRUE |
최종주문일이 아니라 주문일 이나 원본 레코드에 없는 필드명을 사용하셔야 합니다.
고급필터에서 조건에 식을 이용하여 true 나 false 가 나오면 원본 레코드에 없는 필드명을 사용하여
가상의 필드를 만들어 놓고 이 가상의 필드에 true나 false 값을 넣은후 true 값에 해당하는 값만 필터하게 됩니다.
이부분에 대한 설명이 75쪽에 있으니 참고하세요.
좋은 하루 되세요.
"
-
*2011-08-04 08:08:29
1. 입력프로시저가 아예 작동을 하지 않네요.
Public Sub UserForm_Initialize() '(By KCheck) 원래코드: Private Sub UserForm_Initialize()
On Error Resume Next
날짜 = Date
구분.AddItem "수입"
구분.AddItem "지출" <- 이부분은 주석처리 되어 있었습니다. 그리고 additem은 =을 제외하고사용하셔야 합니다.
End SubPublic Sub 입력_Click() '(By KCheck) 원래코드: Private Sub 입력_Click()
On Error Resume Next
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count [a3].rows 가 아니라 [a3].row 입니다. 이부분때문에 입력이 되지않았습니다.
Cells(입력행, 1) = CDate(날짜)
Cells(입력행, 2) = 구분
Cells(입력행, 3) = 내역
Cells(입력행, 4) = 금액
구분 = ""
내역 = ""
금액 = "" <= txt구분,txt내역,txt금액 으로 컨트롤명을 적으셔서 초기화 되지 않으셨어요. 컨트롤명을 확인하셔서 사용하세요.End Sub지역 성별 최종주문일 노원 여 TRUE 중랑 남 TRUE 최종주문일이 아니라 주문일 이나 원본 레코드에 없는 필드명을 사용하셔야 합니다.고급필터에서 조건에 식을 이용하여 true 나 false 가 나오면 원본 레코드에 없는 필드명을 사용하여가상의 필드를 만들어 놓고 이 가상의 필드에 true나 false 값을 넣은후 true 값에 해당하는 값만 필터하게 됩니다.이부분에 대한 설명이 75쪽에 있으니 참고하세요.좋은 하루 되세요."