블로그 이미지
이비그치면

태그목록

최근에 올라온 글

최근에 달린 댓글

최근에 받은 트랙백

글 보관함

calendar

1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31

엑셀 2007에서 VBA 열기

2010. 9. 3. 15:18 | Posted by 이비그치면
1) Office 단추 
  클릭

2) 하단의 엑셀옵션 - 기본설정 - 리본메뉴에 개발도구탭표시에 체크 - 확인

3) 아래와 같이 개발도구 탭이 리본메뉴에 표시됨

4) VBA 창 활성화
    - 개발도구로 들어가서 VisualBasic이나 코드보기
    - Alt + F11

엑셀 VBA 낙찰(입찰) 예정가격 구하기

2010. 9. 2. 17:36 | Posted by 이비그치면
입찰공고문중

예정가격은 지방자치단체 원가계산 및 예정가격작성요령 과 전자입찰특별유의서에 따라 개찰전에 기초금액에 ±3% 범위내에서 입찰집행관이 랜덤정렬방식으로 15개의 복수예비가격을 확정하고, 다수 추첨된 복수예비가격 4개를 산술 평균한 금액으로 합니다.


15개중 4개를 취하는 조합(Combination)의 수 : 15C4 = 15P4 / 4! = 15!/(4!*(15 - 4)!)

1365

1) 조합된 수(1365가지)의 나열

2) 산술평균값을 구한다 : (P1+P2+P3+P4) / 4

3) 다수추첨 : 빈도(발생횟수)가 최다인 평균값을 구한다


각각의 일이 엑셀을 이용하여 한다고 하여도 수작업으로 한다면
15개의 예비가격중 4개를 선택하여 나열하는 일이 경우의 수가 많기 때문에
상당한 수고가 드는일이고
또 빈도를 세는 일도 만만치 않은 시간과 품이 드는 일이 될것이다

1) 조합된 수의 나열
    - 아래의 엑셀파일을 다운받은후 오픈한다
      
    - "Data" Sheet를 열어 예정가격 15개를 입력한다
    - VBA창을 열고 프로젝트창에서 모듈을 찾아 해당모듈(Module1)을 더블클릭
    - 첫번째 라인(Sub GetRow)에 커서를 위치
    - F5를 눌러 실행(또는 실행메뉴를 눌러 Sub/사용자 정의폼실행)
    - Sheet1을 열어보면 1365개의 조합이 만들어져 있슴을 확인할 수 있다

2) 산술평균값을 구한다 : (P1+P2+P3+P4) / 4
    - Sheet1의 E1 셀 선택
    - 수직Scroll을 이용하여 1365열로 이동
    - 마우스 커서를 E1365에 위치 -> Shift+Click
    - =SUM(A1:D1)/4*90% Ctrl+Enter   
       ※※ 90%까지 입력후 반드시 Ctrl+Enter!!! 
       부가세 포함된 예정가이므로 부가세 10%제외
   
3) 다수추첨 : 빈도(발생횟수)가 최다인 평균값을 구한다
    - 2)가 완료된 상태에서 Ctrl+C
    - Sheet2로 이동하여 A2 셀 선택 -> 마우스 오른쪽 클릭 ->선택하여 붙여넣기 ->
       -> 값에 체크 -> 확인
    - 마우스오른쪽 클릭 ->셀서식 -> 표시형식 ->숫자 -> 소수자릿수 0, 1000단위 체크
       -> 확인
    - 리본메뉴에서 데이타 탭 선택 -> 정렬 (오름차순)

    - 부분합 이용(데이타 탭) 
       . 셀 A1에 "발생횟수"라고  입력
       .  데이타탭의 부분합 클릭
       . 사용할 함수에서 개수 선택 -> 확인
       . 부분합 그룹선택에서 2번째 선택 - > 셀 A1에  "예상가격" 입력 
       . 발생횟수 최다인 것을 발생횟수 열에서 찾는다
    
    - 부분합결과물을 다른 쉬트로 복사한후 데이타 정렬하여 찾기
      . 결과물 Selection
      . Ctrl+G -> 옵션 -> '화면에 보이는 셀만 ' 체크 -> 확인 
      . Ctrl+C -> Sheet3으로 이동 -> 셀 A1선택 -> Ctrl+V
      . 데이타 선택 -> 열B로 정렬 -> 최다 발생횟수 확인

    - 발생횟수의 분포를 확인하기 위한 차트 그리기
       . Sheet2(부분합 쉬트)로 이동 -> A열 전체선택 -> Ctrl+F -> 바꾸기 탭 선택
          -> 찾을내용 '개수' 입력 -> 확인
       . 셀 A1 선택
       . 삽입메뉴에서 차트 선택 - > 분산형 4번째(직선및표식이있는분산형) 선택
       . 차트가 생성되면 해당차트위에 커서위치 -> 오른쪽마우스 클릭 -> 데이터선택
       . 최종데이타로 이동하여 커서위치하고 Shift+Click -> 데이터원본 선택 창에서 확인
       . 분포에서 최다발생횟수 확인
   
      
    

