Oprettet ons. d. 06. juli 2011 kl. 11:34:16
Tjen 199 point | 14 kommentarer
Openoffice og makro'er
HejJeg 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
Skrevet ons. d. 06. juli 2011 kl. 12:05: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.
Skrevet ons. d. 06. juli 2011 kl. 12:10:11| #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
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
Skrevet ons. d. 06. juli 2011 kl. 12:37:17| #3
smitemeister (17.221 point)
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.
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.
Skrevet ons. d. 06. juli 2011 kl. 12:41:02| #4
Hvor meldes der fejl?
Skrevet ons. d. 06. juli 2011 kl. 12:47:52| #5
smitemeister (17.221 point)
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.
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.
Skrevet ons. d. 06. juli 2011 kl. 13:02:10| #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
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
Skrevet ons. d. 06. juli 2011 kl. 13:15:20| #7
smitemeister (17.221 point)
Det samme :(
OO kan tilsyneladende ikke lide ordet 'ræk' for der er fejl ved den første linie med det ord igen.
OO kan tilsyneladende ikke lide ordet 'ræk' for der er fejl ved den første linie med det ord igen.
Skrevet ons. d. 06. juli 2011 kl. 13:22:09| #8
prøv at erstatte æ --> ae, hvor æ optræder...
Skrevet ons. d. 06. juli 2011 kl. 13:28:00| #9
smitemeister (17.221 point)
ja. nu fungerer raek.
Men næste fejl er nu:
"Sub eller function er ikke defineret"
på linien:
"If .Value = "" Then"
Men næste fejl er nu:
"Sub eller function er ikke defineret"
på linien:
"If .Value = "" Then"
Skrevet ons. d. 06. juli 2011 kl. 13:39:22| #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
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
Skrevet ons. d. 06. juli 2011 kl. 13:43:36| #11
smitemeister (17.221 point)
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?
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?
Skrevet ons. d. 06. juli 2011 kl. 13:49:47| #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
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
Skrevet ons. d. 06. juli 2011 kl. 13:52:14| #13
smitemeister (17.221 point)
ingen ændring :(
tak for forsøget, dog.
tak for forsøget, dog.
Skrevet ons. d. 06. juli 2011 kl. 13:57:31| #14
Selv tak -
Log ind
Seneste spørgsmål
flyt office til usb stick
Oprettet den 22. april 2013 kl. 22.06
moabou88 giver 15 point for svar | Giv et svar »
Ændring af font, fontstørrelse og farvetema i hele...
Oprettet den 12. april 2013 kl. 15.09
Latte giver 30 point for svar | Giv et svar »
Kombineret skrive- regneprogram til android
Oprettet den 17. december 2012 kl. 00.04
Colin86 giver 60 point for svar | Giv et svar »
Seneste guides
Seneste nyheder
IT Kurser
Samarbejdspartnere
Udgiver · © 2013 Computerworld A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger