2015. 2. 18. 08:58

맥에어에서 사용할 수 있는 오피스 프로그램

336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

iWorks를 사용하면 가장 간단하겠지만 회사업무상 모든 프로그램을 윈도 환경에서 사용하므로 iWorks는 사용할 수 없습니다. 

무료로 사용할 수 있는 오피스 프로그램 중에 가능한 것을 몇가지 짚어 봅니다. 


1. 구글 독스

 - 가장 쉽게 이용할 수 있고 가장 편하게 사용할 수 있음

 - 어디서 작업하든 동일한 형태로 작업결과를 관리할 수 있음

 - 윈도에서 구글 독스 사용하는 것과 다를바 없음


2. Neo Office Free

 - 통합된 사용환경(문서, 스프레드시트 등을 하나의 메뉴에서 선택하여 사용)을 제공

 - 오픈 오피스와 뿌리가 같다고 하더니 비슷한 것같은 환경임

 - 프로그램 사이즈가 481mb이며 다운로드 받는 과정에서 오류가 발생하여 몇번 반복함

 - 몇 번의 시도 후 설치했는데 free 버전은 저장을 할 수 없으므로 사용 불가

 - 앱스토어에서 구입하면 사용할 수 있으므로 유료 버전이라고 하는게 정확함

 - 그냥 오픈 오피스 사용한게 나을 듯->오픈오피스는 설치 시 오류메세지 나타남


3. 씽크 프리

 - 온라인 버전으로 사용하는데 구글계정으로 접속하면 구글 독스에 올린 데이터를 가져와서 보여줌

 - 한컴에서 제공하고 있으므로 신뢰성이 높음

 - 프로그램 사이즈가 160.4mb이므로 쉽게 다운로드 됨


4. 오픈오피스

 - 윈도에서 사용한 경험이 있어 익숙한 환경

 - 그런데 다운 받았더니 아래의 메세지가 나타남

 - 맥 초보이므로 이 메세지를 해결하지 못함

 - 설치 실패


5. Libre Office 

 - 다운로드 크기는 180mb 정도

 - 오픈오피스와 뿌리는 같은 제품이라 별 차이가 없을 듯

 - 설치에 문제가 없음



 - 실행 환경은 윈도 환경과 유사한 것같은데 윈도 버전도 사용한지 오래라 제대로 기억은 나지 않습니다. 

 - 가장 쓸만한 제품인 듯합니다. 






'잡동사니' 카테고리의 다른 글

드롱기 청소하기  (0) 2015.04.11
Martha  (0) 2015.03.31
샤오미 미밴드 Xiaomi MiBand 사용기  (0) 2015.02.05
Aliexpress에서 물건 배송 기간  (0) 2015.01.01
周华健(주화건) - 朋友  (0) 2014.12.30
2015. 2. 5. 23:42

샤오미 미밴드 Xiaomi MiBand 사용기

336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

샤오미는 스마트밴드입니다. 저가의 스마트밴드이죠. 

사실 핏빗포스를 사려고 했는데 니켈 관련 이슈가 생겨서 판매중지되었다고 하네요. 


그래서 저렴한 걸로 일단 사서 사용해보고 마음에 들면 다시 사는 걸로 계획을 바꿨습니다. 

결론적으로는 다시 사진 않을거다는 겁니다. 미밴드로 충분히 만족합니다. 



일단 스마트 밴드는 운동량 측정해주는게 가장 중요한 기능이라 생각합니다. 

그리고 측정할 수 있는 운동 중 가장 쉬운게 만보계일겁니다. 


두 번째 요즘 중요하게 생각하는 수면, 스마트밴드는 수면에 대한 기록도 남겨주기 때문에 건강에 관심이 있으신 분들에게 더 매력적인 기능입니다. 


세번째는 스마트기기로서의 기능인데, 전화오면 알려주는 기능, 목표 운동량 도달하면 알려주는 기능, 그리고 알림기능이 제공됩니다. 


제품은 중국 사이트에서 19불에 샀습니다. 


1. 모양.

