MurzA (Автор тем)

Отслеживание изменений в книге и ведение журнала, нужно что бы имя ячейки выводилось со знаком $

Пользователь

Сообщений: 10 Регистрация: 30.03.2019

28.04.2019 19:26:44

Всем привет.
В прикрепленном файле два листа, на "лист1" вносим изменения, на листе "LOG" идет запись изменений (кто, когда, что на что исправил)
1.Нужно что бы имя ячейки выводилось со знаками $, т.е. сейчас "A12", нужно "$A$12"
2.Сейчас название листа и имя ячейки в разных столбцах, если возможно то хотелось бы их объединить: Лист1!$A$12

Помогите кто может).

Нужно внести изменения в код, в модуле книги.

Изменено: MurzA - 28.04.2019 19:28:50

Перейти

История изменения ячейки в примечаниях

MurzA

Пользователь

Сообщений: 10 Регистрация: 30.03.2019

07.04.2019 13:35:04

Всем привет.
Нашел на сайте макрос "История изменения ячейки в примечаниях", подскажите новичку, как приделать выключатель? Что и где нужно дописать что бы макрос срабатывал при определенном условии.
Например: A1=истина - макрос работает, если "ложь" - макрос не работает
Код макроса:

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewCellValue$, OldComment$
Dim cell As Range
    
   'если ячейка не в отслеживаемом диапазоне, то выходим
   If Intersect(Target, Range("B3:B5")) Is Nothing Then Exit Sub
    
   'перебираем все ячейки в измененной области
   For Each cell In Intersect(Target, Range("B3:B5"))
       If IsEmpty(cell) Then
           NewCellValue = "Ячейка очищена" 'фиксируем очистку ячейки
       Else
           NewCellValue = cell.Formula     'или ее содержимое
       End If
       On Error Resume Next
        
       With cell
           OldComment = .Comment.Text & Chr(10)
           .Comment.Delete     'удаляем старое примечание (если было)
           .AddComment         'добавляем новое и вводим в него текст
           .Comment.Text Text:=OldComment & Application.UserName & " " & _
                           Format(Now, "MM.DD.YY h:MM:ss") & " : " & NewCellValue
           .Comment.Shape.TextFrame.AutoSize = True    'делаем автоподбор размера
           .Comment.Shape.TextFrame.Characters.Font.Size = 8
       End With
   Next cell
End Sub

Изменено: MurzA - 07.04.2019 21:18:57

Перейти