VBA 코드

Sub Send_Email (메일주소, 제목, HTML본문, 표범위, CC, BCC, 첨부파일, 구분자, 예약발송, 즉시발송, 그림으로붙여넣기, 서명삽입) 아웃룩과 연동하여 메일 발송을 자동화합니다. 웹·HTTP Function =xImage (URL/파일경로, 여백, 새로고침여부) 인터넷 URL 또는 파일 경로에서 실시간으로 이미지를 받아옵니다. 웹·HTTP Function =ImageLookup (파일명, 폴더경로, 일치옵션, N/A값, 경로출력, 테두리출력, 확장자) 직접 파일명을 입력하여 셀 안에 그림을 삽입합니다. 유틸리티 Function =Filtered_DB (DB, 조건, 열번호, 일치옵션) 데이터가 입력된 배열(DB)를 조건에 따라 필터링합니다. 배열 Sub Split_EachWS (범위, 기준열, 머릿글포함, 덮어쓰기, 열자동맞춤) 범위를 기준에 따라 여러개의 시트로 나눕니다. 시트·DB Function =Connect_DB (기존DB, ID번호, 연결할시트, 불러올필드, 머릿글포함) 서로 다른 두 시트 데이터를 관계형 DB로 연결합니다. 시트·DB Function =GetHttp (URL주소, Request-Header) 웹 페이지 정보를 HTML 문서로 받아옵니다. 웹·HTTP Function =HEX2FONTCOLOR (색상코드, 범위) 색상 코드로 선택한 범위의 글자 색을 변경합니다. 유틸리티 Sub Page_Setup (시트, 좌측머릿글, 우측머릿글, 좌측꼬릿말, 우측꼬릿말, 여백, 중앙정렬, 가운데정렬, 인쇄방향) 지정한 시트의 머릿글, 여백 등의 인쇄영역을 설정합니다. 유틸리티 Sub Multi_AutoFilter (기준열, 필터적용범위, 필터링값, 필터옵션) 지정한 범위에 다중 필터를 적용합니다. (옵션 선택 가능) 시트·DB Function =ExtractNumber (텍스트, 시작지점, 종료지점) 셀 안의 텍스트에서 숫자만 추출합니다. 텍스트 Sub InsertWebImage (셀, URL주소, 너비, 높이) URL을 지정하여 웹 이미지를 셀 안에 삽입합니다. 웹·HTTP Sub Insert_Record (시트, 값1, 값2, ...) 시트에 입력된 데이터베이스에 새로운 데이터를 추가합니다. 시트·DB Function =TrendX (차트이름, X값, 수식출력, 범례번호) 차트 추세선의 예측값을 계산하거나 수식을 출력합니다. 유틸리티 Function =ListFiles (폴더경로, 경로출력여부, 하위폴더포함, 최대깊이) 폴더 내 파일 목록을 출력합니다. 파일·폴더 Function =Extract_Column (배열, 열번호) 배열에서 지정한 열의 데이터를 추출합니다. 배열 Function =ExtractLetter (텍스트, 시작지점, 종료지점, 특수문자포함) 셀 안의 텍스트에서 '문자'만 찾아 추출합니다. 텍스트 Sub Save_EachWS (파일경로, 시트명, 덮어쓰기여부, 제외할시트) 각 시트를 나누어 각각의 통합문서로 저장합니다. 파일·폴더 Function =Sort2DArray (배열, 순번, 정렬방향, 가로방향정렬, 정렬시작지점, 정렬종료지점, 정렬한계값) 2차원 배열을 지정한 열에 맞춰 내림차순/오름차순으로 정렬합니다. 배열 Function =ArrayDimension (배열) 입력한 배열의 차원을 계산합니다. 배열 Function =GetColor (셀, 글자색반환, 반환옵션) 특정 셀의 글자색 및 배경색을 반환합니다. 유틸리티 Sub ImageConverter (기존파일경로, 새로운파일경로, 파일형식, 덮어쓰기, 그림품질, 최대넓이, 최대높이, 좌우반전, 상하반전, 회전각도) 지정한 이미지의 크기, 방향, 형식 등을 변경합니다. 유틸리티 Sub SQL_PRINT (연결문자열, 테이블이름, 출력셀, 필드목록, WHERE절, JOIN절, 머릿글포함, 열자동맞춤) 엑셀에서 SQL SELECT 쿼리를 실행한 후, 반환된 데이터를 시트에 출력합니다. SQL Function =TEXTJOIN 함수 (VBA) (구분자, 빈칸무시, 범위) 선택된 범위의 각 셀의 값을 구분자로 나눠서 합친 텍스트를 반환합니다. 텍스트 Function =vbFileSearch (파일명, 폴더경로, 일치옵션, 확장자, 경로출력여부) 특정 폴더 안의 파일을 정확히/유사일치로 검색합니다. 파일·폴더 Function =IsInArray (찾을값, 배열, 일치옵션, 반환형식, 검색차원) 배열 안의 값 존재여부를 정확히일치/유사일치로 검색하여 값 또는 목록을 반환합니다. 배열 Function =FileSequence (파일경로, 시작번호) 파일이름이 중복되지 않도록 순번을 매깁니다. 파일·폴더 Function =Get_UniqueDB (배열, 열번호, 고유열반환) 배열의 특정 열 또는 모든 열을 참조하여 고유값을 반환합니다. 배열 Function =IsErrorInArray (배열(또는 범위), 오류종류) 범위 또는 배열안의 오류 존재여부를 확인합니다. 배열 Function =ListFolders (폴더경로, 경로포함여부) 특정 경로의 하위 폴더 목록을 배열로 반환합니다. 파일·폴더 Function =Read_TextFile (파일경로, 인코딩형식) 파일경로의 메모장 또는 CSV 파일의 내용을 출력합니다. 파일·폴더 Sub SQL_INSERT (연결문자열, 테이블이름, 필드목록, 값목록) 엑셀에서 SQL INSERT 쿼리를 실행하여 데이터를 추가합니다. SQL Sub ArrayToRng (시작셀, 배열, 열번호, 하이퍼링크열번호) 배열 전체 또는 열 번호를 지정하여 시트 위 범위로 출력합니다. 배열 Function =GetFileApplication (파일경로) 선택한 파일의 실행프로그램을 찾아 반환합니다. 파일·폴더 Function =Base64ToFile (Base64코드, 파일경로) Base64로 작성된 코드를 디코딩하고 파일로 저장합니다. 파일·폴더 Function =CombineText (범위, 구분기호) 범위 내 문자열을 하나로 합칩니다 텍스트 Function =DecodeURL (URL주소, 출력여부) URL 주소를 기존의 한글/영문으로 디코딩합니다. (2016 이후버전 내장함수로 포함) 웹·HTTP Function =EncodeURL (문자열, 출력여부) 한글 또는 영문 문자를 URL로 인코딩합니다. (2016 이후버전 내장함수로 포함) 웹·HTTP Sub ExportText (텍스트, 파일명, 파일경로) 텍스트를 지정한 경로의 메모장으로 추출합니다. 파일·폴더 Function =Get_DB (시트, ID없음, 머릿글포함) 시트에서 사용중인 범위를 배열로 반환합니다. 시트·DB Sub Hide/ShowToolbar (전체화면) 실행 중인 엑셀 파일의 툴바를 숨기거나 보입니다. 유틸리티 Function =PlayAlarm (알림음종류, 완료대기여부) 윈도우 알림음 또는 기본 알림음을 지정하여 출력합니다. 유틸리티 Function =SaveImageFromURL (URL주소, 파일경로) URL 주소의 이미지를 지정한 경로의 파일로 저장합니다. 웹·HTTP Function =Splitter (문자열, 시작문자, 마지막문자) 시작 문자와 마지막 문자를 지정하여 두 문자 사이의 문자열을 추출합니다. 텍스트 Sub CreateTOC (분류기준, 정렬방향, 돌아가기링크생성, 링크위치) 시트를 지정한 기준에 따라 그룹화 및 정렬하여 목차를 생성합니다. 유틸리티 Function =CsvToArray (파일경로, 파일여부, 열강제맞춤) CSV 파일을 엑셀 파일의 배열로 반환합니다. 파일·폴더 Function =MeasureRange (범위) 범위의 넓이/높이 및 셀 병합여부를 확인합니다. 유틸리티 Sub OpenFolder (폴더경로, 보기형식) 지정한 경로의 폴더를 실행합니다. 파일·폴더 Function =ParseJSON (JSON데이터, 추출할필드, 1열머리글, 제외할문자열) JSON 데이터에서 지정한 필드 데이터를 추출하여 배열로 반환합니다. 웹·HTTP Sub ClearRange (범위1, 범위2, ...) 지정한 범위의 값을 초기화합니다. 범위를 직접 입력하거나 문자로 지정할 수 있습니다. 유틸리티 Function =isListBoxSelected (리스트박스) 리스트박스 안의 항목이 선택되었는지 여부를 확인합니다. 유틸리티 Function =RandBetweenUnique (최소값, 최대값, 개수, 제외값) 두 숫자 사이의 무작위 고유값을 지정한 갯수만큼 배열로 반환합니다. 배열 Function =SaveWS (시트, 파일경로, 파일명, 확장자) 선택한 시트를 특정 경로에 저장합니다. 파일·폴더 Function =SortArray (배열, 정렬방향, 숫자기준정렬) 배열을 오름차순/내림차순으로 정렬합니다. 배열 Function =SQL_CONN (연결문자열) 엑셀과 SQL 서버를 연결 후, ADO 개체를 반환합니다. SQL Function =CloseWB (변경사항저장, 안내창출력) 파일저장여부에 따라 파일을 강제 종료하거나 취소합니다. 파일·폴더 Function =FileExists (파일경로) 지정한 경로에 파일존재여부를 확인합니다. 파일·폴더 Function =FolderDialog (폴더선택창제목, 시작경로, 보기방식) 폴더선택창으로 사용자가 선택한 폴더의 경로를 반환합니다. 파일·폴더 Function =Get_Records (시트, ID, 필드명, 필드갯수조절) 시트의 지정한 항목(ID)을 만족하는 필드의 데이터를 반환합니다. 시트·DB Function =RngConcat (범위, 구분자, 빈칸무시) 선택한 범위의 값을 구분자로 병합합니다. 텍스트 Function =TextToNumber (텍스트, 단위) 숫자/문자 구분 없이 모든 텍스트를 숫자로 변환합니다. 텍스트 Sub Update_Record (시트, ID, 값1, 값2, ...) 시트의 데이터베이스를 업데이트합니다. 업데이트 할 데이터의 첫번째 값은 반드시 ID여야 합니다. 시트·DB Function =Convert_HtmlEntities (HTML코드) HTML 코드에 포함된 특수문자 표현문자를 실제 특수문자로 변경합니다. 텍스트 Function =cvRng (범위) 범위로 받아온 인수를 다른 데이터형태의 값으로 변환합니다. 배열 Sub Delete_Record (시트, ID, 행번호여부, ID열) 시트에서 지정한 ID 또는 행번호의 데이터를 삭제합니다. 시트·DB Function =Get_Dict (시트) 시트 안에 입력된 데이터를 Dicationary 개체로 변환합니다. 시트·DB Function =GetDesktopPath (백슬래쉬표시) 컴퓨터의 바탕화면 경로를 출력합니다. 파일·폴더 Function =GetRedirectURL (URL주소, RequestHeader) 접속시 리다이렉트 되는 URL 주소를 반환합니다. 웹·HTTP Function =GetVocList (메시지출력여부) PC에서 사용가능한 음성 변환 목록을 출력합니다. 유틸리티 Function =IsCellColored (범위) 선택된 범위에 배경색 존재 여부를 확인합니다. 유틸리티 Sub Reset_Notes (시트, 크기초기화, 위치초기화) 특정 시트에 사용한 모든 메모의 위치와 크기를 한 번에 초기화합니다. 유틸리티 Sub Set_Routine (명령문, 초, 분, 종료시간, 종료날짜, 종료명령문) 특정 명령문을 매초/매분마다 반복실행 합니다. 유틸리티 Sub SQL_DELETE (연결문자열, 테이블이름, WHERE절) 엑셀에서 SQL DELETE 쿼리를 실행하여 레코드를 삭제합니다. SQL Sub SQL_UPDATE (연결문자열, 테이블이름, 필드목록, 값목록, WHERE절) 엑셀에서 SQL UPDATE 쿼리를 실행하여 데이터를 업데이트합니다. SQL Function =ValidFileName (파일경로) 지정한 파일이름의 사용가능 여부를 확인합니다. 파일·폴더 Sub VocSpeak (텍스트, 사용언어, 강제종료) 텍스트를 지정한 언어로 읽어줍니다. PC에 해당 언어팩이 설치되어 있어야 합니다. 유틸리티 Function =SplitFileExt (파일명(또는 배열)) 파일경로에서 순수 파일경로(파일명)과 확장자를 분리합니다. 파일·폴더