나는 아래와 같이 Excel에서 데이터를 가지고 있습니다. 여기에 두 가지를 표시하고 싶습니다.

Question

데이터가 Excel에서 아래와 같이 표시됩니다. 두 가지를 여기에 표시하고 싶습니다.

1) 우레아 열 H = - 인 경우, 칼럼 B는 색이 변해야합니다.

2) MR +이 부사장이 자동으로 와야 경우 -

 
SLNo  SID  RV  TT  BSA  XLD  Lact. Urea  TSI  Ind.  MR  VP  Cit.  Nitrate Oxid  ONPG  PCR  SALM?  
          S  B  H2S  G  R                         
1  R.13  +  K  A  -  -  +  -  +  -  +  -  -     -       
2  5 TB  -  K  K  -  -  +  -  +  -  +  -  -            
3  7.3R  +  K  A  -  -  +  -  +  -  +  -  -     +       
4  11.1R +  K  A  +  -  +  -  +  -  +  -  -            
5  15  +  K  A  -  -  +  -  +  -  +  -  -            
6  16.2RB -  K     +  -  +  -  +  -  D  -  -            
7  18.04 -  K  K  -  -  +  -  +  -  +  -  -     -       
8  18.1R    K  K  -  -  +  -  -  -  +  +  -     -       
9  20.2R    K  A  -  -  +  -  +  -  +  -  -     +       
10  20.3T -  K  A  -  -  +  -  +  -  +  -  -     +       
11  R3D/ 28.1-  K     +  -  +  -  +  -  -  --  -  +  +       

ANS 1 : 내가 조건부 서식 옵션을 선택하고 = ISNUMBER (SEARCH (H5을, "-")를 사용했다

를) 이 작동하지만, 문제는

ANS 2 색 강조 우레아 열에서 빈입니다 : Pls는

Answer 1

Ans By의 1 제안을 : 귀하의 CF 공식 난을 잘못되었습니다. Find_Text는 첫 번째 인수입니다.

=ISNUMBER(SEARCH("-",H2)) 

또는 간단

=H2 = "-" 

Ans By의 2 : WITHIN_TEXT는 두 번째 시도입니다 당신은 이벤트 트리거 매크로를 사용할 수 있습니다. 이 이벤트 트리거 매크로를 입력하려면 시트 탭을 마우스 오른쪽 단추로 클릭하십시오. 오른쪽 클릭 드롭 다운 메뉴에서 "코드보기"를 선택하십시오. 그런 다음 열리는 창에 아래 코드를 붙여 넣으십시오.

Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rMR As Range, rVP As Range 
    Dim C As Range 
With Cells 
    Set rMR = .Find(what:="MR", after:=[a1], LookIn:=xlValues, lookat:=xlWhole, _ 
       searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False) 
    Set rVP = .Find(what:="VP") 
End With 
    If Not rMR Is Nothing And Not rVP Is Nothing Then 
     Set rMR = Range(rMR, Cells(Rows.Count, rMR.Column).End(xlUp)) 
     Set rVP = rVP.Resize(rowsize:=rMR.Rows.Count)
 

Application.EnableEvents = False 

    If Not Intersect(Target, rMR) Is Nothing Then 
     For Each C In Intersect(Target, rMR) 
      If C.Value = "+" Then rVP(C.Row).Value = "-" 
     Next C 
    End If 

    If Not Intersect(Target, rVP) Is Nothing Then 
     For Each C In Intersect(Target, rVP) 
      If rMR(C.Row).Value = "+" Then C.Value = "-" 
     Next C 
    End If 
    End If 
Application.EnableEvents = True 
End Sub