문제 현상 "주의하세요! 문서 검사로 제거할 수 없는 개인 정보가 문서에 포함되어 있는 경우도 있습니다." 자꾸 이 팝업이 떠서 불편함을 겪는 경우 아래 가이드 처럼 하면 해결 가능! 해결 방법 [파일] 을 누르고 [옵션]을 선택 합니다. ​ [보안 센터] 이동 후 [보안 센터 설정(T)...] 선택 ​ ​ ​ ​ ​ 해결 완료! 이제 저장할 때 위와 같은 팝업이 발생 안합니다. #엑셀 #EXCEL #문서검사제거

vba 작업을 하다보면 가끔 특정 셀에 표시를 해주고 그 셀로 이동 시켜주어야 할 때가 발생 합니다. ​ 이럴 때 사용하는 코드를 공유하고자 합니다. ​ ​ 코드는 아래 한줄이면 됩니다. Application.Goto reference:=ms.Range("G10"), Scroll:=True ' 원하는 셀로 이동 후 스크롤 ​ 간단히 설명 하자면 Range("G10") 위치로 이동시키고 스크롤을 한다 정도로 표현할 수 있는데요. 저같은 경우에는 vba작업을 할 때 무조건 변수로 시트를 지정후 사용하기에 ms.range 라는 표현식을 사용했는데 아래 처럼 간단히 사용도 가능 합니다. Application.Goto reference:=[G10], Scroll:=True ' 원하는 셀로 이동 후 스크롤 ​ ​ ..

가끔 엑셀에서 자료를 입력할 때 반드시 대문자 이어야 하거나 대문자만 입력해야 하는 경우가 있습니다. 이럴 때 VBA에서 직접 FOR문을 통해 강제로 대문자로 바꾸어 줄 수는 있지만 사용자에게 알려주어야 할 때도 있어서 이런 글을 올리게 되었습니다. ​ 코드는 간단 합니다. 체크해야 할 문자를 Ucase 함수로 씌워 Check 하면 됩니다. Check해야 할 Letter를 Uppercase하여 원래의 letter와 비교하여 일치 한다면 Uppercase 인것이고. Check해야 할 Letter를 Lowercase하여 원래의 letter와 비교하여 일치 한다면 Lowercase 일테니까요. Sub test2() Dim str1 As String str1 = "Dss" If str1 = UCase(str1)..

vba 유저 폼 사용시 KeyDown Event 사용 Private Sub txtTerm_KeyDown(ByVal KeyCode As msforms.ReturnInteger, ByVal Shift As Integer) '//Keydown If KeyCode = 13 Then 'enter키를 눌렀을 때 동작 ' //코드 작성 End If End Sub

먼저 이 글을 올리는 이유는 출력하는 VBA를 만들다 보니 특정 요일은 제외하고 출력할 수 있는지에 대해서 건의가 들어와서 입니다. ​ 결론은 아래처럼 특정 요일에만 출력이 된다거나, 할 수 있다. ​ WorksheetFunction.Text("2019-05-03", "AAA") 직접실행창에서 나오듯이 "AAA"라는 형식을 사용하면 한글로 요일이 출력 되는 것을 볼 수 있습니다. ​ WorksheetFunction.Text WorksheetFunction 이라는 Object 의 Method 들 중에 하나인 Text 라는 method 를 이용해서 요일을 출력할 수 있습니다. 특정 요일만 출력할 수 있는 것이 아니라 VBA 에서 WorksheetFunction을 직접 쳐보면 알겠지만, 워크시트의 함수? 들을..

​ ① 이미지 하나를 복사한다. ② 다른 시트에 붙여 넣는다. ③ 위치를 조정한다. ④ 끝! ​ 전체 코드 중에서 가장 핵심이 되는 코드는 아래 몇 줄 되지 않는다 ' 이미지 복사 pic.Copy ' 이미지 붙여넣기 sht.Paste For Each shape In sht.Shapes Select Case shape.Type Case msoPicture, msoMedia, msoShapeTypeMixed, msoOLEControlObject, msoAutoShape ' 이미지 위치 맞춤 shape.Left = 30 shape.Top = 30 Case Else 'Do nothing End Select Next ​ ​ Sub 이미지붙여넣기() Dim m As Workbook Dim ms As Workshee..