프로그램이야기/엑셀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. 이전 1 2 3 4 다음
