VBA280 [VBA] 사이즈표 만들기(feat. 더블클릭 이벤트) 쇼핑몰에서 이미지를 다운받아서 가공하는 의뢰를 받았다. 의뢰받은거라 공개를 못하고 그중 사이즈표를 만드는 일을 공개하려고 한다. 파일을 불러온 후 적당한 위치에 놓고 사이즈를 완성한 후 필요없는 부분을 숨기기 처리한 후 파일로 저장하는 코드이다. 더보기 Option Explicit Private Sub Worksheet_Activate() '= 숨기기 취소 Dim rngM As Range: Set rngM = [n7:t17] rngM.ClearContents '= 내용 초기화 ActiveSheet.Cells.EntireColumn.Hidden = False ActiveSheet.Cells.EntireRow.Hidden = False End Sub Private Sub Worksheet_BeforeDoub.. 2022. 8. 26. [VBA] 나만의 OCR로 세상을 스캔해보자 오늘 해볼건 랜덤으로 생성된 4자리 숫자(번호판 4자리) 를 텍스트가 아닌 이미지로 인식하여 그것을 통해 텍스트를 추출하는 작업을 해볼것이다. 엑셀이 텍스트인데 왜 이걸 이미지로 인식해서 다시 텍스트로 긁어오냐는 식의 어의없음은 탑재를 안하길 바란다. OCR 엔진의 인식률은 좋은 편이다. 물론 이걸 사용하려면 윈도우10이어야 하고 윈도우에서 언어 패키지를 설치하여야 한다. 요즘 OCR엔진들은 학습도 가능하다고 하는데 이건 학습이 안된다고 한다. 참고하길 바란다. 처음에 OCR 영역을 설정하게 되면 영어와 숫자는 큰 무리없이 바로 마우스 포인트 옆에 스캔한 결과를 보여주는 tooltip이 생긴다. 이걸 클립보드에 담아서 각 해당 영역에 뿌려주는 코드이다. 완벽하지는 않지만 생각보다 인식률이 좋은 편이니 간.. 2022. 8. 11. [VBA] 고급필터를 이용한 옵션선택 더보기 본인이 고급필터를 처음 알았을 때 당시에는 Vlookup을 남발하던 시기였던걸로 기억한다. 아무것도 모른채 접한 고급필터는 정말 신세계였던 걸로 기억한다. 고급필터의 단점은 단발성이기 때문에 VBA와의 조합으로 연속적이며 가변적인 움직임을 줄 수 있다. 이번 구문은 이렇다 품목에서 제품에 맞는 각 옵션들을 불러와서 더블 클릭으로 선택한 아이템들이 해당 제품들의 각 위치에 정확히 들어가는 구문이다. 코드는 어렵지 않지만 생각보다 뽀대(?) 나는 작업임을 확신한다. 코드가 너무 쉽고 간단해서 코드 설명은 피하도록 하겠다. 더보기 Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean).. 2022. 8. 4. [VBA] 프린트 영역설정 보통 프린트 영역을 설정할때는 영역뒤에 PrintPreview를 붙히거나 아님 바로 인쇄하는 PrintOut을 사용한다. 이럴게 할 경우 프린트 대화창을 이용못한다는 단점이 생겨버린다. 이번 코드는 프린트 영역을 설정한 후 SendKeys를 사용하여 프린트 대화창까지 불러오는 코드를 만들어 보았다. 크게 어렵지 않으니 한번 보고 기억해 두길 바란다. 더보기 Option Explicit Sub 프린트영역() ActiveSheet.PageSetup.PrintArea = [a3].CurrentRegion.Address '= [a3]영역과 연속한 영역을 프린트 영역으로 설정해라 '= [a3].CurrentRegion.Address - Address을 안쓰면 오류 발생 SendKeys "%f" '= alt + f.. 2022. 7. 13. 이전 1 ··· 42 43 44 45 46 47 48 ··· 70 다음
