엑셀에서 사용하는 함수 -요약-

[자연산]

1. 수학/삼각함수

⑴ SUM( )

: 지정된 셀 영역 범위의 합계를 구하는 함수

▶ =SUM(참조 영역 범위)

⑵ ROUND( )

: 인수로 지정한 정수만큼 반올림하는 함수

▶ =ROUND(인수, 소수점 이하 자리수)

⑶ ROUNDUP( )/ ROUNDDOWN( )

: 지정된 자리수로 올림/내림하는 함수

▶ =ROUNDUP(인수, 올림할 자리수)

   =ROUNDDOWN(인수, 내림할 자리수)

⑷ SUMIF( )

: 조건에 맞는 셀 영역 범위의 합계를 구하는 함수

▶ =SUMIF(조건 확인 범위, 조건, 합계 범위)

⑸ INT( )

: 셀 주소 or 숫자 데이터 중 정수만을 취하는 함수

▶ =INT(인수)

⑹ SQRT( )

: 제곱근의 값을 구하는 함수

▶ =SQRT(인수)

⑺ TRUNC( )

: 소수점 이하는 버리고 정수만을 표시하는 함수

▶ =TRUNC(인수)

⑻ MOD( )

: 두 수를 나눈 나머지를 구하는 함수

▶ =MOD(인수1, 인수2)

⑼ ABS( )

: 절대값을 구하는 함수

▶ =ABS(숫자데이터 or 셀 주소)

⑽ RAND( )

: 0과 1 사이의 난수를 발생하는 함수

▶ =RAND( )

2. 통계함수

⑴ AVERAGE( )

: 평균을 구하는 함수

▶ =AVERAGE(참조 셀 범위)

⑵ COUNT( )

: 지정된 참조 영역 내에서 숫자 데이터를 가진 셀의 개수를 구하는 함수

▶ =COUNT(참조 셀 범위)

⑶ COUNTIF( )

: 지정된 영역 내에서 조건과 일치하는 셀의 개수를 구하는 함수

▶ =COUNTIF(인수, “조건”)

⑷ COUNTA( )

: 지정된 참조 셀 범위 중 공백이 아닌 셀의 개수를 구하는 함수

▶ =COUNTA(참조 셀 범위)

⑸ COUNTBLANK( )

: 범위로 지정된 영역에서 공백인 셀의 개수를 구하는 함수

▶ =COUNTBLANK(참조 셀 범위)

⑹ RANK( )

: 지정된 참조 셀 범위 안에서 순위를 구하는 함수

▶ =RANK(인수1, 인수2, 인수3)

① 인수1 : 순위 대상 셀 주소

② 인수2 : 순위 비교 참조 범위

③ 인수3 : 0일때 내림차순(생략가능),

      1일때 오름차순

⑺ MAX( ) / MIN( )

: 지정된 범위 안에서 최대값/ 최소값을 구하는 함수

▶ =MAX(참조 셀 범위)

   =MIN(참조 셀 범위)

3. 논리함수

⑴ IF( )

: 지정된 참조 셀 범위 안에서 주어진 조건이 참과 거짓으로 구분하여 수행하는 명령을 선택하는 함수

▶ =IF(조건, “참”, “거짓”)

① 참 : 조건이 참일 때 수행하는 명령이나 데이터 기술

② 거짓 : 조건이 거짓일때 수행하는 명령이나 데이터 기술

⑵ AND( )

: 주어진 조건이 모두 참일 경우 TRUE 표시,

  아니면 FALSE 표시

▶ =AND(조건식1, 조건식2, ...)

⑶ OR( )

: 주어진 조건 중 하나라도 참일 경우 TRUE 표시,

  거짓인 경우 FALSE 표시

▶ =OR(조건식1, 조건식2, ...)

⑷ NOT( )

: 주어진 조건에 대한 반대값을 표시

▶ =NOT(조건)

4. 문자열 함수

⑴ LEFT( )/ RIGHT( )

: 주어진 문자열 중 왼쪽/ 오른쪽으로부터 주어진   숫자만큼의 문자를 발췌하는 함수

▶ =LEFT(인수, 정수)

   =RIGHT(인수, 정수)

⑵ MID( )