검은 플라스틱 느낌의 밴드에 은색의 작은 누에고치 같이 생긴게 붙어 있습니다.  



측정기 와 밴드는 분리될 수 있습니다. 




대체로 분리할 일은 없지만 충전할 때는 분리해야 합니다. 





충전하고 있을 때 불빛이 3군데서 보입니다. 

저 표시색은 변경할 수 있습니다. 




스마트 밴드를 손목에 찬 상태로 노트북 작업을 하려면 밴드 연결고리가 바닥에 닿습니다. 

보통은 괜찮지만 금속 재질의 노트북을 사용할 때 상당히 거슬립니다. 







2. 기능 

밴드를 연결 잭에 꽂아서 usb에 꽂으면 충전이 됩니다. 

한번 충전하면 2주는 가는 것같습니다. 








낮에 활동한 내역을 기록합니다. 

지금은 만보계 기능만 합니다. 

그런데 상당히 정확합니다. 오늘은 많이 걸었네요.

걸어다니면서 직접 측정해봤더니 속으로 센 숫자보다 좀 더 적게 찍힙니다. 

물론 손뼉을 치거나 팔을 흔들면 숫자가 올라갑니다. 이건 어쩔 수 없나봐요.








수면 시간도 측정해 줍니다. 

숙면한 시간과 얕은 잠을 잔 시간을 나눠서 보여줍니다. 

신기한 건 미밴드를 책상위에 두고 손대지 않으면 잠든 것으로 체크하는 줄 알았는데 아니더군요. 

지난 밤에 잠을 별로 못잤네요. 





지난 2일간, 미밴드를 풀어놓고 잠을 잤더니 수면 측정이 되지 않았네요. 








3. 설정

미밴드에는 다양한 설정을 할 수 있는 부분이 있습니다. 

설정할 수 있는 내용은 아래와 같은데 이 중 MiBand 설정만 했습니다. 



미 밴드를 사용하려면 미밴드 사이트에 가입하셔야 합니다. 

그래야 앱을 설치하고 사용할 수 있습니다. 

전화 수신 기능은 쓸만합니다. 

핸드폰을 진동 모드나 무음으로 설정하고 가방에 두거나 주머니에 넣어두면 전화를 놓치는 경우가 다반사였습니다. 

손목에 미밴드를 착용하고는 그런일이 거의 없습니다. 전화오면 설정된 시간 후에 손목에 진동이 옵니다.  






앞으로 많은 기능을 만들어 넣으려나 봅니다. 




알람 기능이 있지만 쓸일은 없고.. 

이걸 사용하면 배터리가 빨리 닳는다는 말이 있습니다. 




배터리는 오래 가는 편입니다. 그래도 2주에 1번 정도는 충전해야 합니다. 



2015. 1. 1. 02:23

Aliexpress에서 물건 배송 기간

336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

알리익스프레스에서 몇 개를 주문했는데 이 중 1개는 물건이 오지 않아서 'open dispute'해서 취소하고 나머지 2개를 받았습니다. 


1. 갤럭시 J 핸드폰 케이스 


15일 걸렸습니다.

12월 11일 주문해서 12월 26일 받았습니다.  

알리가 banggood 보다는 빨리 배송되는 것같습니다. 



  • 2014.11.26 15:42 (GMT-7): Delivery complete:Recipient : ????) Result : Delivery complete
  • 2014.11.26 08:42 (GMT-7): Arrival at delivery office
  • 2014.11.25 15:59 (GMT-7): Arrival at inward office of exchange
  • 2014.11.15 15:42 (GMT-7): Departure from outward office of exchange:Dispatch number : 13
  • 2014.11.15 10:15 (GMT-7): Departure from outward office of exchange
  • 2014.11.14 18:23 (GMT-7): Posting/Collection:Posting office zip code : 52**** Transit or Destination country : KOREA

'

2. 아동용 스키고글


12월 15일 주문해서 12월 30일 받았으니 15일 걸렸네요. 


  • 2014.12.30 15:31 (GMT-7): Final delivery
  • 2014.12.22 08:44 (GMT-7): Departure from outward office of exchange
  • 2014.12.20 15:58 (GMT-7): Collection



