전체 글15 [응용] 국어,영어 두과목 성적이 80점이상인 학생을 찾아 셀에 색상 칠하기 [ 예제 ] 찾기버턴을 눌렀을때 국어, 영어, 수학 성적이 모두 80점이상인 학생을 찾아 셀에 색상을 칠하는 예제이다. [ 소스 ] Sub 성적확인() '행카운터 증가를 위한 카운터 변수 정의 Dim i As Long 'For Next 구문을 이용하여 행을 증가시키면서 대상값을 찾는다. '위의 예제에서는 성적값이 2행부터 13행까지 있으므로 2에서 13까지 카운터 i 값을 증가시켜준다. For i = 2 To 13 'Cells 함수를 이용하여 국어, 영어성적이 두과목 성적이 모두 80점이상인지 확인한다. '국어는 Cells(2,"B")->Cells(3,"B")->...Cells(13,"B")까지 루프를 돌면서 체크하게 된다. '영어는 Cells(2,"B")->Cells(3,"B")->...Cells(13.. 2021. 5. 26. [기초] 셀(Cell)선택 및 값 입력하기 (Cells, Range함수) 셀을 선택하는 함수는 '단일셀을 지정하는 Cells함수와 범위를 지정할 수 있는 Range함수가 있습니다. [ 예제 ] Sheet1, Sheet2에 Cells, Range 함수를 사용하여 값을 입력하는 간단한 예제이며, 함수뒤에 선택 할 셀(행,열)좌표만 정확하게 입력해주면 됩니다. [ 실행코드 ] Sub Sheet1_단추1_Click() '============================================ 'Cells 명령어 활용 '============================================ '현재 Sheet Cell(1,1) 선택 ActiveSheet.Cells(1, 1).Select 'Cell(1,1)위치에 "1"을 표시 Cells(1, 1) = "1" '현재 She.. 2021. 5. 26. [기초] 조건문 (if, Select Case 구문) if나 slect case 문은 주어진 조건에 해당하는 구문을 실행시키는 조건문입니다. if 문 기본문법형식은 다음과 같습니다. If 조건식 Then "조건이 True일 경우 실행 할 구문" Else "조건이 False일 경우 실행 할 구문" End If [ 예제1 ] A1 셀에 입력된 값을 읽어 85보다 크거나 같으면 메세지를 띄우는 간단한 예제입니다. Sub if_Click() If [A1] >= 85 Then MsgBox "성적은 우 입니다." End Sub [ 예제2 ] 성적값을 입력받아 성적등급을 판정하여 팝업으로 띄워주는 간단한 예제입니다. 실행 결과는 85점울 입력하였으므로 해당조건에 맞는 "우"를 팝업으로 띄우게 됩니다. Sub 성적확인() ' 점수를 입력받을 정수형식의 변수정의 Dim P.. 2021. 5. 22. [기초] 개발 환경 설정하기 『 VBA를 실행하여 기본옵션을 설정합시다.! 』 VBA 개발을 편리하게 해주는 여러옵션들이 존재합니다. 우리는 그중 중요한 한가지 옵션을 체크해주도록 하겠습니다. [개발도구] -> [Visual Basic] -> [도구]->[옵션] 메뉴에서 변수 선언 요구(R) 항목을 선택하여 체크해 줍시다. 변수선언요구 『 Option Explicit 』란? 변수선언요구 옵션이 체크된 상태에서 새로운 모듈을 생성시키면 코딩창 최상단에 Option Explicit 란 코드가 자동으로 표시됩니다. Option Explicit 문을 정의하면 사용되는 모든 변수는 Dim a As Integer와 같이 사전 정의 후 사용해야 하는데 이를 명시적 선언이라고 하며 선언하지 않은 변수이름을 사용하게 되면 VBA컴파일러가 오류를 발.. 2021. 5. 22. 이전 1 2 3 4 다음
