Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » MurzA
Выбрать дату в календаре…Выбрать дату в календаре

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

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

Нужно внести изменения в код, в модуле книги.
Изменено: MurzA - 28.04.2019 19:28:50
 
Перейти    
Если ячейка будет пустая, то ячейки снизу и сама ячейка будут закрашены
 
#
09.04.2019 21:40:38
Как то так?
 
Перейти    
История изменения ячейки в примечаниях
 
#
08.04.2019 20:09:13
Судя по тому что в теме тишина вникать в суть проблемы никто не хочет, ну да ладно.
Есть мысль дописать в код выключатель условного форматирования, т.е. перед тем как вставить примечание нужно отключить УФ.
УФ работает при условии, что ячейка А21=истина, возможен ли такой вариант?
1.перед вставкой примечания: range("A21") = false
2.после вставки примечания: range("A21") = true
Если нет, то нет..., а если сработает, подскажите в какие строки что дописать.
(если нужен файл, тремя сообщениями выше)
Изменено: MurzA - 08.04.2019 20:10:40
 
Перейти    
История изменения ячейки в примечаниях
 
#
07.04.2019 21:23:31
Юрий М, спасибо что сделали замечание, буду знать. Сообщение исправил.
 
Перейти    
История изменения ячейки в примечаниях
 
#
07.04.2019 17:21:27
Изменил немного код, что бы не было истории, т.е. при каждом изменении в ячейке новое примечание, и если ячейку очищаем примечание удаляется.
Не знаю насколько правильно внес изменения в код (в VBA ничего не понимаю), но вроде работает.
На листе создал правило условного форматирования: ищем в примечании текст из ячейки F1, если нашли выделяем ячейку красным цветом.
В ячейке "G1" прописана формула, подсчитываем кол-во ячеек с текстом в примечании,  текст из ячейки F1.
Вопрос в следующем:
1. при копировании данных из ячейки в ячейку условное форматирование ломает примечание... с чем это может быть связано? (для проверки, условное форматирование можно отключить, 21 строка) при вводе данных с клавиатуры все нормально, хотя в другом файле ломает примечание и при вводе с клавиатуры.
2.формула прописанная в ячейке F1... подлипает что ли, по мере заполнения ячеек формула всегда считает на одну ячейку меньше,  пока не сделаем двойной клик в ячейке с искомым текстом. После двойного клика показывает правильно.
Файл прикрепляю, помогите пожалуйста разобраться.
Изменено: MurzA - 07.04.2019 17:25:04
 
Перейти    
История изменения ячейки в примечаниях
 
#
07.04.2019 13:53:43
Цитата
Казанский написал:
If Not [A1] Then Exit Sub
Спасибо)
 
Перейти    
История изменения ячейки в примечаниях
 
#
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
 
Перейти    
Выпадающий список с поиском. При скрытом столбце не подтягиваются его значения
 
#
03.04.2019 10:16:56
Спасибо огромное).
Теперь буду пробовать перенести в рабочий файл.
 
Перейти    
Выпадающий список с поиском. При скрытом столбце не подтягиваются его значения
 
#
02.04.2019 21:22:50
Всем привет.
Люди, ничего не понимаю в vba, пытался методом тыка привинтить к своему файлу, облом.
Сначала жутко тормозил, а после вообще перестал работать (ошибкa).
Может подскажите где что изменить, если диапазон данных для выпадающего списка меняем на C:C, а открываться он должен только в одной ячейке, объединенная "Y26".

Во вложении файл, код вернул как в исходнике, т.к. мои изменения ни к чему хорошему не привели.
Подправьте кому не сложно, чтоб заработало).
Изменено: MurzA - 13.09.2019 03:15:53 (прикрепил файл)
 
Перейти    
Страницы: 1
Наверх