달력

1

« 2015/1 »

반응형
728x90
반응형

 

 

 

[ 엑셀VBA 13] 불량관리 프로그램 만들기 - SQL의 프로그램 적용하기

 

오랜만에 불량관리 프로그램 13강을 설명을 드리는데 연말이다 연초다 해서 강좌를 올릴 시간이 없어

이제서야 올리는 것을 미안스럽게 생각한다.

 

자 오늘을 본격적인 SQL의 프로그램 적용 여기서는 전체 입력항목중의 공정별 불량합계를 구해보도록

한다.

 

 

우선 상세내용을 먼저 설명해보면 아래의 입력된 데이터베이스로 부터 불량을 조회하여

 

 

 

 

아래 우측의 불량수량 항목에 공정1,공정2,공정3,공정4에 해당하는 불량수량을 합계 후

 

불량수량란에 자동으로 입력되는 프로그램이다.

 

물론, 집게되는 불량수량의 우측상단에 분석이라는 버튼을 누르면 실행이 되는 것이다.

 

 

 

이 프로그램을 만들기 위해서는  데이터베이스 함수인 SQL을 사용설정을 한 후

 

 VBA작성을 해서 데이터를 자동으로 받아 오는 것이다.

 

 

시트텝의 코드보기를 통해 아래과 같이 모듈1을 생성한다.

 

하단에 모듈1의 주기능을 설명하기로 한다.

 

 

 

 

 

Sub Analysis()          'Analysis라는 프로시져를 생성한다.
Dim db As Database   ' 데이터베이스를 설정한다.
Dim rs As Recordset   ' 레코드셋을 설정한다.
Dim str As String        ' SQL을 사용하기 위한 문장을 str로 설정한다.
Dim i, j, k                 ' 변수i,j,k를 설정한다.
Set db = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, True, "Excel 8.0;")

                              ' 엑셀로부터 가져오는 db를 설정한다.

 

For i = 1 To 4            '반복수를 4까지 증가 데이터를 공정1 부터 공정4까지 넣을 계획임.
   str = "SELECT  SUM(수량) "     ' 모든 수량을 선택
   str = str & " FROM [Data$]  " '  ' Data라는 이름을 가진 db가 경로이다.
   str = str & " WHERE 공정 = '" & ActiveSheet.Cells(4 + i, 7) & "'"   '공정은 셀의 값인데 공정1~ 4의 이름이

                                                                                         목적어 이다.
   str = str & " AND 처리결과 LIKE '*폐기*' "                                '처리결과는 폐기항목이다.
   Set rs = db.OpenRecordset(str)                                             '레코드셋은 str로 db에 연결한다.
   
   ActiveSheet.Select                   ' 현재시트를 선택하고
   With ActiveSheet
       .Cells(4 + i, 8).CopyFromRecordset rs ' 셀에다 1씩증가하면 값을 넣는다.(공정1의 값, 공정2의값...)
   End With
   rs.Close                                 '레코드셋을 닫고
   Set rs = Nothing                      '레코드셋을 없앤다.
Next i                                       'i에대한 루프 종료

   db.Close                                'db를 닫고
   Set db = Nothing                      'db를 없앤다.
End Sub

 

 

 

Q-분석_데이터베이스_2014.12.17.xlsm

 

 

 

 

불량율관리 프로그램 만들기 시리즈

 

1. 매크로의 이해

2. 절대참조와 상대참조

3. 조건절 if

4. 반복문 for - next

 

5. 조건문 select case

6. 데이터베이스의 구성

7. 유효성검사를 통한 입력 규칙만들기

8. 이중유효성검사 적용

 

9. 엑셀 데이터베이스 사용설정 적용하기

10. 분석툴 만들기

11. 데이터입력 행삽입 모듈만들기

12. 대용량 DB사용을 위한 SQL함수 알아보기

13. SQL 합수 프로그램에 적용하기

 

728x90
반응형
:
Posted by mapagilove
2015. 1. 11. 21:24

오래된 가구 시트지 작업하기 우리 집 이야기2015. 1. 11. 21:24

728x90
반응형

 

 

오래된 가구 시트지 작업하기

 

 

이사를 와서 보니 가구가 좀 오래되어 버리고는 싶지만 와이프가 적극만류 좀만 있으면

 

어차피 바꾸는 데 하며 반대를 한다.

 

 

 

그래서, 집에 있는 화장대를 우선 시트지로 엔티크하게 변시시키는 과정을 포스팅해본다.

 

우선 가구의 측면 사이즈를 체크해 시트지를 구매한다.

 

 

 

두번째 아래와 같이 오래된 가구의 바랜면을 사이즈를 충분히 맞춘 후

 

어디서 부터 붙일지 계획을 세운다.

 

 

이경우는 서랍을 닫는 쪽부터 뒤쪽으로 붙이는 것이 최고의 방법이다.

 

 

시트지를 붙일때는 한쪽끝면을 최대한 일자로 잘 맞추어야 하며

 

 

붙이는 속도는 최대한 천천히 하도록 한다. 붙일시는 마른 수건을 준비하여

 