2014. 12. 30. 23:36

周华健(주화건) - 朋友

336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

http://www.youtube.com/watch?v=6lbPgfKK7m4

周华健(주화건) - 朋友 




 


这些年 一个人 风也过 雨也走

這些年 一個人 風也過 雨也走

zhe xie nian yi ge ren feng ye guo yu ye zou

그 시절 혼자서 비바람을 이겨냈어 

 

有过泪 有过错 还记得坚持什么

有過淚 有過錯 還記得堅持什麼

you guo lei you guo cuo hai ji de jian chi shen me

눈물도 흘리고 잘못도 했지만 무엇을 고집했는지 기억하는걸


真爱过 才会懂 会寂寞 会回首

真愛過 才會懂 會寂寞 會回首

zhen ai guo cai hui dong hui ji mo hui hui shou

정말 사랑했기에 이해할수 있었고 외로웠지만 돌이켜 보면


终有梦 终有你 在心中

終有夢 終有你 在心中

zhong you meng zhong you ni zai xin zhong

 내 마음속에는 항상 내 꿈과 너가 있어.

 

朋友 一生一起走 那些日子 不再有

朋友 一生一起走 那些日子 不再有

peng you yi sheng yi qi zou na xie ri zi bu zai you

 친구야 평생을 함께 가자 그 시절은 다시 오지 않지만


一句话 一辈子 一生情 一杯酒

一句話 一輩子 一生情 一杯酒

yi ju hua yi bei zi yi sheng qing yi bei jiu

한마디 말과 한 평생과 한 감정과 한잔의 술
 

朋友 不曾孤单过 一声朋友 你会懂

朋友 不曾孤單過 一聲朋友 你會懂

peng you bu ceng gu dan guo yi sheng peng you ni hui dong

친구야 더이상 외롭지 않을거야 친구란 말로 너는 이해할 거야


还有伤 还有痛 还要走 还有我
還有傷 還有痛 還要走 還有我


 hai you sheng hai you tong hai yao zou hai you wo

아직 상처가 있고 아플테지만 그래도 가야하는걸, 내가 있잖아.

 



2014. 12. 24. 11:06

Fedex 사칭 바이러스 조심

336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

페덱스 명의로 바이러스를 첨부한 메일을 받았습니다. 

요즘 직구를 많이하는 추세라 아마도 쉽게 속을 수 있는 메일인 것같습니다. 


postal notification service라는 제목으로 오는데 제목은 메일에 따라 조금씩 다른 것같습니다. 

첨부파일을 내려받아 출력한 후 가까운 우체국에 제출하라는 메세지가 포함되어 있습니다. 

get shipment label을 클릭하면 첨부파일을 다운 받습니다. 

첨부파일을 실행하면 바이러스에 감염됩니다. 

경험자들이 올린 글을 보면 문서도 안열리고 인터넷도 안된다네요. 

정상적인 프로그램 실행을 방해하는 것이겠지요. 

가장 좋은 대처 방법은 즉시 삭제 입니다. 

그런데 가만히 보면 바이러스 메일에 헛점이 있습니다. 

우선 발송자의 메일주소가 페덱스가 아닙니다. 

snoutsc579@lifelinkfound.org 라고 되어 있는데 페덱스에서 보냈다면 발송주소가 이렇지 않겠지요. 

그리고 첨부파일의 주소도 http://edgepowers.com/n/n/notification.zip입니다. 

실수로 위의 주소를 클릭해서 파일 내려받으실까봐 주소는 약간 변경했습니다. 


그러니까 모르는 주소 내지는 영어로 오는 메일이 있으면 메일 발송자 확인 과 첨부파일의 위치가 발송회사의 URL과 일치하는지를 반드시 확인해야 합니다 





2014. 12. 19. 13:57

banggood에서 물건 사서 받는데 까지 소요되는 시간

336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

