21. december 2005 - 14:58Der er
6 kommentarer og 1 løsning
Indsætning af dato
Jeg har et ark med et navn pr. række. I hver række skal man opdatere forskellige ting ud for hvert navn. Hver gang der bliver opdateret noget i en bestemt række, vil jeg gerne angive datoen for denne opdatering ud for navnet i denne række. Det kan fx se ud på denne måde: A1: navn A2: opdateringsdato A3-A7: felter, der kan opdateres i
Jeg vil altså kunne følge med i, hvornår hvert navn (person) opdaterer sine felter.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Jeg kom til at angive de forkerte felter. Alle felterne er selvfølgelig i en række, så det i stedet bliver: A1: navn B1: opdateringsdato C1-G1: felter, der kan opdateres i
Private Sub Worksheet_Change(ByVal Target As Range) Range("B" & Mid(Target.Address, Len(Target.Address), InStrRev(Target.Address, "$"))).Value = Date End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A,C:G")) Is Nothing Then Range("B" & Target.Row).Value = Now End If End Sub
hvis den kun skal gælde for en bestemt antal rækker, så kan den se sådan ud
Private Sub Worksheet_Change(ByVal Target As Range) X = 1000 ' antal rækker If Not Intersect(Target, Range("A1:A" & X & ",C1:G" & X)) Is Nothing Then Range("B" & Target.Row).Value = Now End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
