컴퓨터를 만나는 기쁨

vworld 지도 만들기(9) - 좌표에 대한 주소 검색하기(2)에서 만든 프로그램을 실행하고 확인해 보니좌표에 대한 주소는 바뀌는데 좌표 표시는 지도의 중심( vmap.getView().getCenter() ) 을 기준으로 하고 있어서// 좌표 변환 content = "좌표: " + ol.coordinate.toStringHDMS(ol.proj.transform(vmap.getView().getCenter(),"EPSG:3857","EPSG:4326")) + ""; 지도의 중심이 바뀌지 않으면, 다시 말해 표시되는 지도가 동일하면 클릭한 지점이 달라져도 좌표가 동일하게 표시되는 문제가 발견되어 이를 해결하고자 합니다. 1. 해법 1 : 지도의 중심점 이동let coordinate = evt.coord..

(3) 떨어진 셀부터 일정 영역 지정하기엑셀에서는 Offset 함수에 height와 width를 지정할 수 있는 인수가 있지만,VBA에는 없으므로 Resize 속성(Property)을 이용해야 합니다. (가) 구문expression.Resize (RowSize, ColumnSize)입니다.여기서 expression에는 범위(셀)가 올 수 있으며RowSize와 ColumnSize로 높이와 너비를 지정하는 것입니다. Offset 함수와 구별해야 할 것은 RowOffset이나 ColumnOffset의 경우는 떨어진 거리이므로 0부터 시작하는데,RowSize와 ColumnSize는 크기이므로 1부터 시작한다는 것입니다. (나) 일정 영역 지정하기 아래와 같이 코드를 작성하고 실행하면Sub resize1() ..

나. VBA의 Offset 함수   (1) 떨어진 셀 지정 VBA를 실행하기 위해서는먼저 개발도구 탭이 활성화되어 있어야 합니다. ※ 파일 - 옵션을 누른 후 Excel 옵션 창의 리본 사용자 지정에서 오른쪽 아래의 개발 도구 탭 왼쪽에 체크 (가) 코드 작성떨어진 셀을 지정하기 위해서는① 개발도구 - Visual Basic을 눌러 Visual Basic Editor를 연 다음삽입 메뉴에서 모듈을 눌러 모듈을 추가하고, ② 오른쪽 에디터 창에  sub offset1이라고 입력하고 엔터키를 누릅니다.그러면 아래와 같이 괄호가 추가되고, 한 줄 다음에 End Sub로 마무리됩니다. ③ 이제 코드를 작성하고,Sub offset1() Range("a1") = Range("c9").Offset(3, 1)En..