banggood에서 한국으로 물건을 받는데 소요되는 시간을 알아봅니다. 

사실 물건에 따라서 판매인에 따라서 다르므로 몇 건의 거래를 기준으로 실제 경험을  기록해봅니다. 

대부분은 이 범위내에 들거라 생각합니다. 

우선 ems는 제외합니다. 당연히 제대로 들어올 거라 생각됩니다. 


1. http://img.banggood.com/thumb/other_items/upload/2014/04//SKU088679_0.jpg

배송시간: 0개월 21일

샤오미 피스톤2 이어폰 

주문일: Oct 14 2014

수취일: 11월 7일


대략 21일 정도


2. http://img.banggood.com/thumb/other_items/upload/2014/08/SKU150275-30.jpg

quadcopter 17.99달러

배송시간: 1개월 22일

    Larger view

    주문일 2014년 10월 27일 

    수취일: 2014년 12월 08일 

    약 1개월 20일이 소요되었네요.

    손바닥에 올려 둘만큼 작은건데 아주 재미있게 가지고 놀았습니다. 

    본체는 남자 어른 엄지손가락 한마디 크기입니다.

    어떤 분은 두 번 날리고 고장났다고 하시던데 저는 한 열흘 이상 날린 것같네요. 

    여기저기 부딪치고 떨어지고 했지만 고장은 안났습니다. 

    그런데 로터에 머리카락이 끼어들어가는 바람에 고장나서 그만....

    그래도 워낙 저가 제품이라 크게 아깝지는 않았습니다. 

    헬리콥터보다 날리기 쉽습니다. 특히 수평유지장치라고 해야 하나 아무튼 한쪽으로 기울면 반대쪽 날개가 일시적으로 정지해서 수평을 유지하더군요. 

    쪼그만한게 재주가 대단합니다. 



    3. http://img.banggood.com/thumb/other_items/upload/2012/chenjianwei/SKU078605%20(16).jpg

    배송기간: 0개월 16일


    골프클럽 헤드커버 8.26달러

    주문일: 2014년 11월 09일 

    수취일: 2014년 11월 25일

    약 16일 걸렸습니다. 받은 것 중에 가장 배송이 빠른 상품


    4. http://img.banggood.com/thumb/other_items/2014/zhaoyuhong/07/SKU155579/a.jpg

    배송시간: 1개월 5일






    샤오미 미밴드 + 셀카봉

    셀카봉은 실수로 주문한 건데 주문 즉시 취소신청을 했음에도 발송되었다고 거부하네요. 

    이 주문부터는 추적이 됩니다. 이전 주문은 추적이 디질 않더니만...

    둘 합쳐서 US$27.28 

    주문일: Nov 24 2014

    아래 배송 내역입니다.

    Destination Country - Cache Time:2014-12-19 09:21 - Go to official website

    Departure from outward office of exchange, Dispatch number :

    Origin Country - Cache Time:2014-12-19 09:21 - Go to official website

    The shipment item is under transportation, The item has been dispatched from Sweden Post, Direct Link's international terminal for onward transport abroad

    MALMO UTR/MMAH,Sverige, The item has been dispatched from Sweden Post, Direct Link's international terminal for onward transport abroad

    Order departed from sorting hub

    Order dispatched

    destination의 go to  official website 로 이동하면 우체국이 나오는데 거기 주문번호를 집어넣으면 발송대기로 나옵니다. 

    12월 19일 우체국에 문의했더니 아직 한국에 도착한게 아니랍니다. 

    즉 아직도 국제 배송 중입니다. 

    우체국 ems로 조회되기에 금방 오겠구나 했더니 그게 아니더군요. 

    이 외에도 두 개가 더 있는데 시간 나면...


    2014-12-29 

    드디어 샤오미 미밴드가 도착했습니다. 

    11월 24일 주문했고 12월 29일 받았으니 한달하고 5일이 지났네요. 

    생각보다 오래되지 않았네요. 오래된건가? 

    오래 걸렸다고 생각하는 가장 큰 이유가 배송 추적이 원활하지 않아서였던거 같습니다. 

    아래 표를 보시면 12월 11일에 한국으로 떠난 것같은데 실제 받기 까지는 18일이 더 소요되었습니다. 

    중국에서 물건 살 때는 그냥 잊어버리고 기다리는게 가장 좋습니다. 



    Destination Country - Tracking Consuming: 297 ms - Go to official website

    SL.GANGSEO, Delivery complete, Recipient : 김*학(), Result : Delivery complete

    SL.GANGSEO, Arrival at delivery office

    SL.GANGSEO

    BUCHEON MAIL CENTER

    BUCHEON MAIL CENTER

    INTERNATIONAL POST OFFICE

    INTERNATIONAL POST OFFICE, Arrival at inward office of exchange

    Departure from outward office of exchange, Dispatch number :

    Origin Country - Tracking Consuming: 3369 ms - Go to official website

    The shipment item has been delivered to the recipient, The shipment item was delivered on 12/29/2014 at 14:17 PM

    KOREA, REPUBLIC OF, The item has been delivered to the recipient abroad

    Local mail tracking

    KOREA, REPUBLIC OF, The item is now at customs abroad for determination of any customs duty payable.e

    Order awaiting customs clearance

    KOREA, REPUBLIC OF, The item has arrived at the international terminal in the destination country for sorting

    MALMO UTR/MMAH,Sverige, The item has been dispatched from Sweden Post, Direct Link's international terminal for onward transport abroad

    Order departed from sorting hub

    Order dispatched


    5. 샤오미 배터리 10400

    배송기간: 1개월 9일 

    핸드폰 배터리가 떨어졌을 때 사용하려고 주문했는데 사실 어디에 쓸까 고민되는 제품입니다. 

    가격은 21.94달러. 

    2만 3천원 정도 되러나요. 저렴한 배터리 팩 하나 마련하겠다 생각으로 샀습니다. 

    주문은 2014년 11월 20일 

    수취는 2014년 12월 29일 

    샤오미 밴드와 같은 날 배송 받았습니다. 



    Destination Country - Tracking Consuming: 296 ms - Go to official website

    SL.GANGSEO, Delivery complete, Recipient : 김*학(), Result : Delivery complete

    SL.GANGSEO, Arrival at delivery office

    SL.GANGSEO, Unsuccessful delivery, Reason : Absence of addressee, Result : Will attempt delivery on next working day

    SL.GANGSEO, Arrival at delivery office

    SL.GANGSEO

    BUCHEON MAIL CENTER

    BUCHEON MAIL CENTER

    INTERNATIONAL POST OFFICE

    INTERNATIONAL POST OFFICE, Arrival at inward office of exchange

    Departure from outward office of exchange, Dispatch number :

    Origin Country - Tracking Consuming: 1935 ms - Go to official website

    The shipment item has been delivered to the recipient, The shipment item was delivered on 12/29/2014 at 14:17 PM

    KOREA, REPUBLIC OF, The item has been delivered to the recipient abroad

    Local mail tracking

    KOREA, REPUBLIC OF, The item has arrived at the international terminal in the destination country for sorting

    Delivery attempt

    KOREA, REPUBLIC OF, The item is now at customs abroad for determination of any customs duty payable.e

    Order awaiting customs clearance

    KOREA, REPUBLIC OF, The item has arrived at the international terminal in the destination country for sorting

    MALMO UTR/MMAH,Sverige, The item has been dispatched from Sweden Post, Direct Link's international terminal for onward transport abroad

    Order departed from sorting hub

    Order dispatched


    결론적으로 중국에서 standard 배송으로 주문할 경우 1개월 10일정도 예상해야 한다는 거네요. 

    2014. 12. 9. 16:23

    프로젝트 투입 인력 관리 매크로2

    336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

    인력투입관리.xlsm


    약간 개선하였습니다. 

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

    프로젝트를 관리하다보면 투입인력 현황을 체크해야 하는 상황이 발생합니다. 

    이걸 매일 관리하기도 힘들고 그렇다고 한달에 한번만하기도 그렇고...

    그래서 만들었습니다. 인력관리매크로


    첫페이지에 투입인력 정보를 입력합니다. 

    두번째 페이지에 해당 인력의 투입내역이 나타나는 구조입니다. 


    먼저 인력 정보를 입력하는 화면입니다 

    이름 소속사 업무 투입일과 철수일 등급을 입력합니다.

    그리고 전체처리 버튼을 클릭합니다. 



    그러면 다음페이지에 아래와 같은 모양이 나타납니다. 

    먼저 회사 업무 등 의 타이틀과 날짜는 입력해 두어야 합니다. 

    7번째 행은 현재까지 인력별 투입일수입니다. 

    세번째 열은 현재 투입되어 있는 인력의 수 입니다. 

    철수일은 오늘을 기준으로 철수한 인력에만 표시됩니다. 

    오늘 날짜에 노란색 채우기가 된 부분은 자동서식을 적용했습니다. 

    셀값 = today()를 사용하였습니다. 

    일일 현황을 보려면 '일일현황'버튼을 만드록 dayStat()을 지정하면됩니다. 




    여기서부터 매크로 소스입니다. 

    간단한 소스입니다. 그래도 편리하게 사용하실 수 있습니다. 


    Sub setHPlanAll()

           '두번째시트에 명칭을 부여했음

        Sheets("일자별현황").Select

        Range(Cells(1, 4), Cells(6, 120)).ClearContents

        Range(Cells(8, 4), Cells(365, 120)).ClearContents


        '작업기준일

        If Cells(2, 1) = "" Then

            Cells(2, 1) = Date

        End If

        chkDate = Cells(2, 1)

        

        Sheets("투입인력목록").Select

            

        '4번째부터 값을 부여함.

        i = 4

        Do While i < 100 '100명이 넘지 않는 인력이 투입됨

            

            '해지 = 해지가 나오면 이하 모두 해지

            hejiMan = Cells(i, 1)

            If hejiMan = "해지" Then

                Exit Do

            End If

            

            '이름'

            Sheets("일자별현황").Cells(3, i) = Cells(i, 2)

            

            '회사'

            Sheets("일자별현황").Cells(1, i) = Cells(i, 3)

            

            '업무'

            Sheets("일자별현황").Cells(2, i) = Cells(i, 4)

            

            '투입일

            Sheets("일자별현황").Cells(5, i) = Cells(i, 5)

            

            '등급'

            Sheets("일자별현황").Cells(4, i) = Cells(i, 9)

            

            '철수일

            outDate = Cells(i, 6)

            If outDate <= Date Then

                Sheets(2).Cells(6, i) = Cells(i, 6)

            Else

            End If

            

            '다 했으면 종료

            If Cells(i, 2) = "" Then

                Exit Do

            End If

            

            '투입일'

            inDate = Cells(i, 5)

            '철수일'

                    

            '2번 시트로 이동함

            Sheets("일자별현황").Select

            dd = 8

            Do While dd < 300

                sdDate = Cells(dd, 1)

                If inDate <= sdDate Then

                    Cells(dd, i) = 1

                End If

                If inDate = outDate Then

                    Exit Do

                End If

                If sdDate > outDate Then

                    Exit Do

                End If

                

                If sdDate = chkDate Then

                    Exit Do

                End If

                

                dd = dd + 1

            Loop

            

            '1번 시트로 이동함

            Sheets("투입인력목록").Select

            

            i = i + 1

            

        Loop

        

        '2번 시트로 이동함

        Sheets("일자별현황").Select

        

    End Sub

    Sub dayStat()
        '일일현황을 작성한다.
        
        '작업기준일 잡기
        chkDate = Cells(2, 1)
        '입력이 안되어 있으면 오늘로 채운다.
        If chkDate = "" Then
            MsgBox ("작업일이 지정되지 않았습니다. 오늘을 기준으로 작업합니다.")
            Cells(2, 1) = Date
        ElseIf chkDate = Date Then
        Else
            anNum = MsgBox("기준일은 " & chkDate & "입니다. \n 오늘을 기준으로 작성할까요?", vbYesNo, "날짜확인")
        End If
        
        If anNum = 6 Then
            Cells(2, 1) = Date
            chkDate = Date
        End If
        
        Range(Cells(181, 1), Cells(210, 10)).ClearContents
        
        '처음시작하는 위치 찾기
        i = 8
        Do While i < 365 '1년을 생각함
        
            dayVal = Cells(i, 1)
            '돌다가 날짜를 찾으면 찾기를 중단한다.
            If dayVal = chkDate Then
                startRow = i
                Exit Do
            End If
            i = i + 1
            
        Loop
            
        '휴일은 날짜목록에 없으니 삭제해야 함.
        If startRow = "" Then
            MsgBox ("휴일을 선택하셨습니다. 날짜를 변경해주세요")
            Exit Sub
        End If
        
        '회사 그룹핑하기
        Range("D1:DZ1").Select
        Selection.Copy
        
        '복사위치잡기
        Range("C181").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Application.CutCopyMode = False
        ActiveSheet.Range("$C$181:$C$300").RemoveDuplicates Columns:=1, Header:= _
            xlNo
        Range("C181").Select

        '오늘 투입인력 구하기
        i = 4
        Do While i < 150
            chkWork = Cells(startRow, i)
            If chkWork = 1 Then
                chkCom = Cells(1, i)
                j = 181
                Do While j < 200
                    If Cells(j, 3) = chkCom Then
                        Cells(j, 4) = Cells(j, 4) + 1
                    End If
                    j = j + 1
                Loop
                    
            End If
            i = i + 1
            
        Loop
            
        
        '업무별 그룹핑하기
        Range("D2:DZ2").Select
        Selection.Copy
        
        '복사위치잡기
        Range("F181").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Application.CutCopyMode = False
        ActiveSheet.Range("$F$181:$F$300").RemoveDuplicates Columns:=1, Header:= _
            xlNo
        Range("F181").Select

        '오늘 투입인력 구하기
        i = 4
        Do While i < 150
            chkWork = Cells(startRow, i)
            If chkWork = 1 Then
                chkJob = Cells(2, i)
                j = 181
                Do While j < 200
                    If Cells(j, 6) = chkJob Then
                        Cells(j, 7) = Cells(j, 7) + 1
                    End If
                    j = j + 1
                Loop
                    
            End If
            i = i + 1
            
        Loop
            
        Cells(180, 6) = "합계"
        Cells(180, 7).Activate
        ActiveCell.FormulaR1C1 = "=sum(R[1]C:R[34]C)"
        Range("C181").Select
        
        
            
    End Sub


    'MACRO > EXCEL-MACRO' 카테고리의 다른 글

    행 삽입하기  (0) 2016.10.11
    매크로 팁  (0) 2016.10.04
    프로젝트 투입 인력 관리 매크로  (0) 2014.08.27
    로또 번호 생성기  (0) 2014.07.25
    추세분석 매크로  (0) 2013.12.27
    2014. 9. 2. 14:58

    풀소리 캠핑장-여러모로 좋았던 곳

    336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

    좋은점

    1.친절한 주인장

    2. 맑은 시냇물

    3. 한가한 캠핑장

    4. 기본적인 시설이 제공됨


    단점

    1. 해먹을 설치할 수 없음. 

    2014. 9. 2. 13:50

    한국일보-아이스버킷과 짐승의 시간

    336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

    좋은 기사가 있어서 소개합니다.


    [삶과 문화] 아이스버킷과 짐승의 시간
    http://hankookilbo.com/m/v/9b44d5b44c1c4e87b6c9fd78402cb0f4

    8월 14일 얼음물을 뒤집어 쓴 마크 저커버그가 빌 게이츠를 다음 아이스버킷 챌린지 당사자로 지목했다. 같은 날 오바마 미국 대통령은 미주리에서 벌어진 경관에 의한 흑인 대학생 총기살해 사건에 대한 담화를 발표했다. 8월 22일 한국의 여당 대표가 얼음물 샤워하는 장면을 한 종편 방송사가 생중계했다. 같은 날 40일간 단식을 이어오던 유민 아빠가 병원으로 이송됐다.



    '믿음으로 말미암아 살리라' 카테고리의 다른 글

    Via Dolorosa  (0) 2015.04.01
    You don't need to prove your point all the time!!  (0) 2014.01.03
    연하장에 우표를 붙이자  (0) 2013.12.30
    인생 2.0  (0) 2013.11.05
    말조심  (0) 2013.05.08
    2014. 8. 27. 10:26

    프로젝트 투입 인력 관리 매크로

    336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

    프로젝트를 관리하다보면 투입인력 현황을 체크해야 하는 상황이 발생합니다. 

    이걸 매일 관리하기도 힘들고 그렇다고 한달에 한번만하기도 그렇고...

    그래서 만들었습니다. 인력관리매크로


    첫페이지에 투입인력 정보를 입력합니다. 

    두번째 페이지에 해당 인력의 투입내역이 나타나는 구조입니다. 


    먼저 인력 정보를 입력하는 화면입니다 

    이름 소속사 업무 투입일과 철수일 등급을 입력합니다.

    그리고 전체처리 버튼을 클릭합니다. 



    그러면 다음페이지에 아래와 같은 모양이 나타납니다. 

    먼저 회사 업무 등 의 타이틀과 날짜는 입력해 두어야 합니다. 

    7번째 행은 현재까지 인력별 투입일수입니다. 

    세번째 열은 현재 투입되어 있는 인력의 수 입니다. 

    철수일은 오늘을 기준으로 철수한 인력에만 표시됩니다. 

    오늘 날짜에 노란색 채우기가 된 부분은 자동서식을 적용했습니다. 

    셀값 = today()를 사용하였습니다. 



    여기서부터 매크로 소스입니다. 

    간단한 소스입니다. 그래도 편리하게 사용하실 수 있습니다. 


    Sub setHPlanAll()

        Sheets(2).Select

        Range(Cells(1, 4), Cells(6, 120)).ClearContents

        Range(Cells(8, 4), Cells(300, 120)).ClearContents

        

        Sheets(1).Select

            

        i = 4

        Do While i < 100

            '회사'

            Sheets(2).Cells(1, i) = Cells(i, 3)

            

            '업무'

            Sheets(2).Cells(2, i) = Cells(i, 4)

            

            '이름'

            Sheets(2).Cells(3, i) = Cells(i, 2)

            

            '등급'

            Sheets(2).Cells(4, i) = Cells(i, 9)

            

            '투입일

            Sheets(2).Cells(5, i) = Cells(i, 5)

            

            '철수일

            outDate = Cells(i, 6)

            If outDate <= Date Then

                        Sheets(2).Cells(6, i) = Cells(i, 6)

            Else

            End If

            '다 했으면 종료

            If Cells(i, 2) = "" Then

                Exit Do

            End If

            

            '투입일'

            inDate = Cells(i, 5)

            '철수일'

                    

            '2번 시트로 이동함

            Sheets(2).Select

            dd = 8

            Do While dd < 300

                sdDate = Cells(dd, 1)

                If inDate <= sdDate Then

                    Cells(dd, i) = 1

                End If

                If sdDate = outDate Then

                    Exit Do

                End If

                If sdDate = Date Then

                    Exit Do

                End If

                

                dd = dd + 1

            Loop

            

            '1번 시트로 이동함

            Sheets(1).Select

            

            i = i + 1

            

        Loop

        

        '2번 시트로 이동함

        Sheets(2).Select

        

    End Sub


    'MACRO > EXCEL-MACRO' 카테고리의 다른 글

    매크로 팁  (0) 2016.10.04
    프로젝트 투입 인력 관리 매크로2  (3) 2014.12.09
    로또 번호 생성기  (0) 2014.07.25
    추세분석 매크로  (0) 2013.12.27
    엑셀에서 단어 추출하는 매크로  (0) 2013.12.27