Excel VBA는 다른 셀의 문자열을 기반으로 한 셀을 계산합니다.

Question

다른 셀의 문자열에서 키워드를 기반으로 다른 셀에서 간단한 계산을 수행하려고합니다. 예를 들어 H 열에는 "50,000 주 구매"행에 대한 설명이있을 수 있습니다. 구매라는 단어가 나타나면 -1로 여러 열 B 싶습니다. 문자열에서 핵심 단어의 조건을 만들 수 있습니까?

Answer 1

수식이나 VBA에서 할 수 있습니다. 식

는 B1 전에 콘텐츠 X했다라고하면 * 화학식 = (X)를 변경 IF (ISNUMBER (SEARCH ("구매"H1)), -1, 1) VBA에서

, 이것을 사용해보십시오

Sub NegateB_IfPurchaseH() 
Dim celB As Range 
Dim celH As Range 
Dim celPtr As Range 

' you can change 1:10 to any other range 
Set celB = Range("B1:B10") 
Set celH = celB.Cells(1, 7) 

For Each celPtr In celB 
    If InStr(1, celPtr.Cells(1, 7).Value, "purchase", vbTextCompare) > 0 Then 
     celPtr.Formula = "=-" & Mid(celPtr.Formula, 2) 
    End If 
Next 
End Sub