Excel VBA 조건부 텍스트

VBA에서는 다른 셀에 텍스트가 포함되어있는 경우 셀에 추가하는 방법이 있습니까?Excel VBA 조건부 텍스트

예 : 열 F에

FOREACH 셀 텍스트를

셀 F가 비어 있으면 G

칼럼에서 "부여"

쓰기를 포함, 나는이 알고 셀을

건너 뛰기 이 파일을 가져 오는 응용 프로그램 [ "= IFERROR (IF (SEARCH ("* "", RC [-1], 6), ""ASSIGNED ""), "" "") "] into는 수식이 포함 된 통합 문서를 허용하지 않습니다.

미리 도움을 청하십시오. 범위 통해

VBA 단지 루프

출처

2016-12-16 MRG123

같은 (사이비 코드) '범위의 각 CEL 경우 ("F2 : F1000") // 경우 cel.value <> ""후 cel.offset (0, 1) .Value = "ASSIGNED"// end if'? 아니면'IsEmpty()'를 사용할 것인가? 빠른 생각 - 가져 오기에서 수식을 허용하지 않으면 매크로가 허용됩니까 ?? 수식을 항상 사용할 수 있고 그 위에 값을 복사/붙여 넣기하여 수식을 제거 할 수 있습니다 ... 수식이 이미 테이블에서 벗어난다면 VBA를 수락 할 것입니다. – BruceWayne

수식을 수락하지 않을 때 "작성한 응용 프로그램이 VBA를 수락하는 이유"는 무엇입니까? – Chrismas007

수식을 실행하지 않고 값을 복사하여 값으로 붙여 넣는 이유는 무엇입니까? range.value = range.value? –

Sub Test() 

    Dim rng As Range 

    Set rng = Workbooks("My Tracker").Sheets(4).Range("F1:F" & Cells(Rows.Count, "F").End(xlUp).Row) 

    For Each Cell In rng 
     If Len(Cell.Value) > 0 Then 
      Cell.Offset(0, 1).Value = "ASSIGNED" 
     End If 
    Next 

End Sub

출처

2016-12-30 09:05:39

Excel VBA 조건부 텍스트

답변

관련 문제