자격증/컴활1급

[컴활1급실기]기타작업3 문제풀이

new_dev 2021. 7. 9. 10:38
반응형

<예약하기> 버튼(cmd요약) 클릭하면 예약하기 폼이 화면에 나오도록하고

폼기 초기화되면 날짜(cmb날짜)에는 오늘부터 5일전까지의 날짜가 목록을오 나오도록 프로시저를 작성하시오.

 

예약하기폼의 <예약> 버튼(cmd예약)클릭하면 폼에 입력된 날짜(cmb날짜), 도착(cmb도착) 등급(cmb등급), 매수(txt매수) 배송비(chk배송비) 데이터가 [표1]에 입력되어 있는 마지막 행 다음에 연속하여 추가되도록 프로시저를 작성하시오.

ListIndex 속성 이용

 

 

반응형

 

 

 

Private Sub UserForm_Initialize()

  cmb도착지.RowSource = "I6:I14"
  cmb등급.AddItem "일반"
  cmb등급.AddItem "우등"
  cmb등급.AddItem "심야"
  
cmb날짜.AddItem Date
cmb날짜.AddItem Date - 1
cmb날짜.AddItem Date - 2
cmb날짜.AddItem Date - 3
cmb날짜.AddItem Date - 4
cmb날짜.AddItem Date - 5
  
End Sub

 

=======================================================================

 

 

Private Sub cmd예약_Click()

입력행 = Range("b5").CurrentRegion.Rows.Count + 4

Cells(입력행, 2) = cmb날짜
Cells(입력행, 3) = cmb도착지
Cells(입력행, 4) = cmb등급
Cells(입력행, 5) = txt매수
Cells(입력행, 6) = Cells(cmb도착지.ListIndex + 6, cmb등급.ListIndex + 10) * Val(txt매수)

If chk배송비 = True Then
    Cells(입력행, 7) = "배송비 포함"
End If

End Sub

 

 

=======================================================================

Msgbox "나올 메시지", 단추옵션, "제목"

 

Private Sub cmd취소_Click()
Unload Me
MsgBox "수고하셨습니다", vbOKOnly

End Sub

반응형