시나공

시험에

나오는 것만

공부한다!

제가하라는대로 프로시저 파일을 입력해서 실행했을 때 다른거는 다 잘 작동하는데

date부분이 제대로 넣었는데도 등록을 누르면 그날의 날짜가 시트에 표기가 되는게 아니라 12:00:00시간으로 계속 표시되고 서식을 날짜로 바꿔도 1900-01-01이 나오는데요

왜그런문제가 생기는걸까요 제가 어느부분을 잘못한 걸까요?

그리고 제가  내용수정을 하면 바탕체로 바뀌게 해놓고 한번 바꿔서 실제 바뀌나 확인해본뒤에 새로 폼을 이용해등록을 하면 같이 바탕체로 바뀌는데 이건 당연한건가요?

내용수정을 했을때만 바뀌어야하는게 아닌가요?

아래는 제가 따라 입력해본 내용입니다. 

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(판매일자)

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단가 = 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