스마트하게 일하기

엑셀 함수 몫과 나머지 구하기

보따리의새세상 — Wed, 15 Jan 2020 00:35:41 +0900

"엑셀 나누기 함수 나머지값 구하기"

오늘은 아주 간단한 나눗셈에 대해

포스팅 해보겠습니다.

A를 B로 나누고 난 후

몫을 제외한 나머지값을 구하는 방법입니다.

예를들어

53을 8로 나누면 답은 6.63 입니다.

엑셀 수식으로 표현하면,

이렇게 계산하면 소수점 자리수까지 계산이되어집니다.

그런데,

때때로 몫과 나머지를 구해야 할 경우가 있습니다.

53을 8로 나누면,

몫은 6이고 나머지는 5 입니다.

여기에서 몫은 ROUNDDOWN 함수로,

나머지는 MOD 함수로 구할 수 있습니다.

자주는 아니지만,

가끔은 꼭 필요한 몫과 나머지 구하기

포스팅 마칩니다.~

엑셀 매크로 쉽게 만들기 03편 - 문서 끝라인 찾기

보따리의새세상 — Fri, 10 Jan 2020 00:19:26 +0900

"문서의 끝라인 수 찾기"

매크로 중

For 구문 사용 시 반복횟수를 지정하는것이 아닌

특정 Sheet의 열의 개수만큼만 반복해야할 때가 있습니다.

[02편 - For 구문 사용]

https://howitworks.tistory.com/33

2편에서 생성한 매크로를 불러오면,

--------------------------------------------------------------

Sub 시트추가하기()

Dim i as integer

= i 라는 정수 변수를 선언

For i = 1 To 100 Step 1

= i 를 1부터 100까지 1단위로 증가하여 반복

Sheets.Add After:=Sheets(Sheets.Count)

= 신규 Sheet를 추가하기

ActiveSheet.Name = "시트" & i

= 신규 Sheet의 이름을 "시트i"로 변경

i는 1부터 100이므로 "시트1" ~ "시트100"으로 생성됨

Next i

= For 구문을 닫음

MsgBox "끝났습니다."

End Sub

--------------------------------------------------------------

위 매크로는

i라는 정수를 선언하고,

For 구문으로 i를 1부터 100까지 증가시키고

Sheet명을 1부터 100까지 이어붙여서

Sheet명을 변경합니다.

좀 더 조건을 추가하여

아래와 같은 목록이 있고

새로운 Sheet를 생성하여

Sheet명을 국가명으로 하고자 한다면,

For 구문을 사용하여

2번 행에서 19번 행까지

18회만 반복하면 됩니다.

또 Sheet의 명을 국가명으로 지정하면 됩니다.

--------------------------------------------------------------

Sub 시트추가하기()

Dim i, EndLine As Integer

= i, EndLine 이라는 정수 변수를 선언

Dim ShtNm, ActiveShtNm As String

= ShtNm 이라는 시트명 문자 변수를 선언

EndLine = ActiveSheet.Range("a1").CurrentRegion.Rows.Count

= 해당 문서의 끝라인 찾기

ActiveShtNm = ActiveSheet.Name

= 목록시트명을 지정

For i = 2 To EndLine Step 1

= i 를 2부터 EndLine까지 1단위로 증가하여 반복

Worksheets(ActiveShtNm).Select

= 목록시트로 이동

ShtNm = Cells(i, 1).Value

= 실행라인의 국가명 셀값을 ShtNm으로 지정

Sheets.Add After:=Sheets(Sheets.Count)

= 신규 Sheet를 추가하기

ActiveSheet.Name = ShtNm

= 신규 Sheet의 이름을 지정한 국가명으로 변경

Next i

= For 구문을 닫음

MsgBox "끝났습니다."

End Sub

--------------------------------------------------------------

위 매크로는

i라는 반복횟수 정수를 선언하고,

EndLine이라는 문서 맨 끝라인 정수를 선언합니다.

또, ShtNm이라는 시트명 문자 변수를 선언합니다.

Rows.Count로 맨 끝라인을 EndLine으로 지정하고,

For 구문으로 i를 2부터 EndLine 까지 반복시켜

국가목록을 순서대로 ShtNm에 지정하고

하나씩 신규 Sheet를 생성 후 Sheet명을 국가명으로 변경합니다.

