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

Страницы: 1
Макрос на блокировку ячеек в каждой строке по дате, Создать макрос на блокировку ячеек в каждой строке в зависимости от даты
 
#
18.09.2024 15:39:28
От души большое спасибо! Все четко работает, как часы.
 
Перейти    
Макрос на блокировку ячеек в каждой строке по дате, Создать макрос на блокировку ячеек в каждой строке в зависимости от даты
 
#
12.09.2024 07:55:31
Добрый день!


Есть таблица (вложение). Необходим макрос, который будет блокировать ячейки в зависимости от даты.

Суть вопроса:

На листе "База" ежесуточно сотрудниками
предприятия заполняется информация.

Придя на работу в столбец А:А ставят дату и правее
в столбцы В:J вносят информацию.

Необходим макрос который будет блокировать
изменение не пустых ячеек на листе "База" и только тех в строках
которых дата из столбца А:А  менее двое суток от даты на сегодня. То есть
допустим сегодня число 12.09.2024 г, макрос должен заблокировать ячейки A2:J36 (выделил шрифт темно красным цветом).

Прошу помощи.
 
Перейти    
Просмотр обозначений в строке ячеек и вывод крайнего правого обозначения из всех ячеек., Поиск одного из условных обозначений в строке ячеек, причем крайнего правого.
 
#
29.08.2022 19:08:56
Цитата
написал:
Цитата
korobcov написал:
стоит Excel 2007.
Попробуйте так:
Код
    [URL=#]?[/URL]       1      =IFERROR(INDEX($6:$6;LARGE(IF($C7:$L7=  "а"  ;COLUMN($C7:$L7));1));  ""  )  
 
Вводить как формулу массива через CTRL+SHIFT+ENTER
Все отлично, работает, радости, как у младенца.
От души большое спасибо!
 
Перейти    
Просмотр обозначений в строке ячеек и вывод крайнего правого обозначения из всех ячеек., Поиск одного из условных обозначений в строке ячеек, причем крайнего правого.
 
#
29.08.2022 18:03:45
Спасибо за оперативность!
Забыл указать, на работе стоит Excel 2007.
Пробую формулу, не работает :cry: . Может из-за Excel 2007?
Обновить Excel 2007 не могу, нельзя.
 
Перейти    
Просмотр обозначений в строке ячеек и вывод крайнего правого обозначения из всех ячеек., Поиск одного из условных обозначений в строке ячеек, причем крайнего правого.
 
#
29.08.2022 17:48:13
Доброго времени суток.
Столкнулся с задачей, которую не могу решить, вроде бы простоя, но решения не нашёл.
Есть строки с Фамилиями работников с условными обозначениями, и даты, когда зафиксированы одно из условных обозначений.
При этом условное обозначение может повторяться в строке.
Так вот, как найти одно из условных обозначений в строке, но крайнее правое и вывести в результат.
То есть какого числа было самое последнее условное обозначение?
Пример задачи:
1) Иванов отпросился 1го, 2го и 08 августа.
Как чтобы в нужной мне ячейке отображалась крайняя дата, когда Иванов отпрашивался?
2) Также Иванов заболел 6го и 10го августа.
Как чтобы в нужной мне ячейке отображалась крайняя дата, когда Иванов заболел?
 
Перейти    
Блокировка не пустых ячеек от изменения после печати листа, Макрос на блокировку диапазона ячеек которые не пустые от изменения после печати листа
 
#
08.06.2022 07:17:23
Цитата
написал:
см. вложение
Доброго времени суток!
Всё четко, спасибо, от души!
 
Перейти    
Блокировка не пустых ячеек от изменения после печати листа, Макрос на блокировку диапазона ячеек которые не пустые от изменения после печати листа
 
#
07.06.2022 12:20:17
Макрос конечно же работает, см вложение, я же не просто, что попало пишу.
Может вопрос не четко сформулировал.
Без обид, зачем столько вопросов???
Я как раз и попросил помощи преобразовать существующий макрос.
А блокировать при печати (может и до) для того, чтобы когда человек распечатал, в заполненных ячейках нельзя было менять ранее заполненные данные.
Так как существующий макрос блокирует ячейку сразу, а это не надо. Пусть человек внесет данные в ячейку и до печати может их ещё менять.
Изменено: korobcov - 07.06.2022 12:42:56
 
