Доброго дня. Суть ситуации в следующем- в документе отслеживается статистика исполнительной дисцыплины, необходима фиксация времени выполнения этапов по проекту (задаче). Существующий макрос фиксирует дату и время назначения ответственного лица в стобце D, так же необходима фиксация времени в столбце F после вставки гиперссылки в столбце G в соответствующей строке. Можно было бы конечно указать в макросе диапозон типа [c:c, g:g] с общим указанием отображения даты и времени в следующей ящейке (или предыдущей), но оформленых документов такого типа уже много и менять их конструкцию не хотелось бы. Ниже прикреплен файл и прописан текст макроса. Заранее благодарен.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Me.UsedRange, Me.[c:c], Target) Is Nothing Then Exit Sub Target.Next = IIf(Target = "", "", Now) End Sub
[/vba]
[admin]Тема закрыта. Причина: Нарушение правил пп 2[/admin]
Доброго дня. Суть ситуации в следующем- в документе отслеживается статистика исполнительной дисцыплины, необходима фиксация времени выполнения этапов по проекту (задаче). Существующий макрос фиксирует дату и время назначения ответственного лица в стобце D, так же необходима фиксация времени в столбце F после вставки гиперссылки в столбце G в соответствующей строке. Можно было бы конечно указать в макросе диапозон типа [c:c, g:g] с общим указанием отображения даты и времени в следующей ящейке (или предыдущей), но оформленых документов такого типа уже много и менять их конструкцию не хотелось бы. Ниже прикреплен файл и прописан текст макроса. Заранее благодарен.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Me.UsedRange, Me.[c:c], Target) Is Nothing Then Exit Sub Target.Next = IIf(Target = "", "", Now) End Sub
[/vba]
[admin]Тема закрыта. Причина: Нарушение правил пп 2[/admin]Амбросий
необходима фиксация времени выполнения этапов по проекту (задаче). Существующий макрос фиксирует дату и время назначения ответственного лица в стобце D, так же необходима фиксация времени в столбце F после вставки гиперссылки в столбце G в соответствующей строке.
RAN,
Цитата
необходима фиксация времени выполнения этапов по проекту (задаче). Существующий макрос фиксирует дату и время назначения ответственного лица в стобце D, так же необходима фиксация времени в столбце F после вставки гиперссылки в столбце G в соответствующей строке.
Skif-F, К моему сожалению я не разбираюсь в макросах на столько, чтобы их конструировать, поэтому в пользу чего мне склониться, попросту не могу принять решения, из-за отсутствия знаний, но всё равно спасибо- попытаюсь поискать что-нибудь про изложенное вами.
Skif-F, К моему сожалению я не разбираюсь в макросах на столько, чтобы их конструировать, поэтому в пользу чего мне склониться, попросту не могу принять решения, из-за отсутствия знаний, но всё равно спасибо- попытаюсь поискать что-нибудь про изложенное вами.Амбросий
Сообщение отредактировал Амбросий - Пятница, 11.07.2014, 23:40
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 3 Then 'Столбец C Target.Offset(0, 1).Value = IIf(Target.Value = "", "", Now) ElseIf Target.Column = 7 Then 'Столбец G Target.Offset(0, -1).Value = IIf(Target.Value = "", "", Now) End If End Sub
[/vba] Надеюсь, я Вас правильно понял
Попробуйте так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 3 Then 'Столбец C Target.Offset(0, 1).Value = IIf(Target.Value = "", "", Now) ElseIf Target.Column = 7 Then 'Столбец G Target.Offset(0, -1).Value = IIf(Target.Value = "", "", Now) End If End Sub