티스토리

준이로그
검색하기

블로그 홈

준이로그

junelog.tistory.com/m

eldpawl 님의 블로그입니다.

구독자
0
방명록 방문하기

주요 글 목록

  • 엑셀 VBA 특정범위 제외 하고 영역 복사하기 특정범위 복구하기 Sub 버튼() Dim 제외범위주소 As String 제외범위주소 = "B2,C3" '유지하고 싶은 셀주소를 컴마로 구분하여 지정 Dim 복구리스트 As Object Set 복구리스트 = CreateObject("Scripting.Dictionary") 복구리스트.CompareMode = 1 '복구 할 범위를 셀주소와 셀값을 구분하여 딕셔너리에 저장 For Each 값 In Split(제외범위주소, ",") 복구리스트.Add 값, Range(값).Value Next '복사하기 Range("a1:c3").Value = Range("e1:g3").Value '복구하기 For Each 키 In 복구리스트.keys Range(키).Value = 복구리스트(키) Next End Sub 공감수 0 댓글수 0 2020. 10. 14.
  • 엑셀 VBA 배열 에러 null 값 변환 치환('13' 런타임 오류가 발생하였습니다 : 형식이 일치하지 않습니다) 배열을 컨트롤 하다 보면 데이터형식이 맞지 않아서 나오는 13 런타임 오류가 있다. string 형식 배열에 integer를 넣는다거나 그 반대거나 또는 기타 데이터형식 정의가 잘못되었을 경우에 나오는 오류인데 이 부분은 정확한 데이터형식으로 정의해주거나 Variant 형식으로 정의해주면 쉽게 해결 할수 있다. 하지만 엑셀 내의 데이터가 아닌 외부데이터를 다이렉트로 끌어다가 배열로 넣을때 심심찮게 Null 값이 들어가는 경우가 종종 있는데 이렇게 배열에 Null 값이 들어가 있을 경우 aryData(1,2) 처럼 값에 접근 또는 기타 배열 컨트롤 함수를 쓰려 할때 역시 '13'런타임 오류가 나온다. 위와 같은 Null값 문제의 경우 강제로 Null 값을 vbvbNullString 으로 모두 치환 해주면 .. 공감수 0 댓글수 0 2020. 9. 3.
  • 엑셀 VBA 매크로기록 으로 작성된 코딩을 단축 해 보기 매크로기록을 하게 되면 선택하는(마우스 클릭 등) 모든 대상이 불필요하게 select / selection 으로 잡히게 됩니다. 작업대상을 바로 지정할수 있다는 것을 알고 계시면 지금보다 코딩하기가 보다 수월해지실겁니다. 1. 작업대상을 선택 2. 선택한 대상을 작업 위처럼 두 단계가 아닌 1. 대상에 대한 작업 이 되게끔 코딩하시면 됩니다. 예를들어 매크로기록으로 차트안의 특정영역을 변경시 ActiveChart.PlotArea.Select Selection.Top = 0.21 Selection.Height = 210 위와 같이 코드가 쓰여지게 됩니다. 따라서 위 차트 예시의 경우 불필요하게 쓰여진 select / selection 제거하여 다음처럼 코딩을 해 볼수 있습니다. '▼다음과 같이 단축할수 있.. 공감수 0 댓글수 0 2020. 5. 19.
  • 엑셀 vba 포함 문자 바꾸기/지우기 셀의 값중 일부를 바꾸거나 지우려면 Dim 셀 As Range 셀.Replace "대상문자", "바뀔문자" '바꾸기 셀.Replace "대상문자", "" '지우기 string 문자열의 일부를 바꾸거나 지우려면 Dim 문자열 As String 문자열 = Replace(문자열, "대상문자", "바뀔문자") '바꾸기 문자열 = Replace(문자열, "대상문자", "") '지우기 선택 범위 내에 ★만 지우기 Sub vba포함문자지우기() Call 별_만_지우기(Selection) End Sub Function 별_만_지우기(적용범위 As Range) Dim 셀 As Range For Each 셀 In 적용범위 If InStr(셀.Value, "★") > 0 Then 셀.Replace "★", "" End If.. 공감수 1 댓글수 0 2020. 5. 12.
  • 엑셀 vba find 함수 응용 특정 행 지우기 tot라는 문자가 포함된 셀의 모든 행을 지우고 싶을 때 다음과 같이 접근하면 좋다. 'b열에서 "tot"가 포함된 셀을 찾아 EntireRow로 해당 행을 대상으로 With ActiveSheet.Range("b:b").Find("tot").EntireRow .Interior.Color = RGB(255, 111, 111) '실수를 방지하기 위해 배경색 잠시 하이라이트 If MsgBox("이거 지울꺼야?", vbYesNo) = vbYes Then '예를 선택하면 .Delete '행 삭제 Else '아닐경우 .Interior.Color = xlNone '배경색만 해제 End If End With 그러면 다음과 같이 행을 삭제 할수 있게 된다. 공감수 0 댓글수 0 2020. 5. 8.
  • 엑셀 vba 텍스트박스(TextBox) 클릭 시 텍스트 전체 선택 평소에는 위 처럼 클릭한 곳 기준으로 선택이 됩니다. 다음 코드를 추가하고 Private Sub txtAB_GotFocus() 'txtAB 는 텍스트박스 컨트롤 이름입니다. 변경해서 써주세요 With txtAB .SelStart = 0 .SelLength = Len(.Text) End With End Sub 다시 텍스트박스를 선택해보면 위와 같이 클릭시 텍스트박스 안의 전체 텍스트를 선택하게 됩니다. 공감수 0 댓글수 0 2020. 4. 27.
  • 엑셀 vba 코드 편집 주석(comment) 단축키(shortcut) 설정 하기 1. 메뉴바 오른쪽 클릭 2. 사용자 지정 선택 3. 단축키를 설정하고 싶은 아이콘 오른쪽 클릭 4. 이름(N) 옆의 텍스트를 "alt+&x" 로 변경(원하는 단축키 조합으로 변경) 5. "기본스타일"을 "이미지 및 텍스트"로 변경 1. 메뉴바 오른쪽 클릭▼▼ 2. 사용자 지정 선택▼▼ 3. 단축키를 설정하고 싶은 아이콘 오른쪽 클릭▼▼ 4. 이름(N) 옆의 텍스트를 "alt+&x" 로 변경(원하는 단축키 조합으로 변경)▼▼ 5. "기본스타일"을 "이미지 및 텍스트"로 변경▼▼ 닫기 버튼을 눌러 사용자 지정을 종료하면 이제 해당 메뉴를 지정된 단축키로 실행 가능합니다. 공감수 0 댓글수 0 2020. 3. 27.
  • 테이블 새 행 자동 생성 및 삭제 automatically add new row at table(Listobject) with Worksheet_SelectionChange 코드는 근본적으로 어떻게 동작하는가 관찰하기 쉽게 거의 그대로 넣었기 때문에 보기쉽게 정리되어 있지는 않습니다. 개개인의 환경에 따라서 변경 및 응용하여 사용하시기 바랍니다. worksheet에서 선택한 셀의 위치를 기준으로 코드를 실행합니다. 테이블(listobject) 범위 외에 다른 셀을 클릭하면 값이 아예 없는 모든 행을 삭제하는 del_emptyrow를 실행합니다. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '테이블 마지막 행 바로 밑의 셀 범위를 선택하면 새 행 추가 If Target.Count = 1 And Not Intersect(Target, ListObjects(1).HeaderRowRange.Offset(ListObje.. 공감수 0 댓글수 0 2020. 3. 26.
    문의안내
    • 티스토리
    • 로그인
    • 고객센터

    티스토리는 카카오에서 사랑을 담아 만듭니다.

    © Kakao Corp.