지식을 나눠요

이벤트를 이용한 워크시트 제어 [셀 변경시] - G셀의 값이 단종이면 F열의 값을 0으로 바꿔주는 프로시저 Private Sub Worksheet_Change(ByVal Target As Range) Dim 표 As Range Set 표 = Range("A1").CurrentRegion If Target.Count = 1 Then // 현재표의 범위와 수정하고자 하는 범위가 같을 경우 (교집합, And조건) If Not Intersect(Target, 표.Columns(7)) Is Nothing Then If Target.Value = "단종" Then Target.Offset(, -1).Value = 0 End If End If End If End Sub [시트 삭제시 삭제 경고 메시지 없애기] App..

VBA의 오른쪽 상단의 '질문을 입력하세요' 란에 입력하세요 Range 개체 구성원 Worksheet 개체 구성원 [Range 개체] - 셀 하나 Range("A1") = Cells(1, 1) - (행번호, 열번호) = Cells(1, "A") - 연속된 범위 Range("A1:A10") = Range("A1", "A10") - (시작셀, 끝셀) - 정의된 이름 범위 Range("data") 지정된 범위로 영역을 잡을 경우, 셀이 이동하면 영역이 변경됨 따라서 해당열에 이름을 주워 관리하는 것이 좋음 ex) A1은 start로 H10을 end로 하면 Range("start", "end") - 다른 워크시트의 범위 Worksheets("Sheet2").Range("A1:A10") - 워크시트의 이름이 변경..

[변수선언] Dim 변수명 As 데이터타입 변수명 = 값 [변수선업 옵션] VBE창 [도구] - [옵션] - 변수 선언 요구 체크하면 : 선언되지 않은 변수는 사용할 수 없음 (창 상단에 Option Explicit) 체크하지 않으면 : 선언없이 변수를 사용할 수 있음 [상수선언] Const 상수명 As 데이터타입 = 값 [메시지박스] Msgbox prompt, buttons, title Msgbox 메시지내용, 버튼종류, 타이틀명 ex) Msgbox "안녕하세요" , vbOkOnly, '메시지창' [입력창] InputBox prompt, title InputBox 메시지내용, 타이틀명 InputBox "입력하세요", "입력창" 단, 입력된 값을 변수에 넣을 경우, InputBox ("입력하세요", "입..

Alt + F11 (엑셀 - Visual Basic 편집기) [엑셀의 VB코드] Range("C3").Value = "이원호" // C3의 값 세팅 Range("C3").Copy // 복사 Range("C7").Select // C7 선택 // 현재 활성화된 시트에 붙여넣음 Paste는 워크시트를 따라감 ActiveSheet.Paste // 복사모드 해제 Application.CutCopyMode = False VBA에는 엑셀에서 사용하는 함수 WorksheetFunction. (ex) WorksheetFunction.CountA(Range("A:A")) 나쁜예) Range("C1").value = "=Sum(A:A)" - C1의 셀에 Sum(A:A)를 쓰기에 매크로로 쓰기엔 안좋다. Visual Bas..

2003 버전 - 엑셀 구버전 *.xls - 바이너리타입 (101010100001)으로 저장됨 - 파일 복구가 어려움 - 65,000행 2007 이후 - 엑셀 신버전 *.xlsx (마지막의 x는 xml을 뜻함) - *.xlsm (매크로 파일) - 바이너리 타입이 아닌 xml타입 - 104만행 [매크로] ※ 매크로는 '실행취소(Ctrl + Z)'가 되지 않기 때문에 실행전에 반드시 파일을 저장해야 한다.