엑섹VBA8 [엑셀 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. 이전 1 2 다음