우선 붙일면을 닦은 후 붙일때는 천천히 먼저 붙인면으로 부터

 

마른수건으로 쓸어가면서 붙인다.

 

 

 

왼쪽의 우중충하던 측면이 아주 엔틱하게 바뀌었다.

 

시트지 작업의 경우 시트지의 질에 따라 약간씩 틀릴수는 있으나

 

초벌이 마지막이라는 생각으로 라인정렬과

 

천천히 마른수건으로 붙는 부위를 쓸어서 공기방울이

 

생기지 않도록 마감하는 것이 생명이다.

 

 

최선의 방법은 공기방울 생긴 경우 살짤 칼집을 내어 공기가 빠질 수 있도록 해주는 것이다.

 

성공적인 시트지 작업을 기원하며 포스팅을 마감한다.

 

 

728x90
반응형
:
Posted by mapagilove
2015. 1. 11. 19:18

닭똥집 구이를 소금에 찍어 먹기 음 식 이야기2015. 1. 11. 19:18

728x90
반응형

 

 

 

닭똥집 구이를 소금에 찍어 먹기

 

 

맛나는 닭똥집을 먹기위해 소쩍새는 밤부터 그렇게 볶았나 보다.

 

오늘 아침에 시장에서 사온 닭똥집 5천원어치를

 

이밤에 오늘 뽁아서 한번 먹어보려 한다.

 

 

사올때는 조금은 비주얼이 징그러워보이지만 조그맣게 잘라서  볶아 본다.

 

맛있게 볶아진 닭똥집의 비주얼 우선 냄새가 코끝에 작렬이다.

 

 

 

 

우선 참기름을 붓고 깨소금을 넣고 소금을 넣어 양념장을 완성~~

 

 

 

 

맛있게 한세트가 만들어진 닭똥집 볶음 세트메뉴 왕 맛있어 보임.

 

 

 

고소한 냄새가 나는 닭똥집을 한젓가락 집어서 입속으로 고고~~

 

 

 

닭똥집 만에서 느낄 수 있는 고소함과 쫄깃함이 공존하는 술안주로써

 

최고의 맛과 향을 가진 속에는 든든함을

 

주는 맛있는 닭똥집을 포스팅완료한다.

 

 

 

728x90
반응형
:
Posted by mapagilove
2015. 1. 11. 19:08

아토피 비누 사용 후기 아토피 이야기2015. 1. 11. 19:08

728x90
반응형

 

 

 

아토피 비누 사용 후기

 

어제 갔다왔던 자연드림에서 아이피부로 항상 고민이 있었는데 가까운 곳에

 

한방에 해결할 방법이 있다니 어성초비누가 모든것을 해결하게 해준다.

 

 

 

갈색과 보라색톤이 섞인 묘한 비누색갈 와우 어성초 비누~

 

완전 고급스러워 보이는 포장이 자연발효임을 알려준다.

 

 

 

사각진 비누의 비주얼이 조금은 클래식한 느낌이다.

 

 

매끈한 모양새가 한손에 잡히는 그립감이 있다.

 

 

모양새가 왠지 건강에 좋을 것 같은 느낌이다.

 

6년 숙성된 어성초액으로 만들었고 조금 많이 비싼 4천900원이다.

 

우리아이 피부를 위해서라면 가차없이 써야지 ...

 

매끈해지는 우리 아이 피부를 위햐여~~

 

728x90
반응형
:
Posted by mapagilove
2015. 1. 11. 13:01

대구 이시아폴리스 방문후기 명 소 이야기2015. 1. 11. 13:01

728x90
반응형

 

 

대구 이시아폴리스 방문후기

 

 

대구 스파벨리를 다녀 오는 길에 들른

 

동대구의 이시아폴리스 원래 이시아폴리스에 대하여

 

들었던 탓에 롯데아웃렛이라는 것과 대규모 단지라 엄청 크다는 사실은 기본, 아이들옷도

 

살겸하여 한번 들러본다.

 

 

우선 주차를 하는데 주차장이 너무넓어 3팀이 약속을 해서 갔는데 같은 주차장에 주차를

못하여 정문앞에서 만난다.

 

정문에는 유아들 타는 기차가 칙칙폭폭 애들 엄마는 애들이 재미있게 노는 것에 지켜보고

이시아폴리스는 기차외에도 회전목마랑 아이들 차타는 곳이 무료이다.

 

 

 

 

 

이시아폴리스는 대부분이 각종 의류 브랜드, 가방, 스포츠웨어,모자, 아웃도어, 신발등 없는게 없다.

 

총 3층으로 구성되어 있는데

 

이런 것들을 좋아한다면 몇시간을 돌아도 다리가 아플정도이다.

 

 

 

아우 층층이 있는 브랜드들을 멀리서 보자면 사고싶은 마음이 ~~

 

 

입구를 조금 지나다보면 광장에는 멋진 광경이 이것은 아웃렛인지 궁전인지...

 

 

구석구석에 있는 브랜드들을 찾는 재미에 흠뻑 젖는다.

 

 

