CSE 전공노트

VBA를 활용해 셀에 Comment를 삽입할 수 있습니다. Sub Add_Comment() Dim sht As Worksheet Set sht = Sheet6 sht.Range("A1").AddComment ("This is Comment") End Sub 참고로 이미 셀 내에 Comment가 존재하는 경우 AddComment를 실행하면 오류가 발생하게 됩니다. 이미 Comment가 존재하는지를 확인한 뒤, 존재하는 Comment가 없을 경우에만 Comment를 작성하고 싶다면 아래와 같이 코드를 작성해주면 됩니다. Sub Add_Comment() Dim sht As Worksheet Set sht = Sheet6 If sht.Range("A1").comment Is Nothing Then sht.Ran..

VBA를 이용해 개발을 하다보면 Access DB 내에 있는 모든 테이블의 이름을 List로 출력해주어야 할 일이 종종 있습니다. 우선 다음과 같이 테이블을 몇 개 만들어 줍니다. 저는 table1, table2, table3라는 3개의 테이블을 만들어주었습니다. 그리고 module에 아래의 코드를 삽입하고 실행해줍니다. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Sub Show_Table_List() Dim dbCon As ADODB.Connection '데이터베이스와의 연결을 담당하는 객체 Dim dbRs As New ADODB.Recordset '데이터 탐색 및 조작을 담당하는 객체 Set dbCon =..

Excel에서 VBA를 사용하여 Access DB를 읽어오는 방법을 살펴보겠습니다. 우선 Access를 실행시켜서 테이블을 마음대로 하나 만들어줍니다. 그리고 VBA에서 module을 하나 만들어 다음의 코드를 작성해줍니다. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub accdb_select() Dim dbCon As ADODB.Connection '데이터베이스와의 연결을 담당하는 객체 Dim dbRs As New ADODB.Recordset '데이터 탐색 및 조작을 담당하는 객체 Dim dbQuery As String '실행할 sql Query Dim tableName As String Dim targetSht As Worksh..

VBA 사용 시 Sheet 내에서 특정 셀의 값이 수정되었을 때 어떤 이벤트를 발생시키고 싶을 때 사용할 수 있습니다. 1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub worksheet_change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("A1:B2") If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then MsgBox (Target.Address & " : " & Cells(Target.Row, Target.Column).Text) End If End Sub Colored by Color Scripter cs Wor..

VBA에서 Protected와 Lock을 이용하면 시트의 내용을 수정하지 못하도록 설정할 수 있습니다. 또한, Locked를 False로 설정하면 원하는 Range만 내용을 수정할 수 있도록 만들 수도 있습니다. 바로 코드를 살펴보겠습니다. Sub LockOnlySelection() Dim pw As String pw = "123" 'You can change password Dim sht As Worksheet Set sht = Sheets("Sheet3") Dim unlock_target As String unlock_target = "A1:B2" If sht.ProtectContents = True Then 'if sheet is protected then unprotect sht.Unprotect..

VBA에서 Progressbar를 사용하는 법을 알아보겠습니다. Progressbar는 작업의 진행률을 시각화해서 보여줄 때 유용하게 사용할 수 있습니다. 우선 도구 상자에 Progressbar가 기본적으로 나와있지 않기 때문에 도구 상자에 추가해주는 작업부터 해주어야 합니다. 도구 상자에서 우클릭 후 [추가 컨트롤] 메뉴에 들어가줍니다. 쭉 내려서 Progressbar을 찾아줍니다. 우측 체크 박스에 체크를 해준 뒤 [확인] 버튼을 눌러줍니다. 자 이제 Userform을 하나 만들고 Progressbar와 버튼 하나를 만들어줍니다. Progressbar가 잘 작동하는지 확인해주기 위해 0부터 100까지 반복되는 반복문을 하나 만들어 주겠습니다. 그런데 그냥 반복문을 실행하면 너무 빨리 작동이 끝나기 때..

이번 글에서는 엑셀의 리본 메뉴에 내가 만든 매크로를 추가하는 방법에 대해 알아보겠습니다. 매크로를 만드는 방법은 아래의 링크를 참고하시면 됩니다. https://jooona.tistory.com/178 [VBA] 매크로 기록기를 활용해보자 매크로 기록기는 사용자가 엑셀을 이용하여 작업하는 과정을 VBA 코드로 번역하여 기록을 해주는 기능을 제공합니다. 오늘 글에서는 매크로 기록기를 이용한 간단한 작업 예제를 살펴보도록 하 jooona.tistory.com 이번 글에서는 간단하게 A열에 1부터 10까지 차례로 쓰는 매크로를 이용해보겠습니다. 우선 매크로 기록기를 이용해서 간단한 매크로를 생성해줍니다. 저는 매크로 1이라는 이름으로 생성했습니다. 이제 리본 메뉴에 이 매크로를 추가하는 방법을 알아보겠습니다..

Worksheet의 visible 속성에서는 아래와 같이 3가지 옵션을 사용할 수 있습니다. 1 2 3 4 5 6 7 8 9 Sub hideSheet() Dim sht As Worksheet Set sht = Sheet2 sht.Visible = xlSheetVisible '기본 값 sht.Visible = xlSheetHidden sht.Visible = xlSheetVeryHidden End Sub Colored by Color Scripter cs 첫 째는 xlSheetVisible. 이름에서도 유추할 수 있듯이 sheet를 숨기지 않고 그대로 보여주는 속성입니다. 그렇다면, xlSheetHidden과 xlSheetVeryHidden의 차이는 무엇일까요? 이름으로부터 xlSheetVeryHidden..

이번 글에서는 VBA에서 콤보 박스를 사용할 때 리스트의 요소를 직접 추가하는 방법에 대해 알아보겠습니다. 우선 VBA에서 콤보 박스를 클릭하여 원하는 위치에 그려줍니다. 초기에는 리스트에 위와 같이 아무것도 들어가 있지 않은 상태입니다. 이제 리스트를 추가해보도록 하겠습니다. 우선 콤보 박스의 속성 창에서 콤보 박스의 이름을 확인해줍니다. 속성은 콤보 박스를 클릭하거나 콤보 박스에 우클릭을 해서 [속성] 탭을 누르면 좌측 하단에서 확인할 수 있습니다. 제 기준으로는 "ComboBox1"이라는 이름으로 자동 지정되어 있네요. 자 이제 코드로 넘어가서 콤보 박스에 리스트를 추가해보겠습니다. 위의 캡처에서 빨간 동그라미가 쳐져 있는 아이콘을 눌러 코드 편집 창으로 이동합니다. 그리고 아래의 코드를 작성해줍니..

매크로 기록기는 사용자가 엑셀을 이용하여 작업하는 과정을 VBA 코드로 번역하여 기록을 해주는 기능을 제공합니다. 오늘 글에서는 매크로 기록기를 이용한 간단한 작업 예제를 살펴보도록 하겠습니다. 우선 A열에 아래와 같이 숫자를 채워 넣어 줍니다. 이 숫자들을 C열로 복사하는 매크로를 만들어보도록 하겠습니다. 우선 [개발 도구] 탭에서 [매크로 기록] 단추를 눌러줍니다. 개발도구 탭이 없다면? --> https://jooona.tistory.com/177 매크로 기록 페이지가 나왔다면 매크로 이름과 바로 가기 키를 임의로 지정해줍니다. 저는 매크로 이름은 Example로, 바로 가기 키는 아무런 기능이 할당되어 있지 않은 Ctrl+j로 지정하였습니다. 이제 [개발 도구] 탭에 있는 [Visual Basic..