<![CDATA[Серый форум — VBA: Зачеркивание ячейки в ехель для заполнения анкеты]]> 2022-02-17T11:57:49Z PunBB https://forum.script-coding.com/viewtopic.php?id=16900 <![CDATA[Re: VBA: Зачеркивание ячейки в ехель для заполнения анкеты]]> andypetr, на будущее: у нас не принято отвечать в темах, если участнику было сделано замечание, а он не отреагировал.

]]> https://forum.script-coding.com/profile.php?id=24515 2022-02-17T11:57:49Z https://forum.script-coding.com/viewtopic.php?pid=152261#p152261 <![CDATA[Re: VBA: Зачеркивание ячейки в ехель для заполнения анкеты]]> Nason, приветствую.

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

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

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

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

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

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

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

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

Ну вот, у меня "выкашивает" не только диапазон Д3-E74

- то в вашем коде потерялось вложенное условие 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
]]> https://forum.script-coding.com/profile.php?id=40320 2022-02-17T10:41:13Z https://forum.script-coding.com/viewtopic.php?pid=152260#p152260 <![CDATA[Re: VBA: Зачеркивание ячейки в ехель для заполнения анкеты]]> Nason, ознакомьтесь, пожалуйста, с Правилами, отредактируйте свой пост. Обратите внимание на оформление кода.

]]> https://forum.script-coding.com/profile.php?id=24515 2022-02-10T09:26:03Z https://forum.script-coding.com/viewtopic.php?pid=152126#p152126 <![CDATA[Re: VBA: Зачеркивание ячейки в ехель для заполнения анкеты]]> Доброго тайма! Ну вот, у меня "выкашивает" не только диапазон Д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

]]> https://forum.script-coding.com/profile.php?id=42295 2022-02-10T03:44:54Z https://forum.script-coding.com/viewtopic.php?pid=152124#p152124 <![CDATA[Re: VBA: Зачеркивание ячейки в ехель для заполнения анкеты]]> Nason, приветствую.
Выдалась свободная неделя, и я немного поэкспериментировал на эту тему. Возможно, файл будет полезным.
Имя "debug_..." включает режим отладки (разработчика). В этом режиме можно переключаться на обычный (Alt-F12).
Лист Тест - само анкетирование, лист Стат - статистика (собирается в обычном режиме).
Более подробное описание напишу позже, если надо.

]]> https://forum.script-coding.com/profile.php?id=40320 2022-02-04T18:53:05Z https://forum.script-coding.com/viewtopic.php?pid=151982#p151982 <![CDATA[Re: VBA: Зачеркивание ячейки в ехель для заполнения анкеты]]> Благодарю за помощь andypetr! Буду разбираться. Это очень нужная вещь, хоть кажется простой и очевидной для профессионалов. Понимаю, что много спрашиваю, но оч.нужно при анкетировании знать поведение респондента - если он меняет поведение при анкетировании, это является косвенным доказательством сомнения или лжи. Не могли бы подсказать как отследить временные характеристики анкетирования, т.е сколько человек тратит время при переходе от одной ячейки с ответом к другой. Может быть даже трассу ответов - т.е. на какие отвечает сразу, какие оставляет на потом.

]]> https://forum.script-coding.com/profile.php?id=42295 2022-01-23T02:24:04Z https://forum.script-coding.com/viewtopic.php?pid=151766#p151766 <![CDATA[Re: VBA: Зачеркивание ячейки в ехель для заполнения анкеты]]> Nason, приветствую.

Не всё понятно, я просто эскиз набросал - событие листа "выделение ячейки/диапазона".
Может быть, задача сложнее, и при этом с предыдущей ячейки нужно снимать форматирование?
Либо не срабатывает событие при повторном выделении активной ячейки?
Для таких случаев нужно заводить глобальную переменную, видимо.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
		' Работаем только с выделением 1 ячейки:
        With ActiveCell
            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 With
    End If
End Sub
]]> https://forum.script-coding.com/profile.php?id=40320 2022-01-22T21:11:34Z https://forum.script-coding.com/viewtopic.php?pid=151763#p151763 <![CDATA[VBA: Зачеркивание ячейки в ехель для заполнения анкеты]]> Приветствую! Задача по автоматизации сбора данных при анкетировании - как сделать изменение форматирования ячейки при ее выделении? Исходно - текст находится по центру, необходимо, чтобы при выделении ячейки произошло форматирование текста вправо и одно диагональное зачеркивание ячейки жирной линией (чтобы человек увидел, если плоховато зрение). При  повторном выделении ячейки (если человек, который заполняет анкету передумал) - форматирование влево и добавление еще одного диагонального перечеркивания, т.е. получается ячейка с текстом зачеркивается крестом.  Проблема в том, что диагональное зачеркивание прописывается только для конкретной ячейки, а не для активной. Заранее благодарю за ответы!

]]> https://forum.script-coding.com/profile.php?id=42295 2022-01-22T01:38:57Z https://forum.script-coding.com/viewtopic.php?pid=151711#p151711