06. august 2008 - 19:53Der er
15 kommentarer og 1 løsning
Kontrolelement i excel 07 dansk version
Hej.
Jeg har førhen anvendt denne kode, i det gamle excel. Jeg har nu opgraderet til 07 - dansk version. Jeg vil nu gerne indsætte en knap med samme funktion i det nye excel. Jeg er ikke super skarp til det nye excel, så skal nok guide lidt igennem.
Koden kommer her:
Private Sub CommandButton1_Click() Application.ScreenUpdating = False a = Sheets(1).Range("a10").Value If IsEmpty(Sheets(2).Range("a10")) Then Sheets(2).Range("a10").Value = a Else Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Value = a End If Application.ScreenUpdating = True End Sub
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
ja, den kommer så automatisk op med indspilning af makro. Det vindue lukker jeg så ned, og forsøger at sætte koden ovenfor, ind i programkoden, men når jeg lukker visual basic ned, kan jeg hverken rigtigt trykke på knappe, og der sker ikke det vilde.
Klik på Office-knappen i øverste venstre hjørne -> Excel-indstillinger -> Sikkerhedscenter -> Indstillinger for sikkerhedscenter -> Indstillinger for makro
bruger følgende formel, når jeg skal flytte celle D6:F6 til ark 2:
Sub Knap4_Klik() Application.ScreenUpdating = False a = Sheets(1).Range("D6:F6").Value If IsEmpty(Sheets(2).Range("a10")) Then Sheets(2).Range("D6:F6").Value = a Else Sheets(2).Range("D65536:F65536").End(xlUp).Offset(1, 0).Value = a End If Application.ScreenUpdating = True End Sub
men når jeg har trykket en gang kommer den ganske rigtig ind i ark 2, startene fra D6, men når jeg trykker en gang til, skulle den jo gerne komme ind, startene fra D7, når D6 ikke er tom, men det gør den ikke, kan du hjælpe?
Private Sub CommandButton1_Click() Application.ScreenUpdating = False a = Sheets(1).Range("D6:F6").Value If IsEmpty(Sheets(2).Range("a10")) Then Sheets(2).Range("D6:F6").Value = a Else rk = Sheets(2).Cells(65500, "D").End(xlUp).Row + 1 Sheets(2).Range("D" & rk & ":F" & rk) = a End If Application.ScreenUpdating = True
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.
