VBA: Зачеркивание ячейки в ехель для заполнения анкеты

Благодарю за помощь andypetr! Буду разбираться. Это очень нужная вещь, хоть кажется простой и очевидной для профессионалов. Понимаю, что много спрашиваю, но оч.нужно при анкетировании знать поведение респондента - если он меняет поведение при анкетировании, это является косвенным доказательством сомнения или лжи. Не могли бы подсказать как отследить временные характеристики анкетирования, т.е сколько человек тратит время при переходе от одной ячейки с ответом к другой. Может быть даже трассу ответов - т.е. на какие отвечает сразу, какие оставляет на потом.

Доброго тайма! Ну вот, у меня "выкашивает" не только диапазон Д3-E74 (.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        ' Работаем только с выделением 1 ячейки:
        With ActiveCell
            If (Not Application.Intersect(Target, Me.Range("D3:E74")) Is Nothing) Then

                ' Первый раз - пока не было зачёркивания:
                .HorizontalAlignment = xlRight
                .Borders(xlDiagonalUp).LineStyle = xlContinuous
                .Borders(xlDiagonalUp).Weight = xlThick
            Else
                ' Второй раз:
                .HorizontalAlignment = xlLeft
                .Borders(xlDiagonalDown).LineStyle = xlContinuous
                .Borders(xlDiagonalDown).Weight = xlThick
            End If
        End With
    End If
End Sub

Nason, приветствую.

Предлагаю рассмотреть мой свежий файл, я изменил систему ответов под Да/Нет, и заполнил анкету вашими вопросами.

• Файл с именем debug_VBA_анкета.xlsb запустится в режиме разработчика (отладки).
  Режим разработчика нужен для редактирования таблицы анкетирования, т.к. в обычном режиме щелчки мышью и поведение активной ячейки контролируются макросами.
  В этом режиме можно переключаться на обычный режим (Alt-F12), при этом очистятся предыдущие ответы и статистика.

• Если убрать "debug_" из начала названия, то файл запустится в обычном режиме, для ввода ответов пользователем.

• Лист Тест - само анкетирование, лист Стат - статистика ввода ответов (в обычном режиме лист Стат скрыт от пользователя).

• В обычном режиме (анкетирование пользователя) активная ячейка "не выпускается" из колонок ответов (столбцы C и D листа Тест).
  Заголовки колонок ответов выделены зеленоватым цветом.
  

• Ответы вводятся нажатием Enter, либо щелчком ПКМ, либо двойным щелчком ЛКМ.
  При этом знак "V" проставляется в графе "Верно", знак "O" проставляется в графе "Не верно".

Нужно более подробное описание?

PS. Что касается

- то в вашем коде потерялось вложенное условие If .Borders(xlDiagonalUp).LineStyle = xlNone:

 
    ' Работаем только с выделением 1 ячейки:
    With ActiveCell
        If (Not Application.Intersect(Target, Me.Range("D3:E74")) Is Nothing) Then
            If .Borders(xlDiagonalUp).LineStyle = xlNone Then
                ' Первый раз - пока не было зачёркивания:
                .HorizontalAlignment = xlRight
                .Borders(xlDiagonalUp).LineStyle = xlContinuous
                .Borders(xlDiagonalUp).Weight = xlThick
            Else
                ' Второй раз:
                .HorizontalAlignment = xlLeft
                .Borders(xlDiagonalDown).LineStyle = xlContinuous
                .Borders(xlDiagonalDown).Weight = xlThick
            End If
        End If
    End With