코드 작성할때
cells(입력행,2) = cmb부서.value 를 cells(입력행,2) = cells(참조행,8) 이렇게 입력하면 틀리나요?
아니면
참조행 = cmb부서.listindex +4
입력행 = [a3].row + [a3].currentregion.rows.count
cells(입력행,1) = 사원번호
cells(입력행,2) = cmb부서.list(참조행,0)
cells(입력행,3) = 판매수량
cells(입력행,4) = cmb부서.list(참조행,1)
이런식으로 입력하면 틀리나요?
안녕하세요.
VALUE를 붙이지 않아도 정상적으로 실행된다면 붙이지 않아도 됩니다. 폼에 입력된 데이터를 워크시트에 입력할 때 VALUE를 붙이면 숫자는 수치 데이터, 텍스트는 텍스트 형식, 날짜는 날짜 형식으로 입력되는데, 붙이지 않으면 모두 텍스트 형식으로 입력 되기때문에 데이터 형식을 맞춰주는 작업을 해야 합니다.
좋은 하루 되세요.
-
관리자2021-03-03 22:13:58
안녕하세요.
VALUE를 붙이지 않아도 정상적으로 실행된다면 붙이지 않아도 됩니다. 폼에 입력된 데이터를 워크시트에 입력할 때 VALUE를 붙이면 숫자는 수치 데이터, 텍스트는 텍스트 형식, 날짜는 날짜 형식으로 입력되는데, 붙이지 않으면 모두 텍스트 형식으로 입력 되기때문에 데이터 형식을 맞춰주는 작업을 해야 합니다.
좋은 하루 되세요.
-
관리자2021-03-04 21:12:45
지시사항에 맞게 지정하고 정확한 결과가 나오면 정답으로 인정 됩니다.
좋은 하루 되세요.
-
*2021-03-03 22:37:36
질문에 조금 오류가 있었던거 같아서 다시 질문드립니다.
실전모의고사 i형 정답이 아래처럼 나와있는데
참조행 = cmb부서.listindex +4
입력행 = [a3].row + [a3].currentregion.rows.count
cells(입력행,1) = txt사원번호.value
cells(입력행,2) = cmb부서.value
cells(입력행,3) = txt판매수량.value
cells(입력행,4) = cells(참조행,9)
cells(입력행,5) =cells(입력행,3)*cells(입력행,4)
if opt예.value = true the
cells(입력행,6) = "계약직"
else
cells(입력행,)= ""
end if
end sub
정답을 밑에와 같은 3가지형식으로 작성하면 틀리나요,,?
1번
참조행 = cmb부서.listindex +4
입력행 = [a3].row + [a3].currentregion.rows.count
cells(입력행,1) = txt사원번호.value
cells(입력행,2) = cmb부서.list(참조행,0)
cells(입력행,3) = txt판매수량.value
cells(입력행,4) = cmb부서.list(참조행,1)
cells(입력행,5) =cells(입력행,3)*cells(입력행,4)
if opt예.value = true the
cells(입력행,6) = "계약직"
else
cells(입력행,)= ""
end if
end sub
2번
참조행 = cmb부서.listindex +4
입력행 = [a3].row + [a3].currentregion.rows.count
cells(입력행,1) = txt사원번호.value
cells(입력행,2) = cmb부서.column(0)
cells(입력행,3) = txt판매수량.value
cells(입력행,4) = cmb부서.column(1)
cells(입력행,5) =cells(입력행,3)*cells(입력행,4)
if opt예.value = true the
cells(입력행,6) = "계약직"
else
cells(입력행,)= ""
end if
end sub
3번
참조행 = cmb부서.listindex +4
입력행 = [a3].row + [a3].currentregion.rows.count
cells(입력행,1) = txt사원번호.value
cells(입력행,2) = cells(참조행,8)
cells(입력행,3) = txt판매수량.value
cells(입력행,4) = cells(참조행,9)
cells(입력행,5) =cells(입력행,3)*cells(입력행,4)
if opt예.value = true the
cells(입력행,6) = "계약직"
else
cells(입력행,)= ""
end if
end sub