실행 후 결과화면 입니다.

이상

특정 횟수만큼만 반복되는 For 구문에

사용할 수 있는 끝라인 찾기

포스팅을 마칩니다.~

엑셀 매크로 쉽게 만들기 02편 - For구문 사용

보따리의새세상 — Thu, 9 Jan 2020 23:39:32 +0900

"엑셀 매크로 For 구문 사용"

매크로를 쉽게 자동생성하는 방법은

아래 1편을 참고하세요.

[01편 - 매크로 자동생성]

https://howitworks.tistory.com/32

오늘은 1편에 이어서

특정 매크로를 원하는 횟수만큼

반복하는 For 구문을 사용해보겠습니다.

우선 1편에서 생성한 매크로 중 일부를 불러오면,

--------------------------------------------------------------

Sub 시트추가하기()

Sheets.Add After:=Sheets(Sheets.Count)

= 신규 Sheet를 추가하기

ActiveSheet.Name = "시트1"

= 신규 Sheet의 이름을 "시트1"로 변경

End Sub

--------------------------------------------------------------

위 매크로는

엑셀 Sheet를 추가하고 이름을 "시트1"로 변경하는

간한단 매크로 입니다.

만약 시트1 부터 시트100까지 100개의 시트를

생성해야 한다고 가정하면,

위 구문을 100번 복사하고,

"시트1"을 "시트2", "시트3", ... "시트100" 으로

변경해주면 100개의 Sheet가 생성되고

이름이 변경됩니다.

그냥 Sheet를 손으로 만드는게 더 빠르겠죠?

단순 반복작업은 매크로를 사용해서

얼마든지 단순화 할 수 있습니다.

For구문을 활용하면,

간단히 몇 줄 추가하여

100개의 Sheet를 생성할 수 있습니다.

--------------------------------------------------------------

Sub 시트추가하기()

Dim i as integer

= i 라는 정수 변수를 선언

For i = 1 To 100 Step 1

= i 를 1부터 100까지 1단위로 증가하여 반복

Sheets.Add After:=Sheets(Sheets.Count)

= 신규 Sheet를 추가하기

ActiveSheet.Name = "시트" & i

= 신규 Sheet의 이름을 "시트i"로 변경

i는 1부터 100이므로 "시트1" ~ "시트100"으로 생성됨

Next i

= For 구문을 닫음

MsgBox "끝났습니다."

End Sub

--------------------------------------------------------------

위 매크로는

i라는 정수를 선언하고,

For 구문으로 i를 1부터 100까지 증가시키고

Sheet명을 1부터 100까지 이어붙여서

Sheet명을 변경합니다.

작업종료 시 Msgbox를 이용해서

"끝났습니다." 라는 메시지창을 띄워줍니다.

이상 간단한 For 구문 사용하기

포스팅을 마칩니다.~

엑셀 매크로 쉽게 만들기 01편 - 매크로 자동생성

보따리의새세상 — Thu, 9 Jan 2020 02:06:30 +0900

"엑셀 매크로(Macro) 기록기능 활용하기"

오늘은 엑셀 기능 중

매크로(Macro) 기능 활용에 대한 내용입니다.

매크로는 단순 반복작업이 필요할 때

유용합니다.

여러명의 작업자가 만든 개별파일들의 내용을

하나의 파일 또는 하나의 시트로 Merge(통합)할 경우나,

어떤 규칙에 의해 단순반복작업을 해야 할 경우

작업시간을 현저하게 단축시켜 줍니다.

단,

Visual Basic 프로그래밍 언어의 이해와

엑셀 매크로에서 제공하는 함수에 대한 이해가

있어야 합니다.

이를 손쉽게 따라할 수 있는 방법을

얘기해보고자 합니다.

바로 "매크로기록" 기능입니다.

엑셀 상단 리본메뉴에서

"보기 > 매크로 > 매크로기록"을 선택합니다.

매크로기록을 선택한 이후의

모든 작업은 기록되고,

매크로 실행 시

동일한 작업이 자동실행 됩니다.

예를들어 아래와 같이

국가별 기관명이 있는 파일이 있을 경우

각 국가별로 시트(Sheet)를 별도로 분리한다고 할 때

전체 List가 있는 시트(Sheet)에서,

