엑셀 시트별 파일분리 저장 스크립트

Admin_PDS 2011/08/10 22:30 Posted by 루루루

시트를 파일로 분리!

 

엑셀창에서 Alt-F11 누르시고 VBA 창이 나타나면 삽입-모듈 하시고 아래 코드를 붙여넣으세요.

 

코드 가운데 커서를 두시고 F5 를 누르시면 시트를 같은 폴더내 파일로 저장합니다.

 


Sub toFile()

Dim tR As Range
Dim tmp As String
For i = 1 To Sheets.Count
    Sheets(i).Select
    tmp = ActiveSheet.Name
  
    Set tR = ActiveSheet.Cells
    tR.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False ← 이라인 삭제(내경우)
    Cells.EntireColumn.AutoFit
    Application.DisplayAlert!s = False ← 이라인 삭제(내경우)
    ActiveWorkbook.SaveAs tmp & ".xls"  ← xlsx가 에러가 없었음 (내경우)
    Application.DisplayAlert!s = True
    ActiveWindow.Close
Next i

End Sub



두번째 스크립트


Sub 시트저장()
Dim Sht As Worksheet
Dim strPath As String
Application.ScreenUpdating = False
strPath = ThisWorkbook.Path & "\"
For Each Sht In Worksheets
 Sht.Copy
  ChDir strPath
  ActiveWorkbook.SaveAs strPath & Sht.Name & ".xls"
 Next Sht
  ActiveWindow.Close
  Application.ScreenUpdating = True
End Sub

저작자 표시 비영리 동일 조건 변경 허락
Tracback 0 Comment 0

효주 돌잔치 참석 명단

2011/08/04 14:51

보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.

가민방 레이아웃 재배치

Admin_PDS 2011/07/16 13:50 Posted by 루루루

가민방 Layout 재편_20110801.xls





http://b2b.smart010.com/ds/

The Principle of Consistency


People have a strong desire to be consistent with their previous opinion/assertions/action


When they set a rule/commitment/settlement actively and voluntarily


So in application, do not push/treats/pressure to accept a settlement.


Mediators should assure that the parties actively and voluntarily choose to accept the settlement.   

 

Are you happy with your life after marrage?

You can find great power of The Principle of Consistency

Even though you doesnot feel good with your wife or husband, you magange to keep your marage life instead of breaking up.

To tell you why you choose your partner and make a settelment in front of guest in you wedding.

In the textbook a case of restrant introduced.
When a restrant takes reservation on the phone, if receptionist say Plaese call if you have to change your plans" cause 30% ofm announced no-show rate

But if we change the sentence slightly 'Will you please call if you have to change your plans"
It dropping the unanounced no-show rate by 10%

The reason why is the Patron answered "Yes I will"







consistency.pptx

저작자 표시 비영리 동일 조건 변경 허락
Tracback 0 Comment 0

허츠 Hertz Club Gold 회원가입 정보

Admin_PDS 2011/06/21 11:36 Posted by 루루루
#1 Club Gold® 회원이 되신 것을 환영합니다

귀하의 회원정보는 다음과 같습니다

인쇄하기
카드 인쇄하기

1. 추후 사용을 위해 아래의 카드를 인쇄하여  보관하십시오.

2. 귀하의 회원가입 정보가 이메일로 발송되었습니다.

 

Gold 회원 가입 후, 최초 임차 시에는 반드시 Gold 회원 전용 서비스 카운터를 방문하셔서 운전면허증과 회원정보 상에 등록하신 신용카드 및 기타 사항을 확인하십시오.

MR SUNGHYUN RYU 

54540875
 회원 고유 ID 
ron.ryoo 

귀하의 현재 주소
ron.ryoo@samsung.com


카드 인쇄하기
저작자 표시 비영리 동일 조건 변경 허락
Tracback 0 Comment 0

그루폰

Admin_PDS 2011/04/18 01:24 Posted by 루루루

http://www.groupon.kr/app/rc/guldary
저작자 표시 비영리 동일 조건 변경 허락
Tracback 0 Comment 0

휴대폰 분실

Admin_PDS 2011/03/31 11:06 Posted by 루루루


- 1644-1188
승리상운 : 33아 8769
02-413-3626

휴대폰 분실신고시 아래 내용을 포함하여 경찰서 신고후 Fax 발송 요망
(신고시점 3개월간 관리해줌)

- 제조번호 : R65ZA27006
- 제품번호 : SHW-M110S
- 전화 : 031-270-2212 (전화 통화후 알려줌)

문은희 확인 0404, 11: 40

저작자 표시 비영리 동일 조건 변경 허락
Tracback 0 Comment 0

유 -> 류씨 변경

Admin_PDS 2010/09/22 15:09 Posted by 루루루
http://winging.tistory.com/226

저작자 표시 비영리 동일 조건 변경 허락
Tracback 0 Comment 0

Korea MBA

2010/09/16 10:51

보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.

아이 탐즈 기준

2010/08/30 11:05

보호되어 있는 글입니다.
내용을 보시려면 비밀번호를 입력하세요.

s6510 드라이버 잡기

Admin_PDS 2010/06/25 19:49 Posted by 루루루

1. fingerprint 드라이버 : 드라이버 소프트웨어 업데이트

2. PCI 메모리 컨트롤러 : 별도 설치
http://downloadcenter.intel.com/SearchResult.aspx?lang=kor&ProductFamily=%ec%b9%a9%ec%85%8b&ProductLine=%ec%b9%a9%ec%85%8b+%ec%86%8c%ed%94%84%ed%8a%b8%ec%9b%a8%ec%96%b4&ProductProduct=%ec%9d%b8%ed%85%94%c2%ae+%ed%84%b0%eb%b3%b4+%eb%a9%94%eb%aa%a8%eb%a6%ac

Tracback 0 Comment 0