낭만소방관

엑셀이 2010 넘어서면서 이미지 삽입 방식이 직접 삽입이 아니라 링크 방식으로 바뀌면서 내 PC에서는 보이지만 상대 PC에서는 안 보이는 불상사가 생겼다. 이 코드는 삽입한 이미지의 링크를 제거하고 문서에 포함시키는 매크로 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim openFiles As Variant Dim strJpg As String Dim p As Object With Target If .Count > 1 Then Exit Sub If .Column 16 Then Exit Sub End With Application.ScreenUpdating = False strJpg = "그림파일 (*.jpg*), * .jpg * " o..

들쑥날쑥 불규칙적으로 데이터가 있는 상황에서맨 앞의 데이터만 가져오기 Sub valueFirst() Dim cntR As Integer Dim vFirst() As Integer Dim j As Integer Dim i As Integer Dim intC As Integer '기존자료 삭제 Range("H1").CurrentRegion.Offset(1).Clear '맨첫번째 값을 배열에 넣음 cntR = Range("A1").CurrentRegion.Rows.Count For i = 2 To cntR Select Case IsEmpty(Cells(i, 1)) '첫번째값이 빈셀인지 여부 Case False: intC = Cells(i, 1).Value2 '빈셀이 아니면 그 값 Case True: intC ..

고유값 추출과 배열 삽입 등 Dictionary를 사용한 예.예제 파일에 텍스트의 셀서식이 회계로 돼있어서 약간 헷갈렸네.거래처별 고유값을 추출하지 않아도 된다는 점은 함정.그것도 모르고 고유값 추출...;; Option ExplicitSub Macro() Dim rngA As Range Dim rngK As Range Dim rnG As Range Dim X As Object Dim dicA As Variant Dim vObj As Variant Dim vDic() As String Dim i As Byte Application.ScreenUpdating = False 'A열 K열 범위 설정 Set X = CreateObject("Scripting.Dictionary") Set rngA = Range(..

VBA 짜드립니다. 원하는 내용을 메일로 보내주신 후 댓글 또는 방명록으로 글을 남겨주세요. 코드가 짜여진 파일을 받으신 후에 본인이 원하는 가격을 계좌로 보내주시면 됩니다. 환불이 안 되는 점, 유의하세요. dorobo99@gmail.com 국민은행 107201-04-283486 백승창 무료로 이용하고 싶으신가요?? 소스코드는 공개되지 않고 해당 건에 대해선 업데이트가 되지 않습니다. 물론 오류는 수정해드립니다. 이 부분만 유의하세요 ^^

별거 없다. 달력을 순환하면서 같은 내용끼리 병합하는 매크로 빈셀마다 ‘ 가 붙어있고 셀색이 조건부서식으로 되어있는 것만 주의하면 됨 Sub rngMerge() Dim rnG As Range Dim rngData As Range Dim i As Byte '작업속도 향상 Application.ScreenUpdating = False '데이터 영역 설정 Set rngData = Range("A1").CurrentRegion With rngData Set rngData = .Offset(5, 1).Resize(.Rows.Count - 5, .Columns.Count - 1) End With For Each rnG In rngData With rnG ' '가 셀마다 있어서 '가 있는 부분과 없는 부분을 구분해서..

알파벳과 숫자의 최대값을 구하는 코드 폼으로 문서번호를 받고 문서번호에 맞는 버전을 찾아서 최대값을 구해준다. 영문과 숫자가 섞여있는 경우에는 숫자의 최대값만 출력 Private Sub CommandButton1_Click() Dim varNum() As Single Dim varChr() As Integer Dim vN As Integer Dim vC As Integer Dim wsList As Worksheet Dim rngList As Range Dim rnG As Range Dim maxNum As Single Dim maxChr As String '시트명 및 변수영역 Set wsList = Sheets("List") Set rngList = wsList.Range("A1").CurrentRegi..

한 시트에 다 불러서 한개만 있는 자료는 없애고 중복값 없애기 기능을 사용함 무식한 코딩의 좋은 예 Sub findDuplicate() Dim rnG As Range Dim rngPaste As Range Dim rngPhoneNumber As Range Dim i As Integer Application.ScreenUpdating = False '기존자료 삭제 Range("A1").CurrentRegion.Offset(1).ClearContents '각 시트 순환하면서 날짜, 매체, 성별, 주소, 이름, 연락처, 내용을 sheet1에 가져옴 For i = 1 To 3 Set rngPaste = Cells(Rows.Count, "B").End(3)(2) With Sheets(i) .Range("B4", ..

셀에 원하는 시간을 입력하면 그 시간이 되면 파일을 저장하고 PC까지 꺼주는 매크로 유용할지도 Sub pcTime() Dim dtTime As Date dtTime = Range("B1").Value2 Application.OnTime dtTime, "Macro" End Sub Sub Macro() Application.DisplayAlerts = False ActiveWorkbook.Save Shell "shutdown.exe -s -f" End SubColored by Color Scriptercs

기준표와 각 창고표가 있다. 기준표의 상품코드와 창고표의 상품코드를 비교해서 기준표의 상품코드에 맞게 순서를 재배치 하고 기준표에 없는 상품코드들은 기준표의 밖에 차례대로 재배치함. 이 모든 것들을 배열로 처리함. Option Base 1 Sub Macro() Dim vL As Variant Dim varR As Variant Dim vR As Variant Dim var창고() As Variant Dim varAll() As Variant Dim i As Byte Dim j As Byte Dim k As Byte Dim v As Byte Dim c As Byte Dim btMatch As Byte Dim rng창고 As Range Dim rngArea As Range '원본 시트 보호 위해 시트 복사 ..

실시간으로 변하는 그래프 주식차트같이 누적되는 그래프가 아니라 어느 정도 누적되면 기존 데이터는 없어지고 새로운 데이터만 유입되는 방식이다. 마니또님의 코드를 99% 가져온 코드 차이점이라면 마니또님 : 주식 그래프처럼 누적 시켜나감 수정본 : 옛날 데이터는 왼쪽으로 사라지고 새로운 데이터는 오른쪽에서 나타남 이것은 원본인 마니또님의 지식인 답변 http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=156393465&qb=7JeR7IWAIOyLpOyLnOqwhCDqt7jrnpjtlIQ=&enc=utf8&section=kin&rank=2&search_sort=0&spq=0 Option ExplicitPublic 타임 As Date, 간격 As ..