Почему мой код не заполняется?

Question

Dim SLR As Range 
Dim ELR As Range 

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Cells.Count > 1 Then Exit Sub 
On Error Resume Next 


Select Case UCase(Target.Value) 

Case "START-LOCATION" 
    Target.Offset(0, 0).Select 
    Selection.ClearContents 
    SLR = ActiveCell.Address 
    Target.Offset(-1, 1).Select 



Case "END-LOCATION" 
    Target.Offset(0, 0).Select 
    Selection.ClearContents 
    ELR = ActiveCell.Address 
    Target.Offset(0, -1).Select 
    ActiveSheet.Range(SLR, ELR).FillDown 

End Select 
End Sub 

Привет всем, у меня есть приведенный выше код, он должен установить переменную в начале местоположения для первой ячейки, а на конечной позиции она устанавливает вторую переменную, а затем заполняет ячейки от SLR до ELR, однако он не работает и не предоставляет мне сообщение об ошибке, любые идеи?

Answer 1

Попробуйте изменить следующее:

SLR= Activecell.Address 

в

Set SLR = Activecell 

и сделать то же самое для ELR:

Set ELR = Activecell 

Answer 2

On Error Resume Next всегда плохая идея. Если бы я был королем мира, я бы сделал эту команду незаконной, обработчик ошибок должен быть, когда произойдет что-то неожиданное, что приведет к сбою вашего кода.

Самая важная вещь, связанная с вашим макросом, заключается в том, что данные, которые пользователь получает в конце, являются правильными. Если это означает, что когда код выходит из строя, и пользователь вызывает вас, то это то, что требуется. Но если On Error Resume Next означает, что никто никогда не узнает, произошел ли сбой вашего кода, и никто не узнает, что данные ошибочны.

Никогда не использовать On Error Resume Next !!!!!

Что касается этого бита кода, вы узнаете больше о своей проблеме, если вы удалите On Error Resume Next.