프로시저의 첫번째 단계
1) 콤보 상자에 목록값을 입력하는방법
즉, 클릭했을때 뜨는 칸에 무엇이 뜰지 보여줌
(1) 첫번째 방법
개체명.Additem “국어”
개체명.Additem “영어”
이렇게 수작업으로 입력하는 방법과
개체명.Rowsource = “A1:A5”
엑셀표에 구간이 주어졌다면, 구간을 입력하는 방법이 있다.
2) 입력행의 위치를 구하는 식
이게 왜 필요하냐면!
예를 들어서 폼에 입력된 데이터들이 시트의 표 안에 추가되게 하는 방법이다.
그러기 위해 식이 입력될때의
입력행의 위치를 구해줘야하는데
입력행 = range(“표의 첫셀”).currentregion.rows.count + @
(표의 첫셀 기준으로 현재 연결된 자료들의 행수 + @)
예를들어
라면
입력행 = range(“b4”).currentregion.rows.count + 4
그렇다면, B4를 기준으로 B6에 입력되어야하니,
b4에서는 2개가 연결되어있다 고로,
2 + X = 6, X =4
입력행을 구했다면, 다음으로 어떤 값이 입력될지 나와야한다.
Cells(입력행, 2) = text학생이름
이렇게 쭉쭉 나아가기
옵션 버튼(두개중 한개 클릭버튼) 일때의 수식
if ob남 = true then
cells(입력행,5) = "남"
else
cells(입력행,6) = "여"
end if
만약 이렇게 참조행이 따로 주어져서 아래처럼 만들어야한다면
참조행 = list담당자.listdex
cells(입력행,6) = list담당자.List(참조행,0)
cells(입력행,7) = list담당자.List(참조행,1)
cells(입력행,8) = list담당자.List(참조행,2)
cells(입력행,9) = list담당자.List(참조행,3)
참조행의 목록상자 값은 1행이 0으로 시작된다
3) 프로시저 종료할때 여러가지 수식
Unload Me 가 기본적
Unload Me 는 종료할수 있게 만드는것
만약에 종료하고 B17셀에 문자를 띄우게 하고 싶다면
Range(“b17”) = “수고하셨습니다.” 입력!