바깥에서 본 광경이다. 이시아 폴리스 바깥에도 엄청난 가게들이 즐비하다.

 

 

동내를 누비다가 발견한 득템 아이들 아이더 잠바 이날은 마침 겨울 아이템을 off하면서

 

30% 세일하던 탓에 구매 했다.

 

 

큰아이꺼랑 작은 아이 잠바를 샀는데 이미 초딩용은 가장 잘나가는 사이즈는 동이나서

 

사이즈가 없다. 그래도 마지막으로 득템하여 좋은 마음에 집으로 돌아선다.

 

 

스파벨리 관련 블로그

포레스트12 편백나무팬션이 좋다

대구 스파벨리할인정보 공유

대구 스파벨리 겨울스파

스파벨리 닥터피쉬경험기

스파벨리 가장한우식육식당

대구 이시아폴리스

대구 스파벨리의 여름

 

 

여름 물놀이

팔토시로 팔을 자외선으로부터 보호

여름 대구 스파벨리

여름수영복바지

옥천장용산 족대로 물고기잡기

부산광안리해수욕장

단양 사인암 물놀이

지리산 수락폭포

각종 여름휴가물품 준비

대전중리동 물놀이공원

소선암 물놀이

소선암에서 다슬기잡기

단양시장 맛집구경

사인암계곡 캠핑과 물놀이

단양구경 고수동굴

 

728x90
반응형
:
Posted by mapagilove
728x90
반응형

 

 

 

1.17 이사준비하기 - 이사짐센터 새집으로 이사가기

 

새로운 이사집으로 가기전 이전에 살던집을 매도하고 새집을 확인 후 새집에 대한

 

비용을 정산하고 이사집의 상태를 확인 후 모든 이사짐을 옮기러 고고싱~~

 

 

먼저 이사를 기전 우선 청소 서비스가 도착하여 2시간 청소하는 동안

 

들어갈 이사짐은 밖에서 대기 상태이다.

 

 

청소서비스 하시는 분은 총3분이신데 우선 바닥을 진공청소기로 빨아들이고

 

배란다 물청소, 곳곳의 먼지제거, 씽크대청소, 벽 청소, 약품처리 등을 꼼꼼하게

 

해주니 보고 있어도 믿음직하다.

 

 

마지막에는 빠지면서 스팀청소로 바닥까지 해주는 데

 

이때 와이프가 요소요소를 지정해주면 아주 친절히 일을 진행해준다.

 

 

감동~~ 음료수와 먹거리를 사와서 기다리시는 분과 청소하시는 분께 간식타임을~~~

 

주방, 거실, 베란다가 아주 깨끗~~

 

 

작은방과 큰방, 뒷베란다도 아주 깨끗~~~

 

 

이사짐을 옮기기까지 또 3시간이 소모되고 정리된 모습을 포스팅해본다.

 

거실로 빛이 들어오는게 아주 깨끗해 보인다.

 

 

 

거실부터 안방, 주방, 욕실까지 정리된 모습

 

 

앞베란다도 정리중~~

 

 

아직비어있는 아이들방까지 깨끗한 느낌이 물씬하다.

 

 

부억과 공부방도 깨끗한데 도배를 안한 탓에 조금은 아이들 낙서가 있는 부분이

 

곳곳에 있는 데 이부분은 매직블럭과 스티커제거제로 살살 밀어주면 아주 깨끗해진다.

 

 

뒷베란다와 아이들 방도 화사하게 정리되었다.

 

 

총평은 우선 에어컨 설치부터 이사짐옮기기까지 아주 친절하고 깔끔하게 잘 정리되어

 

이사짐센터에는 만족하고 책정리의 경우나 베란다 창고 정리도

 

와이프가 요구하는대로 군말없이 아주 친절히 정리해주는 것이 아주 마음에 들었고,

 

우선 이사전 작은 집기나, 필기구, 장난감을 한곳에 싸두고

 

 

솟옥이나 먼지가 묻을 것이 염려되는부분을 봉지에 싸서 서랍장에 넣어두고

 

그리고, 최종 물건을 놓을 위치들을 평면도에 그려둔 것이 이사짐센터분들과

 

소통하는 데 빠른 이해를 준것이 가장 잘했던 포인트였던 것 같다.

 

 

마직막으로 새집으로 이사가는 경우는 문제가 없겠지만 청소서비스를 받았더라도 마지막은

 

바닥을 매직블럭으로 때들을 지워주고 물걸레로 닦아주고

 

집기들의 먼지를 제거하는 것은 기본이다.

 

 

이사를 마친 소감은 다소 부족한 부분이나 페인트등의 부분이 필요할 수 있으나

 

최적의 선택은 깨끗하게 리모델링이 잘되어 깨끗한 집을 선택하는 것이 최선의 방법이라는

 

것을 강조하면 모든 이사준비 포스팅을 마감한다.

 

 

앞으로는 이사 후 집꾸미기 부분에 대하여 조금씩 포스팅 할 예정이다.

 

 

 

728x90
반응형
:
Posted by mapagilove
반응형