엑셀 VBA

소개글

엑셀 VBA에 대한 보고서 자료입니다.

목차

연습문제 1장
연습문제 2장
연습문제 3장
연습문제 4장

본문내용

ge(“A1”).Value=Colums.Count
(엑셀의 전체 워크시트 중 열의 개수를 A1 셀에 입력하라는 코드이다.)
-> Range(“A2”).Value=Rows.Count
(엑셀의 전체 워크시트 중 행의 개수를 A2 셀에 입력하라는 코드이다.)
-> Range(“A3”).Value=Range(“B2:D5”).Colums.Count
(B2부터 D5까지의 열의 개수를 A3 셀에 입력하라는 코드이다. : 열의 개수 3개)
-> Range(“A4”).Value=Range(“B2:D5”).Rows.Count
(B2부터 D5까지의 행의 개수를 A4 셀에 입력하라는 코드이다. : 행의 개수 4개)
3-17 : 두 개의 Range 개체를 합한 새로운 Range 개체
-> Union(Range(“B2:C5”),Range(“E3:F6”)).Value = “엑셀VBA”
(지정된 B2:C5 범위와 E3:F6 범위에 “엑셀VBA라는 단어를 입력한다.”)
3-18 : 입력상자를 표시하고 문자열을 입력받아 변수에 대입
-> x= InputBox(“자료...?”,“자료입력”,“123”)
(입력상자가 출력되고 제목표시줄에는 “자료입력”, 메시지는 “자료...?”, 입력란에는 “123”이 입력된다.)
3-19 : 다음 문장에 의해 표시된 메시지 상자는 <그림 3-21>와 같다.
-> n= MsgBox “매크로를 실행합니까?”, vbYesno + vbQuestion + vbDefaultButton2, “안양대학교”
(메시지 상자가 생성되며 제목표시줄은 “안양대학교”, “예”와 “아니오” 2가지 버튼생성,
“질문마크 (?)”, 메시지는 “매크로를 실행 합니까?” 라는 메시지 상자가 나타난다.)
6. 다음 조건을 만족하는 프로시저를 매크로기록기로 작성 후 수정이 가능한 부분은 최대한 간단하게 수정해라.
1) 액티브 셀의 아래에 10개의 수 10, 20, ..., 100을 수록하라.
2) 1)의 영역에서 오른쪽으로 2칸 이동한 셀에는 밑이 10인 log 값을 수록하라.
3) 2)의 영역에서 오른쪽으로 2칸 이동한 셀에는 1)에서 작성한 수에서 2개를 택하는 조합의 수를 수록하라.
7. [보기3-11]을 참고하여 “1장예.xls”에 포함된 자료에서 아래 그림과 같이 12행에는 각 과목의 중앙값을, E열과 F열에는 각 학생의 평균과 표준편차를 각각 계산하는 매크로를 작성하라.
평균과 표준편차는 소수 2자리까지, 중앙값은 소수 1자리까지만 출력되게 하라.
8. [예3-2]를 참고하여 다음 그림과 같이 표준정규분포의 상위확률을 Inputbox로 입력받아
MsgBox에 상위백분위수를 출력하는 프로시저를 작성하라.
연습문제 4장
1. 다음 그림과 같이 10개의 행과 10개의 열중에서 대각선에 해당하는 1행 1열, 2행 2열, ... 10행 10열의 셀에 대해서만 셀의 내부를 파란색으로 바꾸는 프로시저를 작성하라.
2. ‘Do While ... Loop’와 ‘Do ... Loop While’의 차이점을 설명하라.
Do While Loop 문은 조건이 만족되지 않는 순간 Do 루프를 종료한다.(만족되지 않으면 한번도 실행하지 않는다.)
Do Loop While 문은 실행 한 후에 조건이 만족되지 않으면 루프를 종료한다.(적어도 한번은 실행)
3. ‘Do While ... Loop\'와 ’Do Until ... Loop\'의 차이점을 설명하라.
Do While Loop 문은 조건이 True이면 반복하다가 False가 되면 멈추는 문이다.
Do Until Loop 문은 조건이 False 이면 반복하다가 조건이 True가 되면 멈춘다.
4. [예4-9]와 다음 프로그램을 참고하여 99까지의 자연수 n에 대해 피타고라스의 수의 값이 존재하는 경우에 다음 그림과 같이 A, B, C열에 각각 x, y, n의 값을 기록하였다.
1) 이 프로그램의 각 라인을 상세하게 설명하라
2) 프로그램의 For-Loop를 Do-Loop로 바꾸어 프로그램 해보라.
5. 아래 왼편 그림과 같이 InputBox를 통해서 n의 값을 입력받은 후 1부터 n가지의 합을 계산하여
오른편 그림과 같이 MsgBox에 출력하는 프로그램을 작성하라.
6. 다음 프로그램을 실행해보고 값을 요구하는 InputBox에 각각 5,15,25를 입력하였을 때의 결과를 구하라.
5를 입력한 경우 15를 입력한 경우 25를 입력한 경우
7. 다음 그림과 같이 10개의 행과 10개의 열중에서 대각선에 해당하는 1행 1열, 2행 2열, ..., 10행 10열의 셀에는 1을 나머지 셀에는 0을 입력하는 프로시저를 작성하라. 이 개념은 단위행렬을 만드는 과정이다.
8. 다음 그림과 같이 A1:C10 영역에 0과 1사이의 일양난수 30개를 출력하고, 출력된 난수들의 평균과 분산을 계산해 출력하는 프로시저를 작성하라.
9. 다음프로그램에 대해 물음에 답하라.
1) 프로그램이 정상적으로 실행되는가? 정상적으로 실행되지 않는다.
어떤 현상이 나타나는가? 값이 나오지 않는다.
2) 만약 오류가 있다면 어디에서 발생하는가? 엑셀 창에서 수식에 인식 할 수 없는 텍스트가 있다고 뜬다.
그리고 그 이유는 무엇인가? chilnv함수는 VBA에서 인식되지 않는 함수이다.
3) 위 프로그램 중 [cells(i,2).Formula = \"=Chilnv(p,i)\"]부분을 다음과 같이 고쳐서 실행해보고 결과를 비교하라.
『cells(i,2).Value = Application.worksheetFunction.Chilnv(p,i)』
<수정 전> <수정 후>
4) 위 프로그램의 일부를 수정하여 다음 그림과 같이 자주 사용되는 상위확률에 대한 카이제곱 분포표를 완성하라. (상위확률 0.005, 0.01, 0.025, 0.05, 0.1에 대응되는 상위분위수와 이에 대칭되는 하위분위수를 계산하기 위해 상위확률로, 0.9, 0.95, 0.975, 0.99, 0.995를 사용하였다. 이는 카이제곱분포가 대칭이 아니기 때문이다. 그리고 출력된 분위 수들은 모두 소수이하 4자리까지 출력하였다.)
10. 위의 9번 문제의 4)와 같은 요령으로 t-분포의 상위분위수를 자유도(1~30)에 따라 출력하는 프로시저를 작성하라.

키워드

엑셀 ,   VBA,   엑셀 VBA