엑셀 VBA #85 / 이벤트 프로시저와 find 메서드 활용하기 [VBA]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim fc As Range
If Not Intersect(Target, Columns("b")) Is Nothing Then
Set rng = Sheet2.Range("a2:a32")
On Error Resume Next
Set fc = rng.Find(Day(Target.Offset(0, -1)), , , xlWhole)
On Error GoTo 0
If Not fc Is Nothing Then
fc.Offset(0, 1) = Target.Value
Else
MsgBox "정확한 값을 입력하세요."
End If
End If
End Sub
2023.12.13 - 엑셀 VBA #13 / 셀 범위 선택하기_8 [VBA] - Intersect
2023.12.13 - 엑셀 VBA #14 / 셀 범위 선택하기_9 [VBA] - Intersect 실무예제
2023.12.15 - 엑셀 VBA #42 / Find메서드_기본 [VBA]
https://www.youtube.com/watch?v=qAAJvBXT7zo&t=414s
'엑셀로 풀어가는 세상' 카테고리의 다른 글
| [VBA] Dictionary에 대한 이해2 - Double Dictionary (0) | 2024.01.16 |
|---|---|
| [VBA] Dictionary에 대한 이해1 (0) | 2024.01.11 |
| 엑셀 VBA #93 / 특정 폴더 내, 파일통합_VBA필수 [VBA] (0) | 2024.01.04 |
| 엑셀 VBA #90 / 데이터재배치 [VBA] (0) | 2023.12.31 |
| 엑셀 VBA #127 / Vlookup시리즈3_배열+Dictionary활용 [VBA] (0) | 2023.12.28 |
| VBA - Dictionary(Late vs Early Binding) by 우노사설 (0) | 2023.12.23 |
| [엑셀이뭐니]매크로 기초 11강-Match 함수로 찾기(응용편)/ 중단모드 해제하기/ 엑셀 VBA 기초 (0) | 2023.12.21 |
| 엑셀 VBA #122 / 헷갈리는 시트, 셀 제어 [VBA] (0) | 2023.12.20 |
