낭만소방관

- http://cafe.naver.com/excelmaster/133228 빨간 글자를 찾아 대괄호를 입혀주는 매크로빨간 글자를 찾는 사용자정의 함수를 따로 만들었다. Option Explicit Sub BigBracket() Dim i As Integer Dim tmp As String Dim RedRange As Range Dim SingleRange As Range '기존자료 삭제 후 데이터영역을 설정합니다. Columns("B").Clear Set RedRange = Range("A1", Cells(Rows.Count, 1).End(3)) '데이터 영역을 순환하며 작업을 실행합니다. For Each SingleRange In RedRange With SingleRange tmp = FindRed..

http://cafe.naver.com/excelmaster/132638 시트1에 DB가 있고시트2에서 기간 및 출발동 조건을 주어 검색버튼을 누르면조건에 해당하는 결과값을 출력해주는 SQL + 결과 출력 시트 + + DB 시트 + Option Explicit Sub Macro() Dim ADO_Connect As New ADODB.Connection Dim ADO_Record As New ADODB.Recordset Dim sql As String Dim ExcelVersion As Integer Dim OLEDB_Connect As String Dim FirstDay As Date Dim LastDay As Date Dim StartDong As String '파일 버전을 확인하여 OLEDB를 사용할..

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=264482360 중복제거된 품목을 출력하고 품목별 수량을 합계낸 결과물.품목이 두개 이상인 것만 출력한다. Option Explicit Sub Macro() Dim ADO_Connect As New ADODB.Connection Dim ADO_Record As New ADODB.Recordset Dim sql As String Dim ExcelVersion As Integer Dim OLEDB_Connect As String '파일 버전을 확인하여 OLEDB를 사용할 버전을 정합니다. 'ADO에 기본으로 들어가는 내용입니다. Select Case Application.Version Cas..

- http://cafe.naver.com/excelmaster/132560 담당자별로 담당 중인 매장수를 출력해주는 SQL기본서에 나오는 내용임에도 응용이 아직 안 된다.기초를 더 다지고 응용도 열심히 해봐야지 Option Explicit Sub Macro() Dim ADO_Connect As New ADODB.Connection Dim ADO_Record As New ADODB.Recordset Dim sql As String Dim ExcelVersion As Integer Dim OLEDB_Connect As String '파일 버전을 확인하여 OLEDB를 사용할 버전을 정합니다. 'ADO에 기본으로 들어가는 내용입니다. Select Case Application.Version Case Is = ..

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=264443866 상호나 품명으로 검색하면 해당 결과를 별도의 시트에 출력해주는 매크로.신나신나 Option ExplicitPrivate OLEDB_Connect As StringSub GetExcelVersion() Dim ExcelVersion As Integer '파일 버전을 확인하여 OLEDB를 사용할 버전을 정합니다. Select Case Application.Version Case Is = 12: ExcelVersion = 12 Case Else MsgBox "엑셀 버전을 확인해주세요" Exit Sub End Select OLEDB_Connect = "Provider=Micros..

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=264399542 F3에서 제품명을 변경하면 그에 맞는 제품원가의 최대값을 불러오는 ADO.SQL을 공부하고 엑셀에 접목시켜보았다.역시 책으로만 보는 것과 직접 짜보는 것은 차이가 있네. Option ExplicitSub Macro() Dim 연결 As New ADODB.Connection Dim OLEDB_Connect As String Dim FilePath As String Dim rS As New ADODB.Recordset Dim sql As String '파일 버전을 확인하여 OLEDB를 사용할 버전을 정합니다. FilePath = ThisWorkbook.FullName Sele..

- http://cafe.naver.com/excelmaster/131930 품번을 입력하면 다른 시트의 데이터에서 일치하는 항목을 불러오는 고급필터 예제입니다. Option ExplicitSub mSearch()'고급필터를 활용한 매크로입니다.'A2에 품번을 입력하고 버튼을 누르면 품번에 맞는 자료를 가져옵니다. Dim 품목대장 As Worksheet Dim wsList As Worksheet Dim 조건 As Range Dim 출력위치 As Range Set 품목대장 = Sheets("품목대장") Set wsList = Sheets("list") Set 조건 = 품목대장.Range("A1:A2") Set 출력위치 = 품목대장.Range("A7:F7") wsList.Range("A1").CurrentR..

- http://cafe.naver.com/excelmaster/131920 / 기준으로 나누어 셀에 출력.Split 과 정규식버전으로 나눔 자세한 사항은 주석 참조 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657Option Explicit Sub mSplit() Dim rnG As Range Dim Data As Range Dim v As Variant 'A열의 데이터를 순환합니다. '/ 를 기준으로 나누어 [ ] 를 제외한 데이터를 출력합니다. Set Data = Range("A1").CurrentRegion Range("C1").CurrentRegion.Cle..

- http://cafe.naver.com/excelmaster/131866 피벗테이블의 기본기능을 이용하면 쉽게 풀리는 예제꼭 매크로로 할 것도 없이텍스트파일을 불러온 후 피벗을 새로고침해도 되는 일이다.아직 피벗에 약해서. 하나하나 뜯어봄자세한 것은 주석 참고 텍스트파일을 불러올 때 한줄씩 셀에 출력하다보니 속도에 문제가...일단 피벗에 초점을 두고..ㅋㅎ Sub LoadTextFile() Dim strFilter As String Dim strFile As Variant Dim i As Integer Dim v As Variant Dim Line As String '변수설정 ActiveSheet.UsedRange.Clear ChDir ThisWorkbook.Path strFilter = "텍스트파일..

주말과 법정공휴일까지만 적용되어 혼자만 쓰고 있던 달력을대체공휴일까지 적용되도록 수정했습니다. 대체공휴일 규칙을 어떻게 정하면 좋을까.. 고민고민을 하다가 의외로 간단하게 풀렸네요. Option Base 1Option Explicit ' ==================================================================='' A1 와 B1에 연, 월을 입력하면 기간에 맞춰서 달력이 수정됩니다.' 연도는 1990 ~ 2030년 사이에서 선택 가능합니다. 데이터 유효성검사에서 수정 가능합니다.' 주말, 공휴일, 대체공휴일이 강조됩니다. 대체공휴일은 2015 ~ 2029년까지 적용됩니다.' 음력변환 코드는 인터넷에서 찾았습니다. ' *제작자 : 당근쨈(dorobo99@gma..