Macro excel omvormen naar ooo

Status
Niet open voor verdere reacties.
J

jabnot

Gebruiker
Lid geworden
3 feb 2009
Berichten
9
hallo,

ik wil een bestand openen in ooo ipv. microsoft excel maar ik kan mijn macro's niet meer gebruiken ..

kan iemand me verder helpen met onderstaande formule?

(rechtstreeks uit excel) :


Sub Reset()

Worksheets("PRIJSBEREKENING").Plaatsnaam.Value = ""
Range("F2").Value = ""
Range("C4:C8").Value = ""
Range("G4:G8").Value = ""
Range("K4:K8").Value = ""
Range("O4:O8").Value = ""
Range("S4:S8").Value = ""
Range("G10:G11").Value = ""
Range("L10:L11").Value = ""
Range("P10:P11").Value = ""
Range("S10:S11").Value = ""

Range("G4").Font.ColorIndex = 1
Range("G5").Font.ColorIndex = 1
Range("G6").Font.ColorIndex = 1
Range("G7").Font.ColorIndex = 1
Range("G8").Font.ColorIndex = 1
Range("N55").Font.ColorIndex = 1

Range("F2").Select

End Sub



Grtjs!
 
jabnot zei:
hallo,

kan iemand me verder helpen met onderstaande formule?
Klik om te vergroten...

Is geen formule, maar een complete macro.

Zonder er verder bij en over na te denken is de vertaling:

Code: 
oSheet = ThisComponent.Sheets.getByName("PRIJSBEREKENING") 'dit is een blad dat de naam PRIJSBEREKENING heeft gekregen

oSheet.getCellRangeByName("Plaatsnaam").Value = "" 'dit moet een cel zijn die de naam "Plaatsnaam" heeft gekregen
oSheet.getCellRangeByName("F2").Value = ""

oDSCRange = oSheet.getCellRangeByName("C4:C8")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE) 'verwijdert alleen de waarde uit de cel, niet de opmaak etc

oDSCRange = oSheet.getCellRangeByName("G4:G8")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("G10:G11")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("K4:K8")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("L10:L11")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("O4:O8")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("P10:P11")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("S4:S8")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("S10:S11")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oSheet.getCellRangeByName("G4").CharColor = 0  '0 =  zwart
oSheet.getCellRangeByName("G5").CharColor = 0
oSheet.getCellRangeByName("G6").CharColor = 0
oSheet.getCellRangeByName("G7").CharColor = 0
oSheet.getCellRangeByName("G8").CharColor = 0
oSheet.getCellRangeByName("N55").CharColor = 0

oDSCRange = oSheet.getCellRangeByName("F2")
ThisComponent.getCurrentController.select(oDSCRange)


End Sub
 
DiGro zei:
Is geen formule, maar een complete macro.

Zonder er verder bij en over na te denken is de vertaling:

Code: 
oSheet = ThisComponent.Sheets.getByName("PRIJSBEREKENING") 'dit is een blad dat de naam PRIJSBEREKENING heeft gekregen

oSheet.getCellRangeByName("Plaatsnaam").Value = "" 'dit moet een cel zijn die de naam "Plaatsnaam" heeft gekregen
oSheet.getCellRangeByName("F2").Value = ""

oDSCRange = oSheet.getCellRangeByName("C4:C8")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE) 'verwijdert alleen de waarde uit de cel, niet de opmaak etc

oDSCRange = oSheet.getCellRangeByName("G4:G8")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("G10:G11")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("K4:K8")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("L10:L11")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("O4:O8")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("P10:P11")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("S4:S8")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oDSCRange = oSheet.getCellRangeByName("S10:S11")
ThisComponent.getCurrentController.select(oDSCRange)
oDSCRange.clearContents(com.sun.star.sheet.CellFlags.VALUE)

oSheet.getCellRangeByName("G4").CharColor = 0  '0 =  zwart
oSheet.getCellRangeByName("G5").CharColor = 0
oSheet.getCellRangeByName("G6").CharColor = 0
oSheet.getCellRangeByName("G7").CharColor = 0
oSheet.getCellRangeByName("G8").CharColor = 0
oSheet.getCellRangeByName("N55").CharColor = 0

oDSCRange = oSheet.getCellRangeByName("F2")
ThisComponent.getCurrentController.select(oDSCRange)


End Sub
Klik om te vergroten...

Dank je wel voor je hulp!

Ik zou er zelf niet uitgeraakt zijn.

grtjs!
 
Het is graag gedaan.

(Vergeet svp niet de vraag op "OPGELOST" te zetten, als die is opgelost )
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan