변경 세포 색상 - 값 typin :이 테마에 내 문제를 해결 손 붙여 넣기/복제

Question

기준 : If value will change, change few cells color

하지만 지금은 새로운 문제를 가지고있다. A 열에 "손으로"숫자를 입력하면 모든 것이 정상입니다. 내가 이상의 셀에 붙여 넣기/클론 값을 원한다면 나는 오류가 Laufzeitfehler 13 ; Typen unverträglich

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim LastRow As Long 

LastRow = Cells(Rows.Count, "A").End(xlUp).Row 

If Not Intersect(Target, Range("A1:A" & LastRow)) Is Nothing Then 
    Select Case Target.Value 
     Case "1" '<-- put the rest of your cases here 
      Range("B" & Target.Row & ":H" & Target.Row).Interior.ColorIndex = 4 'green 
      Range("I" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 15 'grau 
     Case "2", "3" '<-- put the rest of your cases here 
      Range("B" & Target.Row & ":D" & Target.Row & ",E" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 4 'green 
      Range("H" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 15 'grau 
     Case Else 
      Range("B" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 0 
    End Select 
End If 

End Sub 

어떻게이 문제를 해결해야?

Answer 1

귀하의 문제는 Select Case Target.Value이며 멀티셀 범위를 부여한 것입니다. 아마 Select Case Target.Cells(1).Value을 Select Case Target.Value 대신 시도하고 대답이 예상 한 것인지 확인하십시오.

편집 : 변경 사항 Target.Row ~ Target.Rows까지 스크립트에 입력하십시오.