책 내용 질문하기
실전 모의고사 A형 엑셀
도서
2022 시나공 컴퓨터활용능력 1급 실기(엑셀, 엑세스 2016)
페이지
0
조회수
43
작성일
2022-11-10
작성자
이*림
첨부파일

안녕하세요

기타작업 문제에서 chk납입 프로시저와 cmb입력 프로시저가 실행되지않는다고 떠서 문의 남깁니다 

답변
2022-11-14 11:53:05

Private Sub chk납입_Click()

  If chk납입.Value = True Then

     cmb납입.Caption = "납기내"

  Else

     cmb납입.Caption = "납기후"

  End If

  

 

End Sub

 

cmb 로 작성하셨는데 cmd 로 작성하셔야 합니다. 

 

커맨드박스의 캡션에 입력해야 하는 부분입니다. 

 

 

Private Sub cmd입력_Click()

    입력행 = [a5].Row + [a5].CurrentRegion.Rows.Count

    Cells(입력행, 1) = lst목록.Column(0)

    Cells(입력행, 2) = lst목록.Column(1)

    Cells(입력행, 3) = txt수도세.Value

    Cells(입력행, 4) = txt전기세.Value

    Cells(입력행, 5) = cmb납입.Caption

    

 

End Sub

 

이 부분도 변경해 주세요. 

 

 

좋은 하루 되세요. 

  • 관리자
    2022-11-14 11:53:05

    Private Sub chk납입_Click()

      If chk납입.Value = True Then

         cmb납입.Caption = "납기내"

      Else

         cmb납입.Caption = "납기후"

      End If

      

     

    End Sub

     

    cmb 로 작성하셨는데 cmd 로 작성하셔야 합니다. 

     

    커맨드박스의 캡션에 입력해야 하는 부분입니다. 

     

     

    Private Sub cmd입력_Click()

        입력행 = [a5].Row + [a5].CurrentRegion.Rows.Count

        Cells(입력행, 1) = lst목록.Column(0)

        Cells(입력행, 2) = lst목록.Column(1)

        Cells(입력행, 3) = txt수도세.Value

        Cells(입력행, 4) = txt전기세.Value

        Cells(입력행, 5) = cmb납입.Caption

        

     

    End Sub

     

    이 부분도 변경해 주세요. 

     

     

    좋은 하루 되세요. 

· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.