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.
'marker aktuelle celler Sub Plus() Dim x, y y = Selection.Address For Each x In Selection If x.Value < 0 Then x.Value = 0 ActiveCell.Offset(1, 0).Activate Next ActiveCell.Formula = "=sum(" & y & ")" End Sub
du skal lægge koden ind i en alm. sub: ALT+F11 - menuen 'Indsæt module' paste koden i vindue til højre tilbage til regnearket markere aktuelle celler og kør makroen ALT+F8 / kør
Synes godt om
Ny brugerNybegynder
Din løsning...
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.