Выделение модифицированной ячейки

Question

Я пытался выделить ячейку в столбце, который был изменен с «a» на «b» (следует исключить изменения из пустого в «a») с помощью макроса. Может кто-нибудь мне помочь?

Private Sub Worksheet_Change(ByVal Target As Range) 
 
    Application.ScreenUpdating = False 
 
Dim KeyCells As Range 
 
Set KeyCells = Range("A:A") 
 
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then 
 
ActiveCell.Select 
 
Application.Run ("color") 
 
End If 
 
End Sub 
 

 
Sub color() 
 
With Selection.Interior 
 
    .Pattern = xlSolid 
 
    .PatternColorIndex = xlAutomatic 
 
    .color = 255 
 
    .TintAndShade = 0 
 
    .PatternTintAndShade = 0 
 
End With 
 
End Sub

Вышеприведенный код выделяет ячейки под редактируемой ячейки также.

Answer 1

Dim ValBeforeChange As String 
 

 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
 

 
    ValBeforeChange = Target.Value 
 

 
End Sub 
 

 
Private Sub Worksheet_Change(ByVal Target As Range) 
 

 
    Application.ScreenUpdating = False 
 

 
    
 

 
    If ValBeforeChange ="" Then 
 
     Exit Sub 
 
    End If 
 
    IF ValBeforeChange <> Target.Value Then 
 
    
 
    If Application.Intersect(Range("A:A"), Target) Is Nothing Then 
 
    Application.Run("Color")  
 
    End If 
 
    
 
    End If 
 
    
 

 
End Sub

Этот код работает хорошо, ребята, спасибо вам за вашу помощь :)

Answer 2

Вы можете использовать событие SelectionChange, чтобы получить значение , прежде чем изменить, а затем добавить свои условия следующим образом.

Обратите внимание, что если рабочая книга открыта ячейкой, выбранной в вашем целевом диапазоне, и вы меняете значение без предварительного изменения, этот код выйдет раньше, так как значение ValBeforeChange еще не установлено.

Вы можете справиться с этим несколькими способами. Вы можете добавить что-то к событию Workbook_Open для запуска процедуры SelectionChangeили, вы можете сделать глобальную переменную ValBeforeChange и установить ее первоначально в событии Workbook_Open, или вы можете реорганизовать код выделения в класс с «до» и «после "свойства, создать экземпляр объекта класса на открытом и очистить его при закрытии.

Вот как добавить проверку условия:

редактировался «а» до «б» (необходимо исключить изменения от заготовки до «а»)

Dim ValBeforeChange as String 

Private Sub Worksheet_SelectionChange(ByVal Target as Range) 
    ValBeforeChange = Target.Value 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    Application.ScreenUpdating = False 
    If Not Len(ValBeforeChange) > 0 Then Exit Sub 
    If Target.Value = ValBeforeChange Then Exit Sub 
    Dim KeyCells As Range 
    Set KeyCells = Range("A:A") 
    If Application.Intersect(KeyCells, Target) Is Nothing Then Exit Sub 
    Highlight Target 
End Sub 

Sub Highlight(ByRef Target as Range) 
    With Target.Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .Color = 255 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
End Sub 

Answer 3

На самом деле, я не хочу добавлять новый ответ. Потому что этот ответ - небольшая модификация ответа CBRF23. Согласно их комментариям, я решил добавить новый ответ, потому что считаю, что этот вопрос не получил правильного ответа.

Что нового в моем ответе. Ничего особенного. Но я отформатировал код и Я добавил проверку на пустое значение и удалю выделение.

Тут вы можете увидеть код другой компании.

Dim ValBeforeChange As String 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    ValBeforeChange = Target.Value 

End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 

    Application.ScreenUpdating = False 

    If Not Len(ValBeforeChange) > 0 Then 
     Exit Sub 
    End If 

    If Target.Value = ValBeforeChange Then 
     Exit Sub 
    End If 

    If Application.Intersect(Range("A:A"), Target) Is Nothing Then 
     Exit Sub 
    End If 

    If Target.Value <> "" Then 
     Highlight Target, vbRed 
    Else 
     Highlight Target, xlNone 
    End If 

End Sub 

Sub Highlight(ByRef Target As Range, ByVal colorValue As Variant) 

    With Target.Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .color = colorValue 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 

End Sub