본문 바로가기
반응형

엑셀12

[엑셀] BMI 계산하기, 신장과 체중으로 내 비만도 알아보기 [엑셀] BMI 계산하기, 신장과 체중으로 내 비만도 알아보기 입니다. 1. BMI(Body Mass Index:BMI)란 체질량지수인 BMI(Body Mass Index)는 자신의 몸무게(kg)를 키의 제곱(미터, m)으로 나눈 값입니다. 체질량지수는 근육량, 유전적 원인, 다른 개인적 차이를 반영하지 못하는 단점이 있지만, 체질량을 측정할 때 사용하는 가장 많이 쓰는 방법 중 하나입니다. [공식] BMI = 몸무게(kg) / [ 키(미터, m) 제곱] [비만도 기준] 주의할 것은 키의 단위입니다. 일반적으로 센티미터(Cm)로 측정하죠. 하지만 계산식에는 단위가 미터(m) 이므로 환산해 주어야 합니다. 예를 들어보겠습니다. 이름: 홍길동 키: 175Cm 몸무게: 87Kg BMI : 87 / (1.75 .. 2024. 3. 16.
VBA 셀에 숫자 포맷 적용하기 지인 사무실에서 사용하는 엑셀 기반 시스템에 오류가 발생했다. 첫번째 오류는 유지율1 과 유지율2가 같은 값이 나오는 것이고 두번째 오류는 회수율1에 나오는 값에 백분율이 아닌 지수값으로 나오는 것이다. 첫번째 오류는 쉽게 해결했다. 유지율1 과 유지율2에 같은 값을 참조하고 있었다. 참조하는 칼럼을 변경했다. ("U" --> "V") 해결되었다. For i = 1 To n ... p = 1 + 52 arr(i, 4) = .Range("U" & p) '-- 유지율 1 arr(i, 5) = .Range("U" & p) '-- 유지율 2 ... Next i End With 두번째 오류는 쉽지 않았다. Template 시트에 있는 양식을 복사해서 새로운 시트에 옮기고 그 위에 값을 넣는 것이다. 이유는 모르지.. 2023. 2. 24.
엑셀 VBA. 사용 중인 파일의 경로 알기, path 기능 VBA에서 현재 파일의 위치를 찾아야 할 때 사용한다. Dim folder as String folder = ThisWorkbook.path MsgBox folder '// ------[결과] 파일에 temp폴더에 있다면---- ' C:\\temp .path 기능 - 파일이 저장 전이면 아무값도 반환하지 않는다. - 파일 주소 마지막에 "/"가 안 붙는다. - 온라인 드라이브는 "http://"로 시작한다. 참조문서 https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.path Workbook.Path property (Excel) Office VBA reference topic docs.microsoft.com 2022. 5. 22.
[엑셀] 숫자 앞에 필요한 만큼 0 붙이기 월은 1~12까지다. 일은 1~31까지다. 1~9까지 숫자 앞에 0을 붙이고 싶다. 1부터 일련번호를 부여한다. 자리수는 총 4자리를 하고 싶다. 나는 0001, 0002,.... 이렇게 붙여나가고 싶은 것이다. 코드를 만들때 앞에 접두어를 붙인다. 이슈번호는 IS-0001, IS-0002,..IS-0012,... 사원번호는 E-0001, E-0002,...E-0012.... 이렇게 LEN 과 REPT함수를 사용하면 된다. LEN("C3")은 C3 셀의 길이를 출력한다. REPT(문자, 횟수)는 문자를 횟수만큼 반복한다. REPT("0",4)하면 "0000"을 출력한다. REPT앞에 원하는 접두어를 붙이고, 맨 뒤에 숫자를 연결하면 원하는 결과를 얻는다. 이제 적용해 보자. 이슈번호 --> ="IS-"&.. 2022. 4. 29.
엑셀 VBA(매크로) 시트 추가, 삭제, 이름변경, 복사 하 VBA로 엑셀 시트를 조정해 보았다. 1. 시트 추가 - 추가할 Sheet를 "main' 시트 WorkSheets.Add Before := WorkSheets("main") ' 앞에 추가하려고 할 때 WorkSheets.Add After:= WorkSheets("main") ' 뒤에 추가하려고 할 때 WorkSheets.Add Count:=5 ' 5는 추가할 워크시트 수량 WorkSheets.Add ' 마지막에 워크시트 1개를 추가 2. 시트 삭제 - Sheet "main' 을 삭제 WorkSheets("main").Delete 3. 시트 이름변경 - 시트 'main'의 이름을 'First'로 바꾼다. Sheets("main").Name = "First" 4. 시트 복사 Copy WorkSheets("m.. 2022. 4. 6.
엑셀. 조건부서식-토,일요일 컬럼 색깔바꾸기 엑셀 조건부 서식으로 엑셀일정표에 색깔을 주고자 한다. 토요일, 일요일에 대해서 색깔을 주려한다. 표는 아래와 같다. 일자별 요일을 표시하고 주차와 월을 표시해 두었다. 1. 요일은 한글이 나오도록 했다. 이것은 셀서식으로 해결했다. 범주에서 "사용자 지정"을 선택한다. 형식에 "aaa"를 넣어준다. 그러면 요일 첫 글자가 나온다. 참조로 - "aaaa"하면 "월요일" - "ddd" 하면 "Mon" 즉 영어로 나온다 - "dddd"하면 "Monday"로 나온다 2. 토요일, 일요일은 회색으로 표시했다. 1) 색깔을 적용할 범위를 선정한다. 2) 홈> 조건부서식 >새규칙 으로 가서 "수식을 사용하여 서식을 지정할 셀 결정"을 선택한다. 하단 서식지정에 공식을 지정한다. 기본적으로 IF의 true 항목을 만.. 2022. 4. 6.
[엑셀] 서울시 CCTV 현황 데이터 분석-데이터 전처리 서울시 CCTV 현황 엑셀 파일을 분석하기 위해서 분석항목을 위한 전처리가 선행되어야 한다. 전처리를 선행하는 이유는, 업무 또는 역할의 분리가 크다. 분석 작업을 하다가 필요한 항목이 생기거나, 데이터 정제가 필요한 경우 분석작업을 멈추고 전처리를 재 수행해야 한다. 이런 과정의 반복이 데이터 분석의 과정이지만, 이런 수고를 줄이는 것은 필요한다. 이를 위해서, 분석항목을 정한 이후 필요한 데이터를 정하고, 수집된 데이터에서 없으면 추가로 발굴하거나 생성하고, 기존 데이터에서 로직으로 구성이 가능하면 로직을 반영하여 새로운 칼럼을 만들어 두어야 한다. 서울시 CCTV 현황 데이터 분석에는 아래 4가지 전처리가 필요했다. 엑셀 기반으로 각 항목별 전처리를 진행하였다. 전처리 항목 1) 관리기관명에서 "구.. 2022. 3. 13.
[엑셀] 서울시 CCTV 현황 데이터 분석-개요 엑셀 기능을 활용하여 CCTV 데이터를 분석한다. 행안부에서 운영하는 "한국지역정보개발원"은 "지방행정 인허가 데이터개방"역 사이트인 LOCALDATA(https://www.localdata.go.kr)를 운영한다. 여기서 "생활편의정보 > 생활밀착데이터 > CCTV정보" 위치에서 제공되는 CCTV 정보에서 서울시 데이터만은 수집하여 분석하고자 한다. - 데이터 수집 URL: https://www.localdata.go.kr/lif/lifeCtacDataView.do?opnEtcSvcId=12_04_08_E LOCALDATA - 지방행정인허가데이터개방:생활밀착데이터 13 생활방범 서울특별시 강서구 우장산동 1059-33 - 서울특별시 강서구청 2022-02-11 www.localdata.go.kr - 데.. 2022. 3. 10.
엑셀 VBA: 시트보호 해제, 설정, 모래시계 적용 엑셀 매크로를 이용하여 업무용 프로그램을 개발 중이다. 만드는 로직은 쉽다. 어려운 것은 어떤 코드를 써야 하는지 찾는 것이다. 필요로 하는 코드를 말로하면 바로 문장을 만들어 준다면 좋겠다. 로직은 암기이기도 하지만, 창의적인 발생이 바탕이된다. 구구단의 로직은 많이 알려졌다. 그대로 하면 된다. 더 좋은 방법도 있겠지만, 결과를 만드는 입장에서 크게 차이가 없을 것이다. 마찬가지로 두 수의 합과 차 그리고 최소, 최대, 평균 등의 함수도 이미 만들어져 있다. 그냥 가져다 사용하면 된다. 하지만 그 코드와 사용법은 익숙해 지지 않으면 찾아야 한다. 이번 엑셀 기반 시스템개발을 하면서 진작알았으면 좋았을 것을 하는 내용을 기록해 둔다. 잊지 않으려고 하는 것도 있지만, 쉽게 찾기 위해서다. 데이터분석에서.. 2021. 10. 23.
엑셀 VBA. 조건부 서식 VBA에서 일정 조건에 해당하면 조건부 서식을 재실행시키는 코드 조건부서식 정의 그리드에서 선 선택시 조건부 서식에 정의된 서식이 적용됩니다. sheet에는 " If Target.FormatConditions.Count > 0 Then Me.Calculate" 문장 적용 Private Sub Worksheet_SelectionChange(ByVal Target As Range) --> 선택 변경 이벤트일 경우 적용 Dim p As Integer Dim grid_cnt As Integer p = ActiveCell.Row '--- 셀이 있는 위치 ==> 셀 위치를 저장 grid_cnt = Worksheets(select_sheet).Cells(11, 3) '--- 그리드 데이터 건수 확인 ==>Cell 1.. 2021. 10. 13.
반응형

티스토리툴바