낭만소방관

폴더를 선택하면 폴더 안에 있는 텍스트 파일을 모조리 불러오는 방식이다. 배열을 이용하여 속도향상에 중점을 두었다. 파일을 많이 불러올 수록 효과가 있는 코드. 이로서 밀린 매크로 작업 완료. Option ExplicitSub impLongTxt() Dim rngImport As Range Dim strPath As String Dim fileName As Variant Dim i As Long, j As Integer Dim varTemp() As String '작업속도 상승 With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual '기존자료 삭제 With Sheets(2) .Selec..

vba 답변을 열심히 달다보니 채팅으로 따로 묻는 사람도 생기네. 함수는 약합니다. 우리 아들 사진 좀 살렸다. 사진스트림이 살렸네​​​​

기존에 이해하기로는 한 시트당 한 파일로 저장하는 걸로 들었는데 그게 아니라 일부 시트들을 한 파일로 저장하는 내용이었다. array로만 해결하려고 머리 싸매다가 해외 사례에서 의외로 쉽게 해결. 원래 저게 내가 하고 싶던 거였는데 ㅋ 이번 작업의 핵심은 inputbox를 이용하여 시트값을 받은 후 split으로 분리하고 val 함수를 이용하여 string 값을 integer 값으로 변환해주는 것 Sub mkFile() Dim inTemp As String Dim vrTemp As Variant Dim oldBook As Workbook Dim newBook As Workbook Dim i As Integer '처리 속도 높이기 With Application .Calculation = xlCalculat..

이름을 받고, 열번호를 받아서 그에 맞는 숫자를 입력하는 매크로 자음, 모음만 분리하면 어렵지 않은 문제다. 게다가 자음, 모음 분리하는 매크로가 인터넷에 있어서 쉽게 푼 문제. Function fnName(num As Integer, inName As String) Dim 초성 As Variant, 중성 As Variant, 종성 As Variant Dim vR() As Variant Dim i As Integer, j As Integer, n As Long, k1 As Integer, k2 As Integer, k3 As Integer Dim endJoin As String Dim rngName As Range 초성 = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ",..

바보다. 실컷 잘 놀고 잘 찍어놓고 아이포토 설정 바꾼 것도 모르고 ㅠㅠ​

시트명으로 파일을 저장하는 매크로. 뭔가 아쉽지만 일단 업로드. Option Explicit Sub mkFile() Dim strPath As String Dim strFile As String Dim i As Integer '저장경로를 현재 엑셀파일과 동일경로로 설정 strPath = ThisWorkbook.Path & "\" '시트1부터 시트 개수만큼 파일로 저장 For i = 1 To Sheets.Count strFile = Sheets(i).Name & ".xlsx" '시트명을 파일명으로 설정 Sheets(i).Copy '시트 복사 With ActiveWorkbook .SaveAs Filename:=strPath & strFile '현재 엑셀파일경로에 시트명으로 파일 저장 .Close '저장 후 ..

중복값을 다 나열하여 RemoveDuplicates로 중복값을 지우는 코드를 썼다가 카페의 Chronicle 님이 Collection 개체로 중복값을 찾는 방식을 알려줘서 그에 맞춰서 나도 다시 짜봤다. 중복값이 생기면 Collection에 중복값을 쌓아가고 셀에 그 배열들을 뿌리는 방식. 이를테면 공식 같은 거다. Option ExplicitSub dblName() Dim rngName As Range Dim rngCell As Range Dim cltName As New Collection Dim varName As Variant Dim i As Integer '기존항목 제거 후 제목 입력 With Range("C1") .CurrentRegion.ClearContents .Value = "중복이름" ..

빈셀이 많아서 의외로 까다로웠던 경우. resize(3,0) 이 아니라 resize(3,1) 처럼 Resize는 1이 기본값이라는 걸 뼈저리게 느꼈고 빈셀에 문자를 넣은 후 Like "[0-9]" 를 이용하여 숫자만 인식하도록 잔머리를 굴렸다. Option Explicit Sub 매크로1() Dim rngCopy As Range Dim rngStart As Range Dim rngCell As Range Dim rngArea As Range Dim intR As Integer Dim i As Integer, j As Integer Dim cntCell As Integer '기준셀, 작업시작셀, 열 수 정의 Set rngCopy = Range("C2") Set rngStart = Range("J1") in..

​주말을 맞이하여아침에 퇴근하자마자 에코센터로 출발.날이 흐려서 걱정했지만다행히 철새들은 강 위를 유유히 흘러다니고 있음.센터 안이 따뜻했으면 통유리 밖으로 펼쳐지는 철새들을 더 바라보고 싶었는데춥기도 춥고 선일이도 만덕할머니 집에 가자고 투정부리고. 카메라를 안 가져가서 폰으로 찍었으 ㅠ​​​​​

이런 건 쉬워서 안 올리려다가 EntireRow.Delete 를 활용해본 거라 적어서 올린다. 중복된 바코드는 없애고 유일한 바코드만 추출하여 바코드에 해당하는 수량의 합을 나타내는 매크로다. Option Explicit Sub sumCode() Dim rngCopy As Range Dim rngStart As Range Dim rngQty As Range Dim i As Integer Dim intR As Integer '원본 첫셀, 작업할 표의 첫셀, 수량 정의 Set rngCopy = Range("A1") Set rngStart = rngCopy.End(xlDown).Offset(5, 0) Set rngQty = rngStart.Offset(, 4) '기존 자료 삭제 rngStart.CurrentR..