Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як відстежувати зміни без спільного використання книги?

Зазвичай, коли ви застосовуєте функцію Track Changes у програмі Excel, книжка буде спільно доступною одночасно, це буде дратувати, оскільки деякі функції в 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

Зміна доріжки без спільного використання 1

примітки: У наведеному вище коді, A1: Z1000 - діапазон даних, для якого потрібно відстежувати зміни.

2. Потім збережіть і закрийте це вікно коду, тепер, коли ви зміните значення в будь-яких комірках у межах вказаного діапазону, який ви встановили в коді, комірки будуть відстежуватися, і книга не буде спільною. Дивіться знімок екрана:

Зміна доріжки без спільного використання 2


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kuldeep · 1 years ago
    I tried using this VBA code in my excel sheet. But it gave me errors. I don't know from where this macro should be called and what is the argument to the function you have provided when it is called.
  • To post as a guest, your comment is unpublished.
    Sam · 4 years ago
    Great work. Unfortunately, there are some issues with your code.
    - It will add a comment even on the first entry of the cell. How can I make it track changes from the second entry not the first one?
    - Once I enter a value in a cell I can't do "Undo".
    - It doesn't work with tables. Try to use on a table then try to add or delete a raw and the code will crash.

    I really wish I have the knowledge to get the code to work the way I want it as described above.
    • To post as a guest, your comment is unpublished.
      Gabe · 3 years ago
      I have the same issue. "Undo" and "Redo" buttons don't work anymore. Is there any solution for this?