VB 삭제 선택이 작동하지 않습니다

-1

내 매크로에서 셀 크기를 조정하고 선택 항목을 삭제해야합니다. 나는 모든 것을 시도했지만 그저 효과가 없을뿐입니다. 그것은 내 ActiveCell.resize 라인에 객체 정의 오류를 계속 제공합니다. 나는 그 라인을 여러 번 쓸모 없게 바꿨다. 제발 도와주세요, 이것은 단순한 가정입니다.VB 삭제 선택이 작동하지 않습니다

Sub CovDatesAndDeletes() 
    'shortcut ctrl + b 

    Dim SrchRng As Range 
    Set SrchRng = ActiveSheet.Range("A2:C62000") 


    For Each Source In SrchRng 
     If Source.Text Like "ACCUM_CLM" Then 
      Source.Activate 
      ActiveCell.Resize(25, -2).Select 
      Selection.Delete Shift:=xlUp  
     End If 
    Next Source 

End Sub

출처

2014-07-21 user3232261

매크로 인 경우 vb.net이 아닙니다. 'vb.net' 태그를 제거하는 것을 고려하십시오. 오해의 소지가 있습니다. 당신이 시도한 것을 말할 수 있습니까 ("모든 것"은 무엇입니까?)? 'object defined error'에 대한 검색을 시도 했습니까? [Resize()] (http://msdn.microsoft.com/en-us/library/office/aa176182 (v = office.11) .aspx)를보십시오. 그게 너에게 도움이 될거야. – Sifu

삭제하는 경우 셀의 크기를 조정해야합니까? – APrough

예 크기가 필요하므로 모든 셀을 삭제합니다. – user3232261

ActiveCell.Resize는 질문에서 언급 한 셀이 아닌 범위 개체의 크기를 조정합니다. 당신은 당신이하려고하는 것을 분명히 할 필요가 있습니다 (나는 주석으로 이것을 말할 수 없습니다 - 충분한 담당자가 아닙니다).

ACCUM_CLM 문자열을 포함하는 범위의 셀을 검색하는 것처럼 보입니다. 찾은 경우 범위 선택 25 행을 아래쪽으로 확장하고 B 및 C 열을 포함시키지 않고 선택 내용을 삭제하고 삭제 된 내용을 시작한 위치까지 옮깁니다. 이것은 당신이 무엇을 원하는 경우 다음과 같이 다음 코드를 변경 :

If Source.Text Like "ACCUM_CLM" Then 
    Source.Resize(25).Select 
    Source.Delete (xlUp) 
End If

출처

2014-07-21 17:40:04 Luke

열 b와 c를 포함해야합니다. – user3232261

그런 다음 .Resize (25)를 .Resize (25,3)로 변경하십시오. 원본 코드의 -2는 오류를 발생시킵니다. 더 나은 아직 Source.Resize (25). Source.Resize (25,3)로 선택하십시오 .Delete 및 코드의 두 번째 줄을 제거하십시오. – Luke

그냥 당신이 위의 코드에서 수행하려고에 대한 느낌 얻으려고 - (25 당신이 ActiveCell.Resize를 교체하려고 할 수 있습니다 , -2) Range ("A"& Activecell.row)로 선택하십시오. Resize (25, 3). 실제로 여기에서 문제를 해결할 수 있는지 여부를 선택하고 피드백 하시겠습니까?

출처

2014-07-21 21:05:08 IAmDranged

VB 삭제 선택이 작동하지 않습니다

답변

관련 문제