Как отслеживать изменения без совместного использования книги?
Обычно при использовании функции «Отслеживание изменений» в Excel книга автоматически становится общей, из-за чего некоторые функции становятся недоступны — это может быть неудобно. Как отслеживать изменения, не превращая книгу в общую? Ниже вы найдёте подходящий код на VBA.
Отслеживание изменений без совместного использования книги с помощью кода VBA
Преобразование текста в таблицу в Outlook
Прямого решения этой проблемы не существует, но вы можете воспользоваться гибким кодом VBA. Выполните следующие действия:
1. Щелкните правой кнопкой мыши по ярлыку листа, на котором нужно отслеживать изменённые ячейки, и выберите в контекстном меню пункт Просмотреть код. В открывшемся окне Microsoft Visual Basic для приложений скопируйте и вставьте приведённый ниже код в пустое окно модуля:
Код VBA: Отслеживание изменений без совместного использования книги:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const xRg As String = "A1:Z1000"
Dim strOld As String
Dim strNew As String
Dim strCmt As String
Dim xLen As Long
With Target(1)
If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub
strNew = .Text
Application.EnableEvents = False
Application.Undo
strOld = .Text
.Value = strNew
Application.EnableEvents = True
strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _
Application.UserName & Chr(10) & "Previous Text :- " & strOld
If Target(1).Comment Is Nothing Then
.AddComment
Else
xLen = Len(.Comment.Shape.TextFrame.Characters.Text)
End If
With .Comment.Shape.TextFrame
.AutoSize = True
.Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt
End With
End With
End Sub
Примечание: В приведённом выше коде A1:Z1000 — это диапазон данных, изменения в котором требуется отслеживать.
2. Затем сохраните и закройте это окно кода. Теперь при изменении значений в любых ячейках внутри ограниченного диапазона изменения будут отслеживаться без перевода книги в общий доступ. См. снимок экрана:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек