Kpaper Create Space
글, 그림, 게임 개발, 취미, 감상 이거저거 잡다하게 올립니다.
페이지
(다음으로 이동...)
블로그 홈
한스락 (HansLock) - Mac OS 스타일 한영 전환 Windows 유틸리티
▼
레이블이
Excel
인 게시물을 표시합니다.
모든 게시물 표시
레이블이
Excel
인 게시물을 표시합니다.
모든 게시물 표시
2020년 2월 7일 금요일
VBS 로 Excel Macro (Sub) 실행하기. Excel 백그라운드 매크로 실행
›
엑셀을 실행하지 않고 (백그라운드에서 실행하여) 매크로를 실행해주는 방법입니다. VBS 를 사용합니다. (Visual Basic Script) 새 텍스트 파일을 만들어 확장자를 .vbs 로 변경해주시고 아래의 코드를 붙여넣어보세요. 엑셀 파일은...
2020년 1월 29일 수요일
Excel VBA 엑셀 파일 경로 값 가져오기 File Location
›
엑셀 파일 경로 값 가져오기 Function getCellValue(LOC_, strFile , strSheet , strPath ) '파일을 여는 것 따로 해줘야 하는데, 열었다 닫았다 prcess 과부하가 걸릴 수 있으므로 주의 ...
2019년 9월 11일 수요일
Excel Vba Sheet 내용을 Text 파일로 저장하기 (UTF-8)
›
시트의 내용을 텍스트 파일로 저장하기. (UTF-8 대응) Sub SheetToText() Dim streamWrite As New ADODB.Stream '// 쓰기 스트림 선언 Microsoft ADODB 6.1 (ActiveX)...
EXCEL VBA로 euc-kr -> utf-8로 변경하는 코드
›
EXCEL VBA로 텍스트 쓸 때 이미 써진 파일을 euc-kr -> utf-8 로 수정하는 코드 'Microsoft ActiveX Data Objects 6.1 Library 참조 필요 Private Sub EuckrToUtf8NoB...
EXCEL VBA 텍스트 파일 저장하기 (출력하기)
›
data 코드의 일부를 자동 생성해주는 스크립트 만들 때 유용하다. Option Explicit Sub Createtextfile() Dim TF As Object Dim TFT As Object '만들기 Set TF = CreateO...
2019년 8월 20일 화요일
Excel 모든 시트 셀 내용만 지우기
›
아래의 스크립트를실행한다. Sub 모든시트내용지우기() Dim WS_Count As Integer Dim i As Integer WS_Count = ActiveWorkbook.Worksheets.C...
2019년 7월 1일 월요일
Excel 파일 Compare 하기
›
COM 추가기능에 Inquire 를 추가하면 Excel 파일을 비교하는 기능을 사용할 수 있다. Inquire 추가 방법
2019년 6월 12일 수요일
Excel 에서 JSON 파싱하기 (VBA사용, excel 365에서 확인 완료)
›
좋은 방법이 있을까 고민하다가 선구자를 따라가기로 했다. github에 괜찮은 도구가 있어서 이것을 소개한다. 해당 git에서 "JsonConverter.bas" 파일을 VBA 프로젝트로 가져오기 (Import) 하면 끝 Js...
2019년 4월 20일 토요일
Excel 어떤 단어가 몇개 포함하고 있는지 계산하는 방법
›
정규식으로 하려다가 엑셀 기능 가지고 해보게 된 일이 있는데... 어떤 단어가 1개 이상 포함된 경우 이것이 몇개 포함되었는지 확인하는 계산식이다. 만일 G2라는 셀에 "abc(VALUE)ab(VALUE)abcd(VALUE)eee...
댓글 1개:
2018년 11월 7일 수요일
Excel VBA 파일(Book)의 모든 시트에 함수를 삭제하고 값만 남기기
›
외부로 파일 전달시 유용하다. (수식이 깨지거나 바뀌어서 값이 변동되는것 방지) Sub MacroSaveValue() With Application: .Calculation = 3: .ScreenUpdating = 0 On Error Resume ...
Excel VBA 특정 컬럼 명(1열) 만 남기고 삭제하기.
›
대량 작업시 유용... Sub Delete_Cols_WithOut() Dim co As Long, I As Long Dim join As String co = ActiveSheet.Range("A1").C...
Excel VBA 시트마다 1셀 클릭으로 위치 초기화 하기
›
저장전에 해서 주면 다른 사람이 사용하기 좋다. 특별히 기능적인건 아님.. '1시트 1셀 클릭 초기화 Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Inte...
Excel VBA 해당 파일(Book)에서 돌면서 특정 시트 찾아서 지우기
›
특정 시트 찾아서 지우기 조금 고치면 여러 시트도 할 수 있다. WS_NameFindKey 에 지정된 이름을 찾는다. (아래 코드는 ETC) '폰트 생성과 관련된 시트 삭제 Sub RemoveFontSheet() Dim...
Excel VBA 해당 시트의 모든 서식 지우기
›
엑셀 작업 하는게 많아져서 매크로 제작한 것 백업 겸 공유로 올림 Sub 서식지우기() Dim co As Long, I As Long Dim ro As Long, J As Long Dim join As ...
2018년 3월 29일 목요일
엑셀 수식 -> 텍스트, 텍스트 -> 수식 팁
›
엑셀 수식을 텍스트로 만들 때는 함수로 간단히 된다. =FORMULATEXT() 반대의 경우는 준비된 함수가 없기 때문에 모듈을 새로 추가하여 아래와 같이 커스텀 함수를 만들어 준다. Function Eval(Ref As String) ...
2017년 11월 16일 목요일
EXCEL VBA 에서 Http Request 하는 방법
›
VBA 도구를 만들다가 외부 API 와 통신할 일이 있어서 남기는 기록이다. 보통 Open API 를 이용하면 JSON 으로 리턴되므로 이걸 파싱해서 쓰면 된다. 아래코드를 실행 하기 전에, 참조를 추가해야 한다. Visual Basic 도구...
댓글 1개:
인공지능 번역기 툴을 만들다가 남기는 후기
›
어플리케이션의 스트링 리소스를 한방에 (기계)번역하는 툴을 필요에 의해서 만들게 되었다. (복붙이 너무 귀찮았어...) 구글 API 는 유료이길래 별 생각 없이 라이벌(?) 이라고 불리는 네이버 PAPAGO Open API 로 번역을 해봤다. ...
댓글 1개:
›
홈
웹 버전 보기