День добрый. Подскажите, как можно производить отмену операции при включенном макросе.
Сtrl+Z соответственно не работает. Мне надо либо прописать возможность временного отключения макроса в коде или как-то активировать функцию отмены операции в самом макросе.
Сейчас стоит координатное выделение:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <= 2500 Then
' ???????? ?? ?????????? ?????. ??????? ??????? ??????????
' ?????????? ????? ????????? ??????, ?.?. ??? ?????????? ???????
' ???????????? ????? ?????? ?????????? ??????.
ActiveSheet.Cells.FormatConditions.Delete
Dim RSMin As Integer
Dim CSMin As Integer
Dim RSMax As Integer
Dim CSMax As Integer
' ---------?????? ?????------------
For Each Target In Selection.Cells
If RSMin = 0 Then RSMin = Target.Row
If CSMin = 0 Then CSMin = Target.Column
If Target.Row < RSMin Then
RSMin = Target.Row
ElseIf Target.Row > RSMax Then
RSMax = Target.Row
End If
If Target.Column < CSMin Then
CSMin = Target.Column
ElseIf Target.Column > CSMax Then
CSMax = Target.Column
End If
Next
'--------????? ?????--------------
' ???????????? ???????????? ? ???????????
' ????? ? ??????? ??????????? ?????
'--------?????? ?????-------------
With Range(Cells(RSMin, 1), Cells(RSMax, 256))
.FormatConditions.Add Type:=xlExpression, Formula1:="=1"
.FormatConditions(1).Interior.ColorIndex = 35
End With
'--------????? ?????---------------
' ?????????? ????? ??????????? ?????????
'--------?????? ?????---------------
With Range(Cells(1, CSMin), Cells(1, CSMax))
'With Range(Cells(1, CSMin), Cells(65000, CSMax))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=1"
.FormatConditions(1).Interior.ColorIndex = 35
End With
'--------????? ?????---------------
' ?????????? ??????? ??????????? ?????????
'--------?????? ?????---------------
With Range(Cells(RSMin, CSMin), Cells(RSMax, CSMax))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=1"
.FormatConditions(1).Interior.ColorIndex = 0
End With
'--------????? ?????---------------
' ?????????? ?????????? ????????
Else
End If
End Sub
Если возможно реализовать искомое, дайте, пожалуйста, знать, что и где дописывать. Спасибо