컴활 1급 종합정리

[액셀]

index match max 는 m(  m( (조건)*(범위) ),(조건)*(범위),0  )

index match large 는 m(  l( (조건)*(범위),k ),(조건)*(범위),0  )

 

VBA 셀에 특정 값 입력되도록 설정

- A1셀에 문자 "유재혁" 을 입력

[A1] = "유재혁"

- A1셀의 서식을 굵게 지정

[A1].Font.Bold = true

-A1셀의 서식을 기울임꼴로 지정

[A1].Font.Italic = true

- A1셀의 폰트를 "궁서체"로 지정

[A1].Font.Name = "폰트이름

 

 

<시나리오매크로>

 1. 매크로 기록 (시나리오)

데이터 - 가상분석 - 시나리오관리자

추가 - 이름 - 변경셀 - 추가 - 이름 - 변경셀 - 확인

요약 - 결과 셀

시나리오 시트가 열린 창에서 매크로 기록중지 !!(중요)

버튼에 매크로 지정 

 2. 매크로 기록 (시나리오 삭제)

데이터 - 가상분석 - 시나리오관리자

각 시나리오 선택 - 삭제 - 닫기

매크로 기록 중지

버튼에 매크로 지정

 3. 매크로확인

시나리오 버튼 클릭 후 시나리오 요약창을 내린 후 가상분석 - 시나리오관리자 시나리오 여부 확인

시나리오삭제 버튼 클릭 후 가상분석 - 시나리오관리자 시나리오 여부 확인

 

 

 액셀 VBA 다른시트 참조 범위
"'시트명'!범:위"

<D함수(expression,doamin,criteria)>
=D함수("필드명","[테이블/쿼리]명","필드명='조건값'")
1. 첫번째 인수는 찾아야 할 필드
2. 두번째 인수는 찾아야 할 필드가 들어있는 테이블 혹은 쿼리
3. 세번째 인수는 조건
두번째 인수가 <테이블>일때는 "테이블의 필드명 = 폼의 컨트롤명 "
두번째 인수가 <쿼리>일경우 " [Forms]![폼명]![컨트롤명]=[쿼리명]![필드명]"

(이때, 값을 비교하는 제수 피제수의 순서는 서로 바뀌어도 상관이 없다! )
하위폼에서 D함수를 사용하여 상위폼의 컨트롤로 값을 비교하는 조건을 세울경우 조건에서 상위폼을 명시해야한다 = forms!상위폼명!컨트롤명!


VBA를 작성하다가 정 모르겠면 괄호 혹은 쉼표 갈겨보기!!!!!
<DoCmd.OpenReport>
(괄호를 사용하지 않는다)

<Filter/FilterOn>
Me.Filter= 조건식
Me.filteron = True
문자일경우 : Me.Filter="필드명='"&컨트롤명&"'"
문자 포함일경우 : Me.Filter="필드명 like '*" &컨트롤명& "*' "


<RecordSource>
Me.RecordSource = "Select * From 테이블명 Where 필드명 = '"&컨트롤명&"' "
하위폼과 상위폼 관계이고 기준값과 비교될 입력된 값이 상위폼일때 from절은 상위폼의 컨트롤원본으로 지정해줘야한다.

 

<RecordsetClone> / <FindFirst> / <Bookmark>

Me.RecordsetClone.FindFirst "조건식"

Me.Bookmark = Me.RecordsetClone.Bookmark

<OrderBy/OrderByOn>
Me.OrderBy = "조건식"
Me.OrderByOn = True
오름차순 : Me.OrderBy = "정렬할필드명 ASC" (ASC는 생략가능)
내림차순 : Me.OrderBy = "정렬할필드명 DESC"

 <RowSource>
cmb컨트롤명.RowSource="범:위"

<ColumnCount>
Lst목록상자의 원본 (cmb콤보상자아님) 으로 사용 될 열 개수를 지정 
columnCount=2 일 경우 두개의 열로(세로 두줄) 출력한다.
Lst컨트롤명.RowSource="범:위"
Lst컨트롤명.ColumnCount=2

< 특정 셀의 폰트를 변경>
[H1].Font.Name = "굴림체"

<GotoRecord>
이전레코드로이동 : Docmd.GotoRecord,,acprevious
다음레코드로이동 : Docmd.GotoRecord,,acnext

<액세스의 Mod함수>
값 Mod 2=0 -> 짝수
(띄어쓰기에 유의한다!)

<CurrentRegion.Rows.Count>
총행의 갯수???
[B5].CurrentRegion.Rows.Count - 1 ????

<vbCrLf>

<액셀 match()>