1. 리스트박스 국가를 선택하고,

2. A~D 열을 복사하고,

3. 새로운 시트(Sheet)를 생성하고,

4. 복사한 내용을 붙여넣고,

5. 셀 너비를 조정하고,

6. 시트명을 '국가명'으로 바꾸는

일련의 작업이 필요합니다.

한번만 하면 되는

일회성 작업은 매크로의 의미가 없지만,

매일, 매주, 매월 등

반복적으로 작업을 해야하는 상황이라면,

매크로 기록을 통해

위 1~6의 작업을 실행 후,

매크로 중지를 하면,

아래와 같은 소스코드가 생성이 됩니다.

엑셀에서 "Alt + F11"를 누르면

위와 같은 Macro 창이 나타납니다.

각 라인을 해석하면,

--------------------------------------------------------------

Sub 매크로1()

ActiveSheet.Range("$A$1:$D$556").AutoFilter Field:=1, Criteria1:="브라질"

= 현재 엑셀 Sheet의 A1~D556 범위의 A필드값이 "브라질"인것을 필터링

Columns("A:D").Select

Selection.Copy

= 컬럼 A~D 를 선택하고, 복사

Sheets.Add After:=Sheets(Sheets.Count)

ActiveSheet.Paste

= 신규 Sheet를 생성하고, 생성한 시트에 붙여넣기

Columns("A:D").Select

Columns("A:D").EntireColumn.AutoFit

= 신규 Sheet의 A~D열의 너비 맞춤

ActiveSheet.Name = "브라질"

= 신규 Sheet의 이름을 "브라질"로 변경

End Sub

--------------------------------------------------------------

ActiveSheet 나 AutoFilter, Sheet.Add 등

엑셀 매크로만의 명령어를 통해

작업이 진행됩니다.

위 작업은 단순히 "브라질"만 한 것이지만,

Sub 매크로명()

End Sub 사이의

매크로 프로그램을 국가 수 만큼 복사하고,

국가명위치의 "브라질"을 "중국", "대만", "일본"등과 같이

변경해주면,

분리하고자 하는 국가만큼 Sheet가 생성이 되고

시트이름을 국가별로 생성해줍니다.

가령 200여개의 국가를 분리해야 할 경우,

수작업으로 하면

최소 20~30분은 소요될 작업이

매크로 작업으로 10초 안에 완료할 수 있습니다.

주의할 점은

파일 저장 시

이와같은 팝업이 뜨는데,

이 창에서 "아니오"를 선택해야 합니다.

("예"를 누르면 매크로가 삭제되고 일반문서로 저장됨)

엑셀 통합문서(*.xlsx)가 아닌,

엑셀 매크로 사용 통합 문서(*.xlsm)로

저장해야 합니다.

이상 엑셀 매크로 기록기능 사용하기

포스팅 마칩니다.~

엑셀 암기장(영어단어, 사자성어) 매크로프로그램

보따리의새세상 — Sun, 18 Aug 2019 00:10:44 +0900

"엑셀 암기장(매크로 버전)"

초딩 중딩 딸들을 위해 만든,

엑셀 매크로 기능을 이용한 암기장입니다.

(아래 링크)

https://bottari7.tistory.com/186

사자성어 암기를 해야한다기에...

급하게 만들어줬지만~

결국 영어 암기장까지 포함해서 업그레이드 했습니다.

영어 "숙어"를 하다보니...

4지선다를 해야겠기에 시험기능 추가~

단어로 뜻맞추기~

뜻보고 단어맞추기~

이상 끝~ ^^

자세한 설명은 아래 링크에서...

https://bottari7.tistory.com/186

엑셀 SUM 함수, SUMIF 함수, SUMIFS 함수

보따리의새세상 — Wed, 1 May 2019 00:32:18 +0900

엑셀에서

COUNT 만큼 많이 사용하는

SUM 함수 입니다.

SUM 함수는 SUM 자체로도

많이 사용하고,

SUMIF도 많이 사용합니다.

빈도수는 낮지만,

SUMIFS도 꼭 필요할때가 있습니다.

[SUM (합계 구하기)]

이런 표가 있다고 가정하고,

Score 의 SUM을 구하기 위해서는

엑셀 상단 리본메뉴에서

