Søg
Avatar billede acw Nybegynder
01. oktober 2003 - 15:13 Der er 7 kommentarer og
1 løsning

optimering af kode

hej.

lige en hurtig en

kan man ikke skrive dette her på en nemmere/pænere måde?

____________________________________________

Sub sletrække()


If ActiveCell.Column = "2" Then
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 1).Activate
ActiveCell = ""
ActiveCell.Offset(0, 2).Activate
ActiveCell = ""
ActiveCell.Offset(0, -4).Activate
ActiveCell = ""
    ElseIf ActiveCell.Column = "3" Then
    ActiveCell = ""
    ActiveCell.Offset(0, 1).Activate
    ActiveCell = ""
    ActiveCell.Offset(0, 1).Activate
    ActiveCell = ""
    ActiveCell.Offset(0, 2).Activate
    ActiveCell = ""
    ActiveCell.Offset(0, -4).Activate
    ActiveCell = ""
        ElseIf ActiveCell.Column = "4" Then
        ActiveCell = ""
        ActiveCell.Offset(0, 2).Activate
        ActiveCell = ""
        ActiveCell.Offset(0, -3).Activate
        ActiveCell = ""
        ActiveCell.Offset(0, -1).Activate
        ActiveCell = ""
            ElseIf ActiveCell.Column = "6" Then
            ActiveCell = ""
            ActiveCell.Offset(0, -2).Activate
            ActiveCell = ""
            ActiveCell.Offset(0, -1).Activate
            ActiveCell = ""
            ActiveCell.Offset(0, -1).Activate
            ActiveCell = ""
       


End If

End Sub
Avatar billede kabbak Professor
01. oktober 2003 - 15:25 #1
du kan skrive dem sådan, uden at flytte activecell.

Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 3)) = ""
Avatar billede Flemming Vadet - Smart Office DK Professor
01. oktober 2003 - 15:26 #2
eller sådan her:

Sub DeleteRows()
    With ActiveCell
        Select Case .Column
            Case 2
                .Offset(0, 1).Value = ""
                .Offset(0, 2).Value = ""
                .Offset(0, -4).Value = ""
            Case 3
                .Value = ""
                .Offset(0, 1).Value = ""
                .Offset(0, 2).Value = ""
                .Offset(0, -4).Value = ""
            Case 4
                .Value = ""
                .Offset(0, 2).Value = ""
                .Offset(0, -1).Value = ""
                .Offset(0, -3).Value = ""
            Case 6
                .Value = ""
                .Offset(0, -2).Value = ""
                .Offset(0, -1).Value = ""
        End Select
    End With
End Sub
Avatar billede kabbak Professor
01. oktober 2003 - 15:27 #3
eller
ActiveCell.Offset(0, 1)=""
Avatar billede Flemming Vadet - Smart Office DK Professor
01. oktober 2003 - 15:27 #4
Her undgår du alle dine linier med  .Activate  hvilket gør din kode meget langsom, hvis der er flere celler
Avatar billede acw Nybegynder
01. oktober 2003 - 15:34 #5
flemming det ser fint nok ud, men du har vist rodet lidt med tallene..men det er til at rette selv...
Avatar billede Flemming Vadet - Smart Office DK Professor
01. oktober 2003 - 15:37 #6
god fornøjelse :-)
Avatar billede bak Forsker
01. oktober 2003 - 16:12 #7
er det ikke svært, når man står kolonne B at lave et offset 4 kolonner til venstre :-)
Avatar billede Flemming Vadet - Smart Office DK Professor
01. oktober 2003 - 16:14 #8
jo :-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »