엑사남10 [엑셀 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. 이전 1 다음
