Дати
3 отговора
281 прегледа
Дати
Интересува ме, възможно ли е да се направи така че в определена клетка или област да може да се нанася само текуща дата, но след като бъде веднъж нанесена да се заключи за промяна?
Re: Дати
може,
принципно не е сложно да се напише макрос, който при стартиране да ти заключи за промяна произволна клетка и в частност, тази, която те интересува
обясни по-подробно какво искаш да направиш
принципно не е сложно да се напише макрос, който при стартиране да ти заключи за промяна произволна клетка и в частност, тази, която те интересува
обясни по-подробно какво искаш да направиш
Re: Дати
Значи става дума за нещо като контролен документ. Извършването на някакво действие се обозначава като се нанася датата на която е извършено. Понеже за въпросната цел срокът е важен, датата трябва да може да бъде единствено текущата. Въпросът е че не искам тази дата да се промени на следващия ден (т.е. today() не ми върши работа или поне не по стандартния начин) или изобщо да бъде променяна за да имам винаги сигурност че съответното действие със сигурност е направено на въведената първоначално дата.
Re: Дати
Ето ти едно примерче , отнася се само за една клетка, но се надявам, че ще се справиш нататък
Ако промениш съдържанието на клетка В1 в клетка А1 ще ти се запише датата и часа на промяната:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
ActiveSheet.Unprotect
Range("A1") = Now()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
трябва клетка В2 задължително да ти е отключена( Format =>protection=>махаш отметката от Locked) за да можеш да пишеш отново върху нея. И изобщо всички клетки в които ще въвеждаш данни трябва да са отключени.
Ако промениш съдържанието на клетка В1 в клетка А1 ще ти се запише датата и часа на промяната:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
ActiveSheet.Unprotect
Range("A1") = Now()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
трябва клетка В2 задължително да ти е отключена( Format =>protection=>махаш отметката от Locked) за да можеш да пишеш отново върху нея. И изобщо всички клетки в които ще въвеждаш данни трябва да са отключени.
Редактирано от nepukis на