Do your best, and God will do the rest.

2010. 8. 10. 10:41 | Posted by 이비그치면

- Do your best, and God will do the rest.

 - Boss says GO, a leader says LETS GO

Man proposes, God disposes.

- Leave something for someone but don't leave someone for something.

 Just throwing a bunch of trees into a pit doesn't make it a log cabin. (나무를 한 곳에 모아 놓는다고 해서 통나무집이 되지는 않는다.)

- 구슬이 서말이라도 꿰어야 보배

- 벽돌을 열심히 간다고 해서 거울이 되지는 않는다

- “When the cattle you have lodged in a shed start dying one by 
one, do not examine them, thinking thus to find the cause of the 
trouble. Examine, rather, the cattle shed—and burn it.”

(헛간에 머물렀던 소가 하나씩 죽기 시작하면 
 문제의 원인을 찾기 위해 생각하며 소들을 살펴보지 마십시오. 
오히려 외양간을 살펴보고 불태워 버리십시오.)   생떽쥐베리 '성채'중

- 언몸을 녹일 장작을 패기위해 열심히 도끼로 찍고 있는게 대들보가 아닌지 살펴보라

헛간에 머물렀던 소가 하나씩 죽기 시작하면 
하나씩, 문제의 원인을 찾기 위해 생각하지 마십시오. 
문제. 오히려 외양간을 살펴보고 불태워 버리십시오.

- To the victor go the spoils (전리품은 승자에게 간다)

 

"Do or Do not. There is no try." -- 는 것과 하지 않는 것이 있을 뿐 시도해보는 것은 없다

  스타워즈 제국의 역습 편에서 스승인 요다가 제자 루크 스카이워크에게 '포스'를 가르치며 했던 대사

"리더가 되기 전 성공은 본인에게 맞춰진다. 리더가 된 다음 성공은 타인의 성장에 있다(Before you are a leader, success is all about you. When you become a leader, success is all about growing others)."  잭 웰치

- 꿈이 없는 사람은 남의 꿈을 위해서 살아가게 됩니다

- 노력은 이자를 낳지만 게으름은 연체료를 낳는다

- If you don't make a dust, you will eat the dust.

- Little people discuss other people.

  Average people discuss events.

  Big people discuss ideas.

 - Practice What You Preach

- Winning is a habit. Unfortunately, so is losing  -Vince Lombardi

- 90/10 Principle

 10% of life is made up of what happens to you

90% of life is decided by how you react to the 10%

( The Art of Being Brilliant )

- 나에게 나무벨 시간으로 여덟시간이 주어진다면 

그중 여섯 시간을 도끼날을 가는 데 쓰겠다  -에이브러햄 링컨

세상 사람들 100 중에 1명은 성경을 읽고 99명은 그리스도인을 읽는다” - D.L. 무디

- 연은 순풍이 아니라 역풍에 가장 높이 난다. 윈스턴 처칠

(Kites rise highest against the wind, not with it.)

- "Never underestimate your power to change yourself; never overestimate your power to change others." - H. Jackson Brown Jr.(자신을 변화시킬 힘을 과소평가하지 말고, 타인을 변화시킬 힘을 과대평가하지 말라. - 미국 작가 H. 잭슨 브라운 주니어)

- "We are what we repeatedly do(우리는 우리가 반복해서 하는 일이다)."  아리스토텔레스

'명언,명구,속담' 카테고리의 다른 글

2017년 신년사 사자상어 정리  (0) 2017.01.03
useful phrases  (0) 2016.03.11
재미있는 속담  (0) 2013.02.21