Перейти    
Блокировка не пустых ячеек от изменения после печати листа, Макрос на блокировку диапазона ячеек которые не пустые от изменения после печати листа
 
#
07.06.2022 11:19:16
Доброго времени суток друзья!
Может не по теме.
Помогите, пожалуйста кто соображает.
Есть макрос который блокирует в диапазоне "B4:C1048576" ячейки от изменения после внесения в них каких либо данных, а остальные ячейки в диапазоне в которых пока нет данных не блокируются.

Код
Private Sub Worksheet_BeforePrint(ByVal Target As Range)
   If Not Intersect(Range("B4:C1048576"), Target) Is Nothing Then
       ActiveSheet.Unprotect "5101151"
       Target.Locked = True
       Target.AddComment.Text "Автор последних изменений: " & Application.UserName & vbCrLf & "Дата последних изменений: " & CStr(Now)
       ActiveSheet.Protect "5101151", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
   End If
End Sub


Так вот, как прикрутить к этому макросу команду, чтобы этот макрос всё это выполнял, но только после печати листа?
То есть после печати листа, блокировались бы ячейки из диапазона, но только те которые содержат какие либо данные, а пустые можно было бы изменять.
Ну и т.д. заполнив любую другую ячейку из диапазона, после печати листа заполненная ячейка также становилась бы заблокированной от изменения.
Изменено: БМВ - 07.06.2022 12:30:51
 
Перейти    
Помощь по XML. Как сделать фиксирующую кнопку (toggleButton) на ленте динамической?
 
#
26.09.2019 06:20:32
Всё, удалил в книге макрос который обновляет сводную таблицу на одном листе при открытии файла. Впринципе на работоспособность в целом не повлияло.  
 
Перейти    
Помощь по XML. Как сделать фиксирующую кнопку (toggleButton) на ленте динамической?
 
#
26.09.2019 06:04:41
Добрый день.
При открытии файла появляется теперь токая проблема, может знаете как её устранить. Спасибо.  
 
Перейти    
Вставка примечания я ячейку на защищенном листе
 
#
23.02.2018 20:50:59
Доброго времени суток Karataev, только что попробовал, все норм, спасибо. И как сам не додумался, все так просто оказалось.
 
Перейти    
Вставка примечания я ячейку на защищенном листе
 
#
22.02.2018 18:42:52
Добрый день.
Как воплотить в жизнь следующую задачу.
Есть таблица с данными, сам лист защищен паролем. На листе есть ячейки которые защищены от изменения и ячейки которые не защищены. То есть в не защищенных разным пользователям разрешено вносить данные. Вопрос как сделать, чтобы не снимая защиту с листа они могли добавлять примечание в ячейки которые не защищены. Может через макрос как нибудь или какие нибудь настройки?
Была задумка, записать макрос типа
Код
Sub Вставка_примечания()
'ActiveSheet.Unprotect "мой пароль"
Тут думаю какое то условие должно быть прописано, которое после активации макроса будет разрешать вставку примечания в незащищенные ячейки, при этом защищенные ячейки должны быть защищены от изменения.
    ActiveSheet.Protect "мой пароль", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True
End Sub

разместить на листе кнопку, обозвать ее "для вставки примечания", прикрепить к ней макрос и когда будет необходимость вставить примечание в ячейку пользователь нажимает на эту кнопку "для вставки примечания" и вставляет примечание в ячейку, но при этом другие ячейки защищенные изначально от изменения должны быть заблокированы, т.к. содержат формулы и ссылки на другие страницы. Но как написать такой макрос не пойму, может это не реально воплотить. По интернету поискал решения не нашел.
Изменено: korobcov - 23.02.2018 09:54:16
 
Перейти    
Страницы: 1
Наверх