In-Geol Choi
From CSBLwiki
(Difference between revisions)
(→Tips - think unthinkable!) |
(→Tips - think unthinkable!) |
||
Line 11: | Line 11: | ||
==Tips - think unthinkable!== | ==Tips - think unthinkable!== | ||
*Removing all animations at once from MS powerpoints slides [http://skp.mvps.org/ppt00037.htm VBA code] | *Removing all animations at once from MS powerpoints slides [http://skp.mvps.org/ppt00037.htm VBA code] | ||
+ | **VB code | ||
+ | <pre> | ||
+ | Sub 파일통합() | ||
+ | Dim OpenSheet As Workbook | ||
+ | Dim file As Variant | ||
+ | Dim WorkFiles As Variant | ||
+ | Dim copyTo As Range | ||
+ | WorkFiles = Application.GetOpenFilename(filefilter:="Excel,*.xls", Title:="파일선택", MultiSelect:=True) | ||
+ | For Each file In WorkFiles | ||
+ | Set OpenSheet = Workbooks.Open(file) | ||
+ | '선택한 파일을 하나씩 열고 OpenSheet변수에 담습니다. | ||
+ | Set copyTo = Sheet2.Cells(65536, 1).End(xlUp).Offset(1, 0) | ||
+ | 'sheet2의 마지막 데이터 끝부분에 붙여 넣기위해 입니다. | ||
+ | OpenSheet.Worksheets(1).UsedRange.Copy copyTo | ||
+ | '파일의 내용을 복사해서 붙여넣기 합니다. | ||
+ | '단, 통합하고자 하는 파일들의 sheet1에 데이터가 입력되어 있어야 합니다. | ||
+ | Application.CutCopyMode = False | ||
+ | OpenSheet.Close savechanges:=False | ||
+ | Next file | ||
+ | End Sub | ||
+ | </pre> | ||
*레퍼드 설치 후 FireFox에서 한글이 첫번째 그림과 같이 나올 경우 아래에 방법을 따라하면됨 (썬더버드도 마찬가지) | *레퍼드 설치 후 FireFox에서 한글이 첫번째 그림과 같이 나올 경우 아래에 방법을 따라하면됨 (썬더버드도 마찬가지) | ||
#FireFox 완전 종료 | #FireFox 완전 종료 |
Revision as of 00:31, 20 March 2009
Contents |
Introduction
Human Disease Network
CoPubMed
- Mysql database tutorial
- Retrieved publications
UMLS
- MRHIER,MRCONSO,MRXNW_ENG,MRRELM
GAD
- 노한성 Data GAD_data
Metabolome
Tips - think unthinkable!
- Removing all animations at once from MS powerpoints slides VBA code
- VB code
Sub 파일통합() Dim OpenSheet As Workbook Dim file As Variant Dim WorkFiles As Variant Dim copyTo As Range WorkFiles = Application.GetOpenFilename(filefilter:="Excel,*.xls", Title:="파일선택", MultiSelect:=True) For Each file In WorkFiles Set OpenSheet = Workbooks.Open(file) '선택한 파일을 하나씩 열고 OpenSheet변수에 담습니다. Set copyTo = Sheet2.Cells(65536, 1).End(xlUp).Offset(1, 0) 'sheet2의 마지막 데이터 끝부분에 붙여 넣기위해 입니다. OpenSheet.Worksheets(1).UsedRange.Copy copyTo '파일의 내용을 복사해서 붙여넣기 합니다. '단, 통합하고자 하는 파일들의 sheet1에 데이터가 입력되어 있어야 합니다. Application.CutCopyMode = False OpenSheet.Close savechanges:=False Next file End Sub
- 레퍼드 설치 후 FireFox에서 한글이 첫번째 그림과 같이 나올 경우 아래에 방법을 따라하면됨 (썬더버드도 마찬가지)
- FireFox 완전 종료
- Finder -> Applications -> FireFox 마우스 오른쪽 버튼 클릭 -> Show Package Contents 클릭
- Resources 폴더안 en.lproj 폴더의 폴더명 Korean.lproj로 변경 (주의) 대문자 K 사용
- FireFox 실행 후 확인
Misc.
Paul W. K. Rothemund manipulated molecules of DNA to create smiley faces that are one one-thousandth the width of a human hair. | |
Huge dust storms can be easily seen from space like this dust from China blowing across Korea and Japan in April 2002. |