이런 실수를...첨부파일을 안올렸군요;;
다시 질문드려요~
매크로부분이랑 프로그래밍작업 부분이 틀렸다고 하는데
이것도 왜 틀렸는지 잘 모르겠어요.;;
첨부파일 비밀번호는 373&26이에요..
프로시저는 판매단가가 제대로 나오지 않네요.
Public Sub cmd입력_Click() '(By KCheck) 원래코드: Private Sub cmd입력_Click()
On Error Resume Next
행수 = [A3].Row + [A3].CurrentRegion.Rows.Count
Cells(행수, 1) = CDate(txt일자)
Cells(행수, 2) = cmb종류
Cells(행수, 3) = txt수량
Cells(행수, 4) = txt단가
Cells(행수, 5) = Format(Val(txt수량) * Val(txt단가), "#,") <- 천단위 배수로 표시 되고 있습니다. "#,###"으로변경하세요.
If ch할인여부 = True Then
Cells(행수, 6) = txt수량 * txt단가 * 0.1
Else
Cells(행수, 6) = 0
End If
cmb종류 = ""
txt수량 = ""
txt단가 = ""
End Sub
매크로는 데이터가 조금 다르네요.
팀명에 보면
3팀
2팀
과장최대값
1팀
3팀
으로 되어 있는데
님의 데이터는
3팀
1팀
과장최대값
2팀
3팀
으로 되어 있습니다.
아무래도 정렬하실때 뭔가 잘못된 것은 아닌 가 싶긴 한데요.
기본모의고사 02 문제를 다시 여시거나 파일을 새로 설치하셔서 다시 작성해 보시기 바랍니다.
좋은 하루 되세요.
"-
*2011-09-08 11:39:56
프로시저는 판매단가가 제대로 나오지 않네요.
Public Sub cmd입력_Click() '(By KCheck) 원래코드: Private Sub cmd입력_Click()
On Error Resume Next
행수 = [A3].Row + [A3].CurrentRegion.Rows.Count
Cells(행수, 1) = CDate(txt일자)
Cells(행수, 2) = cmb종류
Cells(행수, 3) = txt수량
Cells(행수, 4) = txt단가
Cells(행수, 5) = Format(Val(txt수량) * Val(txt단가), "#,") <- 천단위 배수로 표시 되고 있습니다. "#,###"으로변경하세요.
If ch할인여부 = True Then
Cells(행수, 6) = txt수량 * txt단가 * 0.1
Else
Cells(행수, 6) = 0
End If
cmb종류 = ""
txt수량 = ""
txt단가 = ""
End Sub매크로는 데이터가 조금 다르네요.
팀명에 보면
3팀
2팀
과장최대값
1팀
3팀
으로 되어 있는데
님의 데이터는
3팀
1팀
과장최대값
2팀
3팀
으로 되어 있습니다.
아무래도 정렬하실때 뭔가 잘못된 것은 아닌 가 싶긴 한데요.
기본모의고사 02 문제를 다시 여시거나 파일을 새로 설치하셔서 다시 작성해 보시기 바랍니다.
좋은 하루 되세요.
"