Søg
Avatar billede smitemeister Nybegynder
06. juli 2011 - 11:34 Der er 14 kommentarer

Openoffice og makro'er

Hej

Jeg har mange (virkeligt mange) regneark som består af 4 kolonner med tal.

Jeg vil gerne have lagt 1.4 til kolonne D. That's it. Den skal efter makroen har kørt stadig kun have 4 kolonner.

Der står i makro-hjælp i openoffice at "Udvalg registreres kun hvis de er udført ved brug af tastaturet (markør bevæger sig), men ikke når musen er brugt."  Hvordan i alverden kan jeg så dobbeltklikke på det lille kors for at få udfyldt hele kolonnen med en formel/værdi ?

Kan nogen hjælpe mig med en makro som bare lægger 1.4 til kolonne d uanset kolonnens længde?

mvh
Thore
Avatar billede supertekst Ekspert
06. juli 2011 - 12:05 #1
Arbejder ganske vist med Excel - men skulle vel kunne læse en Openoffice fil - vil godt prøve. Kan godt skrive makroen - så du er velkommen til at sende filen. @-adresse under min profil.
Avatar billede supertekst Ekspert
06. juli 2011 - 12:10 #2
Her er et bud på koden:
Sub addition()
    For ræk = 1 To ActiveCell.SpecialCells(xlLastCell).Row
        With Range("D" & ræk)
            .Value = .Value + 1.4
        End With
    Next ræk
End Sub
Avatar billede smitemeister Nybegynder
06. juli 2011 - 12:37 #3
hej. jeg har nu skrevet

REM  *****  BASIC  *****

Sub Main

End Sub

Sub addition()
    For ræk = 1 To ActiveCell.SpecialCells(xlLastCell).Row
        With Range("D" & ræk)
            .Value = .Value + 1.4
        End With
    Next ræk
End Sub



ind i openoffice, men skidtet siger bare syntax error.

Jeg kan godt lave en makro der virker i excell, men jeg vil bruge openoffice da dens håndtering af ascii-filer er langt hurtigere og nemmere.
Avatar billede supertekst Ekspert
06. juli 2011 - 12:41 #4
Hvor meldes der fejl?
Avatar billede smitemeister Nybegynder
06. juli 2011 - 12:47 #5
det gør der ved rækken

For ræk = 1 To ActiveCell.SpecialCells(xlLastCell).Row

makøren står på r'et i ræk - det kan være at det er den kommando OO ikke forstår.
Avatar billede supertekst Ekspert
06. juli 2011 - 13:02 #6
Prøv denne:

Sub addition()
Dim ræk
    For ræk = 1 To 65000
        With Range("D" & ræk)
            If .Value = "" Then
                Exit For
            Else
                .Value = .Value + 1.4
            End If
        End With
       
    Next ræk
   
End Sub
Avatar billede smitemeister Nybegynder
06. juli 2011 - 13:15 #7
Det samme :(

OO kan tilsyneladende ikke lide ordet 'ræk' for der er fejl ved den første linie med det ord igen.
Avatar billede supertekst Ekspert
06. juli 2011 - 13:22 #8
prøv at erstatte æ --> ae, hvor æ optræder...
Avatar billede smitemeister Nybegynder
06. juli 2011 - 13:28 #9
ja. nu fungerer raek.

Men næste fejl er nu:

"Sub eller function er ikke defineret"

på linien:
"If .Value = "" Then"
Avatar billede supertekst Ekspert
06. juli 2011 - 13:39 #10
Sub addition()
Dim ræk
    For raek = 1 To 65000
            If Range("D" & raek).Value = "" Then
                Exit For
            Else
                Range("D" & raek).Value = Range("D" & raek).Value + 1.4
            End If
    Next raek
End Sub
Avatar billede smitemeister Nybegynder
06. juli 2011 - 13:43 #11
fejl på

If Range("D" & raek).Value = "" Then

igen en "sub er function er ikke defineret"


:S

det var da underligt. Jeg går da ud fra at disse makroer virker for dig. Er det excell makro'er du skriver?
Avatar billede supertekst Ekspert
06. juli 2011 - 13:49 #12
Ja - men det kan være at Range ikke kan fortolkes.
Sidste bud:

Sub addition()
Dim ræk
    For raek = 1 To 65000
            If cells(raek,4) = "" Then
                Exit For
            Else
                cells(raek,4) = cells(raek,4) + 1.4
            End If
    Next raek
End Sub
Avatar billede smitemeister Nybegynder
06. juli 2011 - 13:52 #13
ingen ændring :(

tak for forsøget, dog.
Avatar billede supertekst Ekspert
06. juli 2011 - 13:57 #14
Selv tak -
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Køb af Office pakke Af OnePlusFan i Office & Kontorpakker 7 05/12/202509:01 06/12/202523:22
Kan ikke modtage mail på min iphone. Af arnepedersen i Office & Kontorpakker 1 13/11/202513:47 15/11/202510:33
Officepakke køb - opdateres de? Af Uvanga i Office & Kontorpakker 5 30/10/202522:39 04/11/202510:01
Adgangskode på mappe i Windows 11 Af KristinaS i Office & Kontorpakker 2 30/10/202517:20 31/10/202509:19
Ms Access Af Budwar i Office & Kontorpakker 1 07/10/202509:44 08/10/202506:19
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
I dag 14:46 Offline opdatering af co-working excell sheet Af morten vestergaard i Excel
27/1222:02 Låse brugt iPad op Af drstein i iOS, iPhone & iPad
27/1219:21 Hvor finder jeg en oversigt over mine spørgsmål Af KurtG i Hjælp og fejl
27/1211:31 TP-Link Wifi extender opsat som accesspoint giver 50% up- og download, Af Uvanga i Wifi
26/1213:05 Hvorfor bliver tiff-filer større ved konvertering til samme format Af KurtG i Billedbehandling
White papers
Flere white papers »