엑셀VBA(9)
-
엑셀 VBA 특정 단어 포함 된 내용 찾아서 값 지우기
위와 같은 표의 경우에 아래의 조건을 만족할 때만 돌아가도록 해야 한다. For문을 1단계씩 늘리면 조건비교할 때 숫자 부분도 지워버릴 수 있기 때문. 조건1 : 특정 단계를 포함하는 단계의 값을 지운다. 조건2 : 모두 2칸씩 정해져있기 때문에 J + 1칸도 지워야 한다. Sub test() '======================================================== With Application .ScreenUpdating = False '매크로 동작, 화면에 안 나타남 .DisplayAlerts = False '클립보드 경고 메시지 안 나타남 .Calculation = xlCalculationManual ' 자동 계산 방지 End With '=================..
2020.04.09 -
msgbox "이름이 없습니다. 추가 하시겠습니까"그리고 나이는 현재 년도를 생년월일에서 뺀값이 자동으로 나오게 하고싶습니다.
Q : 안녕하세요 vba 코드질문입니다. 코드를 추가하고 싶은데 잘안되서 문의드립니다. 검색 기능코드에서 없는이름이있을때 msgbox "이름이 없습니다. 추가 하시겠습니까" 그리고 나이는 현재 년도를 생년월일에서 뺀값이 자동으로 나오게 하고싶습니다. A : 추가하시겠습니까? 를 예, 아니오로 선택할 수 있게 하고 만약 대답이 yes면 조건 안으로 들어가고 나이의 경우 now() 함수를 사용하여 format을 연도만 구해서 현재연도 - 생년월일 하면 될 것 같습니다. If MsgBox("이름이 없습니다. 추가 하시겠습니까?", vbYesNo) = vbYes Then '만약, "예" 버튼을 눌렀다면 ' 현재 year과 생년월일을 뺀다. txt나이 = Format(Now(), "yyyy") - Format..
2020.02.18 -
VBA Enter했을 때 동작하도록
VBA에서도 VB와 마찬가지로 UserForm을 사용할 수 있는데요. Userform에서 텍스트 박스에 내용 입력 후 엔터를 쳤을 때 무언가가 동작 하도록 하고 싶을 때 사용 합니다. Private Sub txtTerm_KeyDown(ByVal KeyCode As msforms.ReturnInteger, ByVal Shift As Integer) '//Keydown If KeyCode = 13 Then 'enter키를 눌렀을 때 동작 ' //코드 작성 End If End Sub
2020.01.08