엑셀 시트에서 셀을 선택하고 실행하면 셀이 자동으로 합처지는 초간단 VB 코드입니다. Sub testCellMerge() Dim rStart As Range Dim rend As Range Dim index As Integer Application.DisplayAlerts = False Set rStart = Selection.Cells(1) For index = 1 To Selection.Cells.Count If Selection.Cells(index) Selection.Cells(index + 1) Then Set rend = Selection.Cells(index) Range(rStart, rend..
초보자도 쉽게 따라 할 수 있는 VBA 코드로 XML 파일 데이터를 가져 오는 샘플 코드 입니다.샘플코드를 보고 여려가지로 응용해 보세요 Sub xmlOpen_Click() Dim fd As Office.FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .Title = "Select a XML File" .Filters.Add "XML File", "*.xml", 1 .AllowMultiSelect = False If .Show = True Then..
엑셀 작업시 파일을 복사해야 하는 경우가 종종 발생합니다. 단순히 파일을 복사하는 것은 쉽지만,VBA를 활용하면 복사 과정을 자동화 할 수 있습니다. 샘플코드를 사용하면 특정파일을 엑세 시트에 명시된 명으로 자동으로 파일 복사를 수행합니다. Sub procFileCopy() Dim iChoice As Integer Dim strPath As String Dim sRow As Integer Dim eRow As Integer Dim eCol As Integer Dim index As Integer Dim tarPath As String Dim szTargetFileName As String Dim szFilenamePrefi..
여러 파일의 특정 셀 내용을 일괄적으로 변경해야 하는 상황은 누구에게나 번거롭고 시간 낭비로 느껴질 수 있습니다.초보자도 쉽게 따라 할 수 있는 엑셀 파일 특정 셀 내용 일괄 변경 샘플을 제공합니다. 아래 샘플 코드는 VBA 매크로 이고 해당코드 기반으로 여러가지 응용이 가능합니다. Sub Button1_Click() Dim szFileList() As String Dim tarPath As String Dim fileExt As String Dim fileName As String Dim index As Integer Dim tmpBox As Workbook Dim changeStr As String fileExt = "*.xls..
엑셀은 데이터를 정리하고 분석하는 데 매우 유용한 도구입니다.때로는 엑셀 데이터를 다른 프로그램에서 사용하거나, 웹사이트에 업로드하거나, 간단하게 텍스트 형식으로 저장해야 할 때가 있습니다. 이럴 때 엑셀 데이터를 텍스트 파일로 변환하는 Macro를 사용하면 편리합니다. 텍스트 파일은 엑셀 파일보다 용량이 작고, 다양한 프로그램에서 호환되기 때문에 데이터 공유 및 관리에 효율적입니다텍스트 파일은 간단한 텍스트 편집기로도 열람 및 수정이 가능하여 편리합니다. 엑셀 데이터를 텍스트 파일로 변환하는 VBA Macro 샘플소스를 제공합니다.샘플을 참고 하여 여러방식으로 응용하도록 돕습니다. Sub ConvertToTextFile() Dim szTarSheetName As String Dim szT..