"수식 > 함수삽입"을 선택하여,

1. 함수 SUM을 선택합니다.

2. 합을 구하고자 하는 영역을 선택합니다.

"=SUM(E3:D15)"

2-1. 위와같이 선택되어지고,

2-2. Score의 합계가 구해집니다.

[SUMIF (조건부 합계 구하기)]

동일한 표에서,

국가별로 Score의 합계를 구하고자 하면,

3. 함수 SUMIF 를 선택합니다.

4. B열이 "일본"인 경우의 SUM을 구하는

수식입니다.

"=SUMIF(B:B,G3,E:E)"

5. 국가별 합계가 구해집니다.

[SUMIFS (다중조건부 합계 구하기)]

동일한 표에서,

국가별 기관분류별로

Score의 합계를 구하고자 하면,

6. 함수 SUMIFS 를 선택합니다.

7. Sum_range를 먼저 선택하고,

조건을 계속 추가할 수 있습니다.

Sum_range 는 합하고자 하는 열이고,

Criteria_range1 은 찾을 열

Criteria1 은 찾는 값("일본")

Criteria_range2 는 두번째 찾을 열

Criteria2 는 두번째 찾는 값("은행")

인 경우,

"일본이면서 은행인 경우의 SUM"을 구합니다.

"=SUMIFS(E:E,B:B,J3,C:C,K3)"

8. 국가별 기관분류별 합계가 구해집니다.

엑셀 셀안에 차트 그리기

보따리의새세상 — Thu, 25 Apr 2019 23:33:44 +0900

"엑셀 셀 안에 차트 그리기"

엑셀을 하다보면,

목록에 따른 차트를 그려야 할 때가 있습니다.

이런 표가 있다고 가정할때,

차트그리기로 그리면

한눈에 들어오고 차트도 이쁘게 그려집니다.

단점은,

표 안에 다른 정보가 있을 경우

표 따로 차트 따로 봐야한다는 단점 정도 되겠네요.

이 때 간단하게 셀 안에 차트를 그려넣을 수 있습니다.

1. 차트를 넣고자 하는 셀을 넓히고,

셀선택을 합니다.

2. 조건부서식 > 새규칙을 선택 합니다.

3. 서식 스타일을 "데이터 막대"로 선택 합니다.

종류 = 숫자, 백분율 등 선택

채우기, 색, 테두리 등을 조정

4. 셀 안의 수치에 따라 변하는

셀 안의 간단 차트가 그려집니다.

엑셀 세로쓰기 방법

보따리의새세상 — Fri, 19 Apr 2019 23:55:18 +0900

"엑셀 세로쓰기"

오늘 포스팅은,

엑셀의 한 셀 안의 텍스트를

세로쓰기 할 수 있는 방법입니다.

아래와 같은

표가 있다고 가정하고,

이런형태나,

이런형태로

변환이 가능합니다.

1. 세로로 바꾸려는 셀을 선택하고,

2. 마우스 우클릭 후

"셀 서식(F)"을 클릭합니다.

3. "맞춤" 탭에서

오른쪽에 있는 방향으로

텍스트의 기울기를 조정할 수 있습니다.

4. 마우스로 빨간점을 이동해서,

약 45도 정도로 기울이면,

5. 이렇게 기울어지고,

6. 마우스로 빨간점을

90도로 가져가면,

7. 90도로 글자가 기울어집니다.!

모르면 어렵지만~

알면 쉬운!~

간단한

엑셀 세로쓰기 팁이었습니다.~

ALL_TABLES 에서 Select 구문 추출

보따리의새세상 — Thu, 18 Apr 2019 22:35:00 +0900

-- Select문 추출

SELECT 'select '''||OWNER||'.'||TABLE_NAME||''', count(*) from '||OWNER||','||TABLE_NAME||' union all'

FROM ALL_TABLES

WHERE OWNER IN ('OWN');

ALTER, DROP, TRUNCATE 구문

보따리의새세상 — Wed, 10 Apr 2019 01:23:31 +0900

ALTER TABLE 오너.테이블명 MODIFY 컬럼명 varchar2(500);

DROP TABLE 오너.테이블명;

ALTER TABLE 오너.테이블명 RENAME TO 새테이블명;

TRUNCATE TABLE 오너.테이블명 DROP STORAGE;