1편을 여기서 확인하세요. 나. '홈 셀'(1) 홈 셀의 의미홈 셀을 병합된 셀 기준으로 보면 A1셀, 다시 말해 1행 1열이 됩니다. 따라서, Range("A1")이라고 해도 되고, Cells(1,1)이라고 해도 됩니다. (2) 함수 만들기 반복된 동작은 Sub 프로시저로 처리하는데,처리한 후 값을 반환받는 함수를 만들려면 Function 프로시저를 사용해야 합니다.  ① 위 파일을 연 다음개발 도구 - Visual Basic을 누릅니다. 그리고, 맨 아래에 Function이라고 쓰고, 함수명을 입력하는데,GetHomeCell이라고 하겠습니다.그리고 셀 주소를 인수로 받아야 하므로 인수명을 rng로 하고 형식을 Range로 지정합니다.그러면 아래와 같이 됩니다.Function GetHomeCell(rn..

이번에는 구역을 기준으로 도면 번호를 찾는 것이 아니라 실제 좌표를 기준으로 도면 찾는 것을 해보겠습니다. 아래와 같이 도면별 East Longitude(동경)와 North Latitude(북위) 좌표가 있을 때 북위 G3좌표와 동경 G6좌표에 해당하는 도면을 찾아보겠습니다. 도면이 겹칠 수도 있기 때문에 3개까지 찾아보겠습니다. 1. Aggregate 함수 순번대로 찾을 때 사용하는 함수가 Aggregate 함수입니다. Aggregate 함수의 구문은 배열형의 경우 아래와 같습니다. AGGREGATE(function_num, options, array, [k]) 가. 첫 번째와 네 번째 인수 함수(function)에 해당하는 번호(num)로 배열형인 경우 14번부터 시작하는데, 14가 Large함수, ..

1. 기능 참조 영역의 주소, 데이터 형식, 파일 등의 속성을 반환하는 함수로 단일 셀 또는 범위에 따라 반환하는 값이 다른 경우가 있습니다. 2. 구문 CELL(info_type, [reference]) 가. info_type(정보 유형) 정보 유형 반환 값 "address" 참조 영역에 있는 첫째 셀(A1)의 참조를 텍스트로 반환합니다. "col" 참조 영역에 있는 셀의 열 번호를 반환합니다. "type" 셀의 데이터 형식에 해당하는 텍스트 값입니다. 셀이 비어 있는 경우 비어 있는 경우 "b"를 반환하고, 셀에 텍스트 상수가 포함된 경우 레이블의 경우 "l", 셀에 다른 것이 포함된 경우 값에 대해 "v"를 반환합니다. "contents" 참조 영역에 있는 왼쪽 위 셀(범위인 경우 A1셀, 단일 셀..

1편에서는 표로 만들었는데, 입력하지 않은 주변 셀까지 수식이 자동으로 입력되어 범위로 변경하였습니다. 이전 편에서는 과목별 합계 등을 구해봤는데, 이번에는 성명을 기준으로 한 합계 등을 구해보겠습니다. 다른 점은 과목별 합계를 구할 때는 Sum 등이 아래에 있어서 4개를 뺄 수 있었는데, 성명별 합계를 구할 때는 처음에는 없다가 VBA를 실행하면 추가되기 때문에 두 가지 요소를 고려해서 매크로를 작성해야 한다는 것입니다. 또한 합계 등을 구할 때 행 별로 합계를 구해야 하고, 행을 내려가면서 합계 수식을 반복하는데 Sum이전의 end_row_of_calc(계산할 마지막 행) 까지만 실행해야 합니다. 1. 코드 작성 가. 계산할 마지막 열 구하기 Sum 등이 있을 경우와 없을 경우 end_col_of_c..

1. CurrentRegion의 주소 체계 A2셀을 기준으로 한 CurrentRegion은 전체 시트의 시각에서 보면 A2셀부터 E15셀까지이지만, CurrentRegion의 입장에서 보면 현재 영역의 왼쪽 위가 A1셀, 다시 말해 행이 1, 열이 1인 셀부터 행이 14, 열이 5인 E14셀까지로 새로운 주소 체계를 갖고 있습니다., 셀 주소는 A1 참조 스타일로 보면 위와 같이 A2, E15식으로 표시하지만, 파일 - 옵션 - 수식 탭에서 'R1C1 참조 스타일'의 왼쪽에 체크하고 확인 버튼을 누르면 열을 표시하는 기호가 알파벳이 아니라 숫자로 바뀌며, D14셀의 주소가 R10C4로 바뀝니다. R10C4란 10행 4열이란 의미로서 A1 참조 스타일의 경우와 달리 행이 먼저 표기됩니다. 2. Curren..

1. CurrentRegion의 주소 확인하기 CurrentRegion(현재 영역)의 설정 범위를 알아보기 위해 VB Editor를 실행한 후 코드를 작성해 보겠습니다. 가. 코드 작성 모듈을 삽입한 다음 아래와 같이 코드를 작성합니다. Sub cur_range_addr() Dim cur_range As Range Set cur_range = Range("a2").CurrentRegion MsgBox cur_range.Address End Sub 나. 코드 설명 Dim cur_range As Range : 현재 영역을 저장하기 위한 변수 cur_range를 Range(범위) 형식으로 선언합니다. Set cur_range = Range("a2").CurrentRegion : - 일반적인 변수는 cur_ra..

3. 여러 셀 지정하기 가. Range 이용하기 SUM 함수를 이용할 때처럼 Range 안에 셀 주소를 입력하여 범위를 지정할 수 있습니다. 연속된 범위는 :(콜론)을 사용하고 떨어진 범위는 ,(콤마)를 사용합니다. (1) 연속된 범위 지정 개발도구 - Visual Basic 명령을 눌러 Visual Basic Editor를 실행한 다음 모듈을 삽입하고, 오른쪽 코드 창에 아래 코드를 입력합니다. Sub 연속범위지정() Range("a1:a3").Select End Sub 그리고, 삼각형 모양의 아이콘을 누르거나, F5키를 눌러 실행하고, 엑셀 모양 아이콘을 눌러 엑셀로 돌아가 A1셀에서 A3셀까지 선택됩니다. 값을 입력하려면 지정된 범위 = 값 이라고 입력하면 됩니다. Sub 연속범위지정() Range..