프로그램이야기/엑셀14 [엑셀 VBA] 엑사남 12강 #Change 이벤트 [엑셀 VBA] 엑사남 12강 #Change 이벤트 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용(1) Private Sub Worksheet_Change(ByVal Target As Range) Dim strs As String Dim rngR As Range Dim i As Long strs = Target Set rngR = Range("F7:L26") rngR.Interior.ColorIndex = 0 If Intersect(Target, Range("G2")) Is Nothing Then Exit Sub For i = 7 To 26 If Range("G" & i) = strs Then Range("F" & i).R.. 2022. 6. 23. [엑셀 VBA] 엑사남 11강 #selectionChange이벤트 [엑셀 VBA] 엑사남 11강 #selectionChange이벤트 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용(1) Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target.Interior If .ColorIndex = 3 Then .ColorIndex = 0 Else .ColorIndex = 3 End If End With End Sub #학습내용(2) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("F7:L26")) Is Nothing .. 2022. 6. 23. [엑셀 VBA] 엑사남 10강 #오픈이벤트와 유저폼 [엑셀 VBA] 엑사남 10강 #오픈이벤트와 유저폼 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용(1) Private Sub CommandButton1_Click() Sheet1.Range("B2") = Me.TextBox1.Value If Sheet1.Range("B3") = 1 Then MsgBox "안녕하세요" Unload UserForm1 Else MsgBox "아이디를 확인하세요" ActiveWorkbook.Close False End If End Sub #학습내용(2) Private Sub Workbook_Open() Sheet1.Range("B2").ClearContents UserForm1.Show MsgBo.. 2022. 6. 21. [엑셀 VBA] 엑사남 9강 #EVENT설정 [엑셀 VBA] 엑사남 9강 #EVENT설정 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용(1) Private Sub Workbook_Open() MsgBox "안녕하세요. 반가워요^^" End Sub #학습내용(2) Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "정말닫을꺼야??" End Sub #학습내용(3) Private Sub Workbook_BeforeClose(Cancel As Boolean) If MsgBox("정말닫을꺼야??", vbYesNo) = vbNo Then MsgBox " 그래 우리 더하자" Cancel = True End If End Sub.. 2022. 6. 15. [엑셀 VBA] 엑사남 8강 #지우기 기능 [엑셀 VBA] 엑사남 8강 #지우기 기능 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용(1) Sub Test01() Range("F7:L26").Clear End Sub #학습내용(2) Sub Test02() Range("F7:L26").ClearContents End Sub #학습내용(3) Sub Test03() Range("7:26").Delete End Sub #학습내용(4) Sub Test04() Range("F7:L26").ClearFormats End Sub #학습내용(5) Sub Test05() Dim i As Long For i = 26 To 7 Step -1 If Cells(i, "G") = "남" The.. 2022. 6. 14. [엑셀 VBA] 엑사남 7강 #복사 붙혀넣기 [엑셀 VBA] 엑사남 7강 #복사 붙혀넣기 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용(1) Sub Test01() Range("O6").CurrentRegion.Clear Range("F6:L10").Copy Range("O6").PasteSpecial Range("F6").Select Application.CutCopyMode = False End Sub #학습내용(2) Sub Test02() Range("F6").CurrentRegion.Copy Range("F6").PasteSpecial xlPasteValues Range("F6").Select Application.CutCopyMode = False End S.. 2022. 6. 9. [엑셀 VBA] 엑사남 6강 #셀을 변수로 사용 [엑셀 VBA] 엑사남 6강 #셀을 변수로 사용 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용(1) Sub test01() Dim i As Long For i = 9 To Range("B2") If Range("G" & i) = Range("B3") And _ Range("H" & i) 2022. 6. 7. [엑셀 VBA] 엑사남 5강 #자동화경험 [엑셀 VBA] 엑사남 5강 #자동화경험 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용(1) Sub Test01() Dim i As Long Dim lngR As Long lngR = Range("B10000").End(xlUp).Row For i = 2 To lngR If Cells(i, 2) 2022. 6. 7. [엑셀 VBA] 엑사남4강 #분기문/반복문 [엑셀 VBA] 엑사남4강 #분기문/반복문 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용 (1) Sub Test_1() Dim i As Long For i = 3 To 11 If Range("C" & i) 2022. 6. 5. [엑셀 VBA] 엑사남 2강 #반복문 [엑셀 VBA] 엑사남 2강 #반복문 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용(1) Sub GuGu_number() Dim i As Long For i = 1 To 9 For j = 1 To 9 Cells(i, j) = i * j Next Next End Sub #학습내용(2) Sub shape_color() Dim sh As Object Dim lngC As Long For Each sh In ActiveSheet.Shapes lngC = lngC + 1 sh.Left = Range("B1").Left sh.Fill.ForeColor.SchemeColor = lngC Next End Sub 두번째는 #구구단 #도형이.. 2022. 6. 5. [엑셀 VBA] 엑사남 1강 #변수설정 [엑셀 VBA] 엑사남 1강 #변수설정 늦은 퇴근시간을 앞당기기 위해 공부합니다^^ 몇번을 도전하다 실패한 엑셀VBA를 이번에는 초급을 넘어서보려고 합니다. #학습내용 Sub 변수_테스트() Dim lngT As Long Dim lngA As Long Dim lngB As Long Dim strA As String lngA = 10 lngB = 20 strA = " 의 결과는" lngT = lngA + lngB MsgBox lngA & "+" & lngB & strA & lngT lngT = lngA - lngB MsgBox lngA & "-" & lngB & strA & lngT End Sub 첫 강의 내용이라 몇번 반복해서 들어서 어렵지 않았습니다. ㅎ 출처 : https://youtu.be/a0Ah.. 2022. 6. 4. [엑셀Tip] 수식이 자동으로 안될때 [엑셀Tip] 수식이 자동으로 안될때 엑셀에 다양한 수식을 넣어서 사용하시다가 수식을 변경했는데도 값이 변하지 않는 경우가 있습니다. 급하게 데이터 > 모두 새로고침 을 클릭해 보지만 느리게 반응하는 현상이 있습니다. 이런경우엔 수식을 변경할때마다 모두 새로고침을 눌러주셔야 합니다. 파일설정에서 자동계산이 수동으로 변경되서 그렇습니다. 파일 > 옵션 > 수식 > 계산옵션 > 통합문서계산 > 자동 클릭 이렇게 변경해 놓으시면 계산 옵션이 자동으로 변경이 됩니다. 2022. 5. 10. [엑셀Tip] 행이나 열에서 마지막 비어있지 않은 셀값 찾기 [엑셀Tip] 행이나 열에서 마지막 비어있지 않은 셀값 찾기 수식을 사용하여 행 또는 열의 마지막 비어 있지 않은 셀값을 찾을수 있습니다. 비어 있지 않은 마지막 셀 값을 반환하려는 경우 다음 수식이 도움이 될 수 있습니다. 수식 입력 =LOOKUP(2,1/(A1:A13""),A1:A13) 출처 : https://ko.extendoffice.com/documents/excel/2104-excel-return-first-last-non-blank-cell-in-row-column.html 2021. 11. 15. [엑셀Tip] 이름 충돌 "해당 이름이 이미있습니다." 사무실에서 엑셀을 많이 사용하시다보면... 오래전 부터 회사에 내려오는 문서들이 한두개씩 있습니다. 선배의 선배가 만들어서 메일로 받은 파일은 수정에 수정을 하다보면 파일이 지져분해 지기 마련이죠^^ . . . 이런경우 가장 빈번하게 발생하는 오류가 '이름이 충돌' 하는 오류입니다. sheet를 새로 만들어 정리하려고 이동/복사를 했더니, 오류가 발생하는 경우 난감하시죠^^ . . . "해당 이름이 이미 있습니다. 이 이름을 사용하시려면 [예]를 클릭하세요. 이동 또는 복사하려는 'OOO'의 이름을 변경하려면 [아니요]를 클릭하세요" . . . 몇번의 아니오 클릭으로 해결된다면 다행이지만, 무한으로 반복해서 나오는 경우... 그냥 Ctrl+Alt+Del 이 가장 빠른 방법입니다. . . 지금까지 이런생각.. 2021. 7. 14. 이전 1 다음
