VBA 셀 선택 이벤트(선택한 열 색 추가, 이전 열 색 삭제)

VBA 셀 선택 이벤트(선택한 열 색 추가, 이전 열 색 삭제) -- Sheet1 Public pre_string As Integer Public Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo test Dim rs_string As Integer rs_string = VBA.Right(ActiveCell.Address, (Len(ActiveCell.Address) - 3)) 'ActiveCell.Address If Selection.Count = 1 And Sheet1.Range("a" & rs_string & ":z" & rs_string).Interior.Color RGB(120, 240, 200) Then If Not Inte..
VBA 2019. 6. 17. 17:34
Function 조회범위에서 해당 값을 찾고 Offset위치 값을 반환

Function Find_Sch(values As String, ranges As range) Dim FindString As String Dim Rng As range FindString = values If Trim(FindString) "" Then With ranges Set Rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not Rng Is Nothing Then ' Application.Goto Rng, True ' ' Sheet1...
VBA 2019. 3. 21. 11:32
On Error Resume Next

On Error Resume Next '에러 이면 Next For For i = 1 To 200AI = Sheet3.Range("A" & i + 5).Value 'A If Len(Sheet3.Range("B" & i + 5).Value) > 0 Then 'B On Error Resume Next '
VBA 2019. 3. 11. 19:36
1