: 주어진 문자열 중 시작 위치부터 지정된 문자를  발췌하는 함수

▶ =MID(문자열 또는 문자열 참조 셀, 인수1, 인수2)

① 인수1 : 발췌 시작 문자 위치

② 인수2 : 발췌 문자 수

⑶ LOWER( )/ UPPER( )/ PROPER( )

: 영문자를 소문자로/ 대문자로/ 첫 자만 대문자로   변경하는 함수

▶ =LOWER(영문자 또는 영문자 참조 셀 주소)

   =UPPER(영문자 또는 영문자 참조 셀 주소)

   =PROPER(영문자 또는 영문자 참조 셀 주소)

⑷ LEN( )

: 문자열의 길이를 구하는 함수

▶ =LEN(문자열 또는 문자열 참조 셀 주소)

5. 날짜와 시간 함수

⑴ TODAY( )

: 현재 날짜를 표시하는 함수

▶ =TODAY( )

⑵ NOW( )

: 현재 날짜와 시간을 표시하는 함수

▶ =NOW( )

⑶ DATE( )

: 입력한 인수를 날짜 데이터로 작성하는 함수

▶ =DATE(년, 월, 일)

⑷ WEEKDAY( )

: 날짜를 인수로 받아 요일 번호를 계산할 수 있는 함수

▶ =WEEKDAY(날짜)

① 일요일은 1, 토요일은 7로 표시

⑸ YEAR( )/ MONTH( )/ DAY( )

: 인수의 날짜에서 년, 월, 일을 발췌하는 함수

▶ =YEAR(날짜)

   =MONTH(날짜)

   =DAY(날짜)

⑹ HOUR( )/ MINUTE( )/ SECOND( )

: 인수로 기술된 시간에서 시각/분/초를 발췌하는   함수

▶ =HOUR(시간)

   =MINUTE(시간)

   =SECOND(시간)

6. 찾기/참조 영역 함수

⑴ HLOOKUP( )

: 표나 배열의 첫째 행에서 값을 찾아, 지정한 행에서 해당하는 열의 값을 구하는 함수

▶ =HLOOKUP(첫 번째 행의 검색 값, 검색 범위, 구하려는 값이 있는 표의 행 번호, TRUE)

① 첫 번째 행의 검색 값 : 참조 영역, 문자열

② 검색 범위 : 데이터를 찾으려는 정보 표로서 범위   의 참조 영역이나 범위 이름을 이용

③ 행 번호 : 1이면 첫 번째 행의 값, 2이면 두 번째   행의 값

④ TRUE : TRUE 이거나 생략되면 근사값을 찾고 FALSE 이면 정확하게 일치하는 값만을 찾는다.

⑵ VLOOKUP( )

: 표의 가장 왼쪽 열에서 특정 값을 찾아, 지정한 열에서 같은 행에 있는 값을 표시

▶ =VLOOKUP(첮째 열에서 찾을 값, 찾을 범위, 구하려는 값이 있는 표의 열 번호, TRUE)

① 첫 번째 행의 검색 값 : 참조 영역, 문자열

② 검색 범위 : 데이터를 찾으려는 정보 표로서 범위의 참조 영역이나 범위 이름을 이용

③ 열 번호 : 1이면 첫 번째 열의 값, 2이면 두 번째 열의 값

④ TRUE : TRUE 이거나 생략되면 근사값을 찾고 FALSE 이면 정확하게 일치하는 값만을 찾는다.

⑶ CHOOSE( )

: 지정한 범위 안에서 N번째에 위차한 인수를 표시하는 함수

▶ =CHOOSE(선택할 인수, 값1, ...)

① 선택할 인수 : 반드시 1~29사이의 값이거나 그 값을 가진 셀에 대한 수식 및 참조 영역

② 값 : • CHOOSE 함수가 선택할 인수에 따라

          값이나 작업을 선택할 때 사용되는 인수

  • 29개까지 지정, 단일 값이거나 참조 영역이  될 수 있음

⑷ INDEX( )

: 지정한 표나 범위의 행/열 번호에 해당하는 값을 구하는 함수

▶ =INDEX(셀 범위, 행 번호, 열 번호)

