본문 바로가기
  • 환영 합니다 ! Welcome!

VBA Code51

엑셀 VBA 교육 사이트 아이엑셀러 닷컴 엑셀과 VBA 활용의 모든 것 iexceller.com 2024. 1. 28.
VBA 사용을 위한 깃 허브 구성 하기 vbac를 이용한 vba 소스 코드를 git에서 관리하는 방법 vba를 사용하다 보면 간단한 매크로 같은경우는 크게 문제 없지만 소스 코드가 많아질경우 관리 하기가 쉽지가 않습니다. 버전 관리를 한다고 해도 vba의 경우는 xlsm 파일을 통으로 수정할때마다 cookiexcel.tistory.com 2023. 3. 5.
엑셀 VBA 메시지박스 (MsgBox) 에 문자열 줄 바꿈을 적용하는 방법 엑셀 VBA 메시지박스 (MsgBox) 에 문자열 줄 바꿈을 적용하는 방법 프로그램에서 개행 문자에는 Carriage Return(CR) , Line Feed(LF) 두 가지가 있습니다. 개행 문자란 텍스트의 한 줄이 끝났다는 것을 표시하는 용도입니다. 보통 줄바꿈 문자, 새 줄 문자라고도 합니다. mainia.tistory.com 2023. 2. 23.
특정 셀을 선택하면 해당 셀이 속한 행을 하이라이트 Excel VBA를 사용하여 특정 셀을 선택하면 해당 셀이 속한 행을 하이라이트하는 방법은 다음과 같습니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '이전에 선택된 셀의 하일라이트 해제 Cells.Interior.ColorIndex = xlNone '현재 선택된 셀이 있는 행을 하이라이트 If Target.Cells.Count = 1 Then Target.EntireRow.Interior.ColorIndex = 6 '하이라이트 색상 지정 End If End Sub 위 코드는 워크시트의 SelectionChange 이벤트 핸들러를 사용합니다. 이 이벤트 핸들러는 사용자가 워크시트에서 다른 셀을 선택할 때마다 호출됩니다. 이전에 선택된 셀.. 2023. 2. 21.
우와! 인공지능이 코드를 만들어 주었습니다 테스트 해보니 질문 하는 문장을 정확하게 하면 더 촣은 코드를 만들어 줍니다. 좀더 구체적인 질문을 하였습니다. 제가 원하는 코드 입니다 AI가 제공 하는 코드를 사용 하였습니다! 와 대한 합니다 Sub PartFileList() Call Creo_Connect On Error GoTo RunError '// Library Folder Dim oFolderName As String Dim oFolderNameCount As Integer oFolderName = Worksheets("Parameter List").Cells(6, "E") oFolderNameCount = Len(oFolderName) Dim oIstringseq As Istringseq Set oIstringseq = oSession.L.. 2023. 2. 21.
파일 화장자 이름 변경 하기 / 폴더에 동일한 이미지 체크 하기 파일 이름을 확장자를 변경 합니다. korea.prt를 korea.jpg로 변경 합니다. korea.asm을 korea.jpg로 변경 합니다 코드는 아래와 같습니다 Sub creoExtendChange() Dim CreoFileName As String, FileNameCheck As String CreoFileName = Cells(4, "D") FileNameCheck = Right(CreoFileName, 3) If FileNameCheck = "prt" Then Cells(4, "F") = Replace(CreoFileName, ".prt", ".jpg") ElseIf FileNameCheck = "asm" Then Cells(4, "F") = Replace(CreoFileName, ".asm",.. 2023. 2. 19.
버튼 이벤트 처리 방법 Excel 매크로 (VBA) - 009. 버튼 컨트롤 (Excel Form vs. ActiveX ) 전체 목차 - 001. 특정 행을 복사하여 삽입하기 - 002. 선택하여 붙여 넣기 기능 정리 - 003. 변수/Assignment/Loop/비교 - 004. 데이터가 있는 셀의 범위 알아내기 - 005. 데이터 시트(쉘) 순회하기 - 006. 셀 병 eggdrop.tistory.com 2023. 2. 19.
엑셀에서 음수를 양수로, 양수를 음수로 바꾸는 방법 엑셀 음수를 양수로 양수를 음수로 바꾸기 엑셀 음수를 양수로 양수를 음수로 바꾸기 엑셀에서 음수를 양수로 양수를 음수로 바꾸는 가장 간단한 방법... blog.naver.com 2023. 2. 11.
이미지 파일 제거 코드 Range("E4:E9").ClearContents Range("C11:C17").ClearContents '// 이미지 파일 제거 코드 Dim s As Picture Dim rng As Range Set rng = Range("A4:C9") For Each s In ActiveSheet.Pictures If Not Intersect(rng, s.TopLeftCell) Is Nothing Then s.Delete End If Next s 2023. 2. 9.
유효성 검사 유효성 검사 기능은 사용자의 입력 오류를 방지 하는 합니다. 예를 들어 "서울" 을 입력 해야 하는데. "ㅓ울"로 입력 하는것을 방지 할수 있습니다. "서울"을 선택하면, 서울에 해당 하는 "구"만 표시되고 선택 할수 있습니다 재질을 선택 할때 "금속", "몰드", "비-금속" 인지 선택 할수 있습니다. 그런 다음 해당 하는 재질 파일을 선택 할수 있습니다 유효성 검사 기능을 이용 하면, 별도의 Sheet에서 입력 해야 하는 데이터를 관리 할 수 있습니다. 입력 오류를 제거 할수 있어 정확한 데이터를 생성 할수 있습니다. ■ 데이터유효성검사 '목록' 여러개 만들기 VBA 데이터유효성검사 '목록' 여러개 만들기 위 와같은 데이터가 있다는 가정하에 진행을 합니다. 엑셀의 데이터유효성 검사의 '목록' 을 이용.. 2023. 1. 31.
진행률 표시 동영상상 Excel VBA의 # 1 진행률 표시기 아래에서 우리는 Excel VBA 그것은 진행 표시기. 우리는 진행 지표를 가능한 한 간단하게 유지했지만 전문적으로 보입니다. 우리가 생성 할 Userform은 다음과 같습니다. 이 사용자 정의 폼을 만들려 macerayarislari.com [vba] 작업진행 상태바 만들기(Progress Bar) 1. UserForm을 하나와 Module을 하나 추가합니다. 2. 다음으로 Label을 3개(Label1, Label2, Label3) 추가합니다.(아래 사진에는 Label1개가 안나왔네요) 3. Label1 은 배경이 되는 BaceColor 색상을 정해줍니다. 4. Label program1472.tistory.com >> 적용 하기 IpfcViewOwn.. 2023. 1. 19.
with ~End With 코딩을 더욱 간략하게 하는 With 이라는 구문을 사용 합니다. With문 사용하기 안녕하세요. "봄이" 입니다. 조금 오랜만이네요! 벌써 11번째 만남이라는거 아시나요? 한 자리수에... blog.naver.com >> 참고 동영상 얼렁뚱땅 엑셀 VBA] With ~ End With 구문 VBA에서 동일한 개체에 대해 여러가지 작업을 하는 경우 With ~ End With문을 사용하길 권장한다. With ~ End With문의 구문은 아래와 같다. With 개체. 구성원 = 변경값. 구성원 = 변경값End With 일단 With ~ End ttend.tistory.com 2023. 1. 12.