처음날짜, 마지막날짜 구하기
 
max/min으로 각각 적용해 보세요.
단, A열은 정렬되어 있어야 합니다.

=MAX(OFFSET(Sheet2!$B$1,MATCH($A2,Sheet2!$A$2:$A$4,0),0,COUNTIF(Sheet2!$A$2:$A$4,$A2),1))

Ⅰ. 함수 기본 문법
1. 함수의 기본 문법
1) 등호 : 함수사용시 수식과 마찬가지로 입력하는 테이타가 문자열이 아닌 함수 명령임을 알려주는 기호로 등호 입력후 함수가 아닌 일반 문자열을 입력하면 에러가 나오며, 특히 수식중간에 사용되는 함수일 경우는 등호를 붙이지 않는다.
2) 괄호 : 괄호는 함수 계산에 필요한 인수의 시작과 끝을 나타낸다. 함수에 따라서 인수를 필요로하지 않는 함수도 있지만 이 경우에도 반드시 괄호를 사용한다 (예:『=RAND()』)
주의할 것으로는 각 괄호 앞뒤에 공백이 있으면 함수는 실행되지 않는다
3) 인수 : 인수는 함수가 미리 정해진 연산 순서에 따라 계산될 때 사용하는 테이타로 참조영역, 숫자, 문자열, 논리값, 함수등의 말하며, 특히 인수로 함수를 사용하면 여러개의 함수를 조합하여 원하는 계산을 할 수 있다( 예:『=if(AND(국어>80,산수>80),`합격`,`불합격)』)
어떤 함수에는 입력 위치에 따라 인수의 유형이 정해져 있는 경우도 있으므로 이때에는 함수마법사와 HELP등을 참고하여 기본값으로 정해진 인수의 유형을 입력하면된다.(예:num=수, ref=참조영역,logical=논리값)
4) 콤마 : 함수의 각 인수들은 콤마에 의해 구분된다. (주:숫자 입력시 세자리마다 콤마를 입력하는등 필요없는 콤마를 입력하지 않도록 주의해야한다)
2. 함수 수식의 오류값
수식에서 결과를 계산할 수 없으면 오류값이 나타납니다. 예를 들어, 숫자 값을 지정해야 하는 수식에 문자열을 입력하거나, 수식에서 참조하는 셀을 지우거나, 셀이 작아 결과를 나타낼 수 없을 때 오류값이 나타난다.
1)#Null! : 교차하지 않는 두 셀 영역 사이에 참조 연산자중 공백문자(Space Bar키)을 입력하여 교차 영역을 참조 영역으로 지정한 경우에 나타난다. 예를 들어 『=SUM(A2:A5 B2:B5)』와 같이 두영역 사이에 콤마를 쓰지 않고 공백문자를 사용하여 두 영역을 교차하는 경우에 나타난다.
2) #DIV/O! : 모든 숫자는 0으로 나누어질 수 없다. 따라서 빈셀 또는 `0`이 입력된 셀을 나누는 인자로 지정한 경우에 이와 같은 오류가 나타난다.
3) #VALUE : 연산자에서 사용할 수 없는 인수나 참조영역을 지정한 경우에 나타난다. 예를 들어 `+`연산자를 이용하여 숫자가 입력된 셀과 문자열이 입력된 셀 영역을 더하기 한 경우 등에 나타난다.
4) #REF! : 수식에서 참조하도록 지정한 셀이 유효하지 않을 경우 등에 나타난다. 예를 들어 다른 수식에서 참조하는 셀를 삭제하거나, 이 위치에 새로운 셀을 이동 시킨 경우에 나타난다.
5)#NAME? : 엑셀에서 인식할 수 없는 문자열을 수식에 사용했을 때 나타한다. 함수 이름, 셀 참조 영역 등을 제외하고 수식에 입력된 문자열 중 큰 따옴표(` `)로 묶여지지 않은 경우 나타한다.

아래 샘플파일을 이용하여 DCOUNT(), DSUM() 함수의 사용방법에 대해서 알아보도록 하겠습니다.

<1> 작성된 데이터목록 중 영업부 사원 중 나이는 30세 이상이며 근무년수가 5년 이상인 사원 수와 그 사원들의 월급여의 합을 구하기 위해 다음과 같이 조건과 결과값이 들어갈 셀을 지정해 둡니다.

<2> 조건을 만족하는 사원수를 구하기 위해 E21셀에 셀 포인터를 놓고 다음과 같이 수식을 입력합니다.
 =DCOUNT(B2:F16,D2,A20:C21)

<3> 조건을 만족하는 사원들에 대한 월급여의 합계를 구하기 위해 F21셀에 셀 포인터를 다음과 같이 수식을 입력합니다.
=DSUM(B2:F16,F2,A20:C21)

<4> 데이터 목록 중 영업부 사원 중 나이가 30세 이상이며, 근무년수가 5년 이상인 사원은 총 3명이며, 해당 사원들의 월급여의 합계는 11,700,000원임을 알 수 있습니다.

식별부호가 붙은 숫자를 음양의 정상기호로 전환하기           <목차로>

---

다음의 예는 음수의 경우 앞에 "M"을 붙여 표기한 경우 이를 "-"부호로 전환하여 최소값을 구하는 예이다.

=MIN(IF(ISTEXT(A1:A10),RIGHT(A1:A10,LEN(A1:A10)-1)*-1,A1:A10))

여기서 A1:A10 는 작업대상영역이며, 위의 함수는 배열함수이므로 이식을 변경하거나 입력하려면 항상 Ctrl+Shift+Enter 를 동시에 눌러야 한다.

MIN을 MAX로 바꾸면 최대값을 구할 수 있다.

>>>>> 또 다른 셀서식 표현방법

이 예는 사용자 서식을 이용하여 입력을 통생의 방법으로 하면 셀에 원하는 형식대로 표현된다. 즉 셀에 123, -123 을 입력하면 123, M123으로 표현된다.

서식>> 셀...>> 사용자정의>> 표시형식 에서 #,##0.00;"M"#,##0.00 과 같이 써준다.

여기서 소숫점 아래에 0을 원하는 대로 넣어 주면 소숫점이하의 자릿수를 나타낼 수 있다

위의 서식에 의하면 "-36.247"은 "M36.25"으로 표시된다.

>>>>> 이런 방법도 있군요

이 예는 사용자서식을 사용하지 않고 정상적인 입력값을 음수 일때 '-"대신 "M"을 붙여준다.

=IF(A1<0,"M"&TEXT(ABS(A1),"00"),TEXT(A1,"00"))

만약 입력데이터가 M05와 같이 "M"이 있을 경우 다음의 식은 "M"대신에 "-"를 붙여준다.

=IF(LEFT(A1)="M", -RIGHT(A1,LEN(A1)-1),A1)

디렉토리 내의 파일명을 읽어오는 방법           <목차로>

---

Sub Read_File_Name()

Dim x As String

x = Dir("*.xls")

While x <> ""

MsgBox x

x = Dir()

Wend

End Sub

상태표시 Bar 나타내기 (Status Bar Showing )           <목차로>

Sub percent_Bar()

For R = 1 To 2500

ActiveSheet.Cells(1, 1).Value = R

Application.StatusBar = Int(R / 25) & " % done"

Next

Application.StatusBar = False

End Sub

Sheet를 이름순서대로 정렬하기           <목차로>

Sub SortSheets()

Dim I As Integer, J As Integer

For I = 1 To Sheets.Count

For J = 1 To I - 1

If UCase(Sheets(I).Name) < UCase(Sheets(J).Name) Then

Sheets(I).Move before:=Sheets(J)

Exit For

End If

Next J

Next I

End Sub

선택영역의 마지막행 알아내기           <목차로>

Sub Last_Cell()

Set rng = Range("b35:g35")

ReDim arr(1 To rng.Count)

For i = 1 To rng.Count

arr(i) = rng(i).End(xlUp).Row

Next

MsgBox "마지막 행은 " & Application.Max(arr) & "입니다."

End Sub

리스트 박스 크기 변동시키기           <목차로>

Sub Setsize()

With Worksheets("Sheet1")

Set rng1 = .Range("A1").CurrentRegion

Set rng1 = rng1.Offset(1, 0).Resize(rng1.Rows.Count - 1)

.ComboBox1.ColumnCount = 2

.ComboBox1.ColumnHeads = True

.ComboBox1.ColumnWidths = rng1.Columns(1).Width _

& "," & rng1.Columns(2).Width

.ComboBox1.Width = rng1.Columns(1).Width + _

rng1.Columns(2).Width + 12

.ComboBox1.ListFillRange = rng1.Address

End With

End Sub

' The next procedure goes into the sheet module for the sheet with the combobox.

Private Sub ComboBox1_Change()

strWidth = ActiveSheet.ComboBox1.ColumnWidths

iloc = InStr(strWidth, "pt")

strlen = Left(strWidth, iloc - 2)

Debug.Print strlen

ActiveSheet.ComboBox1.Width = CLng(strlen) + 12

End Sub

정확히 일치하는 셀 찾기           <목차로>

Sub Find_Exact_Cell()

Dim Rng1 As Range

Set Rng1 = ActiveSheet.Range("a1:a10").Find(What:="XXX", _

After:=Range("a1"), _

LookIn:=xlFormulas, _

LookAt:=xlPart, _

SearchOrder:=xlRows, _

SearchDirection:=xlNext, _

MatchCase:=False)

MsgBox "찾는 셀은" & Rng1.Address & "입니다"

End Sub

bcd라는 text만 들어있는 셀을 찾으려면 LookAt:=xlPart 을 LookAt:=xlWhole 로 바꾼다.

<주의> 만약 셀에 다음과 같은 내용이 들어 있다면

a  bcd  efg  hij  abcd

bcd가 부분적으로 들어 있는 셀을 찾으려면 what:="bcd" 로 고치고 LookAt:=xlPart을 그대로 두면 되고, 결과는 abcd가 있는 셀을 나타낸다. xlPart는 셀 내용중 부분적으로 bcd가 들어 있는 셀을 검색하기 때문임.

CONTROL ITEM 리스트하기           <목차로>

다음의 코드는 현Workbook의 모든 폼에 있는 Control Item의 이름을 List한다.

Sub ListFormControls()

Set cmpProjectComponents = ThisWorkbook.VBProject.VBComponents

For Each cmp In cmpProjectComponents

If cmp.Type = vbext_ct_MSForm Then

For Each ctl In cmp.Designer.Controls

MsgBox cmp.Name & " - " & ctl.Name

Next ctl

End If

Next cmp

End Sub

바닥글 넣는 루틴          <목차로>

Sub Input_Footer()

Dim footermsg As String '변수선언

 footermsg = InputBox("바닥글을 넣어주세요", "바닥글 입력상자")

ActiveSheet.PageSetup.CenterFooter = footermsg  ' 중앙에 쓰려면

ActiveSheet.PageSetup.LeftFooter = footermsg  ' 왼쪽에 쓰려면

ActiveSheet.PageSetup.RightFooter = footermsg ' 오른쪽에 쓰려면

End Sub

>>>>> 중앙부에 바닥글 넣는 예제

Sub Input_Footer()

Dim footermsg As String

footermsg = InputBox("머리글을 넣어주세요", "머리글입력상자")

' Default 바닥글 양식

'ActiveSheet.PageSetup.CenterFooter = footermsg

' 바닥글 양식을 바꾸는 예제

ActiveSheet.PageSetup.CenterFooter = "&""궁서체,굵게""&24" & footermsg

End Sub

>>>> 오른쪽에 날짜를 mm/dd/yy형식으로 바닥글 넣는 루틴

Sub 바닥글()

sDate = inputbox("날짜를 mm/dd/yy 형식으로 입력하세요.")

ActiveSheet.PageSetup.RightFooter = _

"&""Arial,보통""&9 " & strDate

End Sub

여기서 주의하실 점!!! 은 반드시 "&9 뒤에 space 를 한칸 넣어야 한다는 사실입니다.!!!

Sheet 보호 및 해제방법           <목차로>

Sub Auto_Open()

With ThisWorkbook.Sheets("Sheet1")

.Unprotect password:="Fred"

.Range("A1").Value = Now

.Protect password:="Fred"

End With

End Sub

텍스트 데이터를 날짜서식으로 바꾸는 간단한 방법           <목차로>

=DATE(RIGHT(A1,2),LEFT(A1, MOD(LEN(A1),5)+1),MID(A1, LEN(A1)-3,2))

< 해설 >

RIGHT(A1,2): 셀의 텍스트 중 오른쪽 두 글자를 년도로 가져온다.

LEFT(A1, MOD(LEN(A1),5)+1) : 자릿수가 5자리면 1을, 6자리면 2를 만들어 왼쪽으로 부터 읽을 갯수 지정하여 월도를 가져온다.

MID(A1, LEN(A1)-3,2) : 글자 수가 5면 두째자리부터,6이면 셋째자리 부터 읽어 날짜로 한다.

이 예는 50298 ==>5/2/98, 121298 ==> 12/12/98 으로 바꾸어 준다.(날짜서식에 따라 다름)

오늘날짜로 파일이름 저장하기          <목차로>

Sub SaveAsTodaysDate()

Dim sFileName As String, sPath As String

sPath = "C:\" 'change path here

sFileName = Format(Now(), "mmddyy")

ActiveWorkbook.SaveAs (sPath & sFileName)

End Sub

빈행을 감추기 위한 매크로           <목차로>

With Columns("B:B").SpecialCells(xlCellTypeBlanks)

.EntireRow.Hidden = True

End With

나이계산하는 함수           <목차로>

Private Function Age(aDate As Date)

Dim BThisYear As Date

Dim aDate As Date

If aDate = 0 Then

Age = "*"

Else

' 올해의 생일이 언제인가를 결정

BThisYear = DateSerial(Year(Now()), Month(aDate), Day(aDate))

'생일이 이미 지나갔는가?

If BThisYear < Now() Then

Age = Year(Now()) - Year(aDate)

Else

Age = Year(Now()) - Year(aDate) - 1

End If

End If

End Function

문자와 숫자의 조합중 문자를 제외한 숫자만 읽어오기          <목차로>

Function LastDigits(s As String) As Integer

Dim i

For i = 1 To Len(s)

If Mid(s, i, 1) Like "#" Then

LastDigits = Mid(s, i, 1 + Len(s) - i)

Exit For

End If

Next i

End Function

매 2,3번째의 행을 삭제하는 방법 ( 2,3행 5,6행 8,9행 ... 삭제)           <목차로>

<예제 1>

맨 마지막 행부터 3으로나누어 1이 남는 행번호를 제외하고 삭제 하도록 한 예임

Sub DeleteEverySecondAndThirdRow()

Application.ScreenUpdating = False

numRows = ActiveSheet.UsedRange.Rows.Count

For rowNum = numRows To 1 Step -1

If rowNum Mod 3 <> 1 Then '3으로 나누어 나머지가 1이 아니면

ActiveSheet.Rows(rowNum).EntireRow.Delete shift:=xlUp

End If

Next rowNum

Application.ScreenUpdating = True

End Sub

<예제 2>

전체 행의 수를 3으로 나누어 정수를 취하고 3을 곱하고 1을 더한 행 에서 출발하여 세 행씩 올라오며 반복 처리하는 방법을 사용함.

Sub DeleteEvery()

Dim Ndx As Integer

With ActiveSheet

For Ndx = Int((.UsedRange.Rows.Count + 1) / 3) * 3 + 1 To 4 Step -3

.Rows(Ndx - 1).Delete

.Rows(Ndx - 2).Delete

Next Ndx

End With

End Sub

빈셀을 제외한 셀의 수를 세기           <목차로>

셀내에 Space만 들어 있는 경우 Space도 하나의 글자로 인식되므로 셀의 내용을 Space Bar 를 이용하여 지운경우 내용이 있는 셀로 Count된다. 따라서 셀의 내용을 지울때는 Del Key를 사용해야한다.

{=SUM(IF(LEN(TRIM(A1:A5))=0,1,0))}

위 식은 배열식이므로 양쪽 끝의 대괄호는 제외하고 입력을 한 후 Shift + Control + Enter하여 입력하고 또한 위 식은 0이 입력된 경우 비어 있지 않은 셀로 카운트한다.

(옵션에서 "0표시"를 해제한경우 셀에 0이 표시되지 않는다)

숫자 앞에 0(영)을 표시하는 방법           <목차로>

셀에 0으로 시작하는 숫자를 입력하면 0이 표시되지 않는다. 그러나 0을 표시하고 싶다면 해당 범위를 선택하고 서식 > 셀 > 표시형식 탭 > 사용자정의 에서 표시하고자 하는 유형을 지정하면 된다.

예로 00012,0123,0001 등의 표현을 하려면 위의 사용자정의 유형에 "0000"을 넣고 확인을 하면 된다. 해당 셀에는 단지 12,123,1을 입력하면 0을 포함하여 표시하여 준다.

이 예는 부품번호, 사번, Serial No 등을 관리할 때 유용하다.

저장할 때 덮어쓰기할 것인지를 묻지 않고 저장하기           <목차로>

다음 예는 저장할 때 동일 이름의 파일이 있는 경우 덮어쓰기를 할것인지 묻는 것을 없애준다.

아래의 코드에서 saved의 속성이 true면 workbook의 내용이 바뀌지 않았다는 것으로 Excel은 판단하여 그대로 저장한다.

Sub SaveNoPrompt()

With Activeworkbook

.saved = True

.save

End With

End Sub

또 다른 방법으로 경고메세지를 보이지 않도록 하여 저장한 후 다시 그 기능을 돌려 놓으면 된다.

Sub SaveNoPrompt()

Application.DisplayAlerts = False

Workbooks("BOOK1.XLS").save

Application.DisplayAlerts = True

End Sub

파일을 열때 Sheet보호 해제/작업수행후 다시 보호하는 방법           <목차로>

Sub Auto_Open()

Application.ScreenUpdating = False

For Each x In ActiveWorkbook.Worksheets

x.Unprotect "Fred" '"Fred"는 암호임

x.[a1].Value = Now

x.Protect "Fred"

Next

[YourCode Here] : 파일을 열때 실행하여야할 코드 내용

ActiveWorkbook.Protect "Fred"

Application.ScreenUpdating = True

End Sub

입력된 내용을 일정위치에 "-"를 넣어 표시하는 방법           <목차로>

다음의 예는 입력된 문자를 6,10번째 자리에 '-"을 넣어 준다.

Sub EditBox_Update()

txt = DialogSheets(1).EditBoxes(1).Text

j = 1

For i = 1 To Len(txt)

c = Mid(txt, i, 1)

If j = 6 Or j = 10 Then

If c = "-" Then

hold = hold & c

j = j + 1

Else

hold = hold & "-" & c

j = j + 2

End If

ElseIf c <> "-" Then

hold = hold & c

j = j + 1

End If

Next i

DialogSheets(1).EditBoxes(1).Text = hold

End Sub

특정값을 갖는 셀의 표제를 되돌리기예           <목차로>

다음의 예는 학생의 이름과 성적이 A,B열에 있을때 성적이 제일 낮은 사람의 이름을 C1셀에 나타낸다.

C1 = INDEX(A1:A6,MATCH(MIN(B1:B6),B1:B6,0)

위와 같이 입력하면 C1 에 "강현"이 나타난다

	A	B
1	하춘	95
2	태화	97
3	강현	60
4	동순	100
5	재목	88
6	천재	90

특정 셀을 Double Click하면 매크로 실행되게 하기

엑셀97에서 특정 셀을 Double Click하면 지정된 매크로가 실행되게 하면 매우 편리한 경우가 있다.

예를 들면 특정 셀의 값을 변경한 후에 매크로를 샐행시켜 계산을 다시 한다든지 또는 복잡한 작업을 매크로를 실행시켜 작업해야 하는 경우에 일일이 매크로를 실행하지 않아도 되기 때문이다.

아래의 매크로 코드는 모듈이나 대화상자 코드시트가 아닌 해당 시트의 코드시트에 써 넣어야 하며 해당 시트의 A1:A10의 셀을 더블클릭하면 MacroName이라는 매크로가 실행 된다.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Excel.Range, Cancel As Boolean)

If Target.Address = "$A$1:$A$10" Then

Call MacroName '실행하고자 하는 매크로 이름을 넣어줍니다.

Cancel = True